summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
64fb112)
warnings; `save-excursion' defeated by `set-buffer'.
2010-09-12 TAKAHASHI Kaoru <kaoru@kaisei.org>
2010-09-12 TAKAHASHI Kaoru <kaoru@kaisei.org>
+ * riece.el (riece-create-buffers): Suppress byte-compile
+ warnings; `save-excursion' defeated by `set-buffer'.
+
* riece-display.el (riece-display-connect-signals)
(riece-update-buffers): Suppress byte-compile
warnings; `save-excursion' defeated by `set-buffer'.
* riece-display.el (riece-display-connect-signals)
(riece-update-buffers): Suppress byte-compile
warnings; `save-excursion' defeated by `set-buffer'.
(defun riece-create-buffers ()
(let ((alist riece-buffer-alist))
(while alist
(defun riece-create-buffers ()
(let ((alist riece-buffer-alist))
(while alist
- (save-excursion
- (set-buffer (apply #'riece-get-buffer-create
- (cdr (car alist))))
+ (with-current-buffer (apply #'riece-get-buffer-create
+ (cdr (car alist)))
(set (car (car alist)) (current-buffer))
(unless (or (null (nth 2 (car alist)))
(eq major-mode (nth 2 (car alist))))
(set (car (car alist)) (current-buffer))
(unless (or (null (nth 2 (car alist)))
(eq major-mode (nth 2 (car alist))))