`save-excursion' defeated by `set-buffer'.
+2010-09-01 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * riece-debug.el (riece-debug-1)
+ (riece-debug-reset-standard-output, riece-ignore-errors): Suppress
+ byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+
2010-05-28 Daiki Ueno <ueno@unixuser.org>
* riece-globals.el (riece-mode-line-buffer-identification)
2010-05-28 Daiki Ueno <ueno@unixuser.org>
* riece-globals.el (riece-mode-line-buffer-identification)
(defun riece-debug-1 (message detail)
(message "riece-debug: %s" message)
(defun riece-debug-1 (message detail)
(message "riece-debug: %s" message)
- (save-excursion
- (set-buffer riece-debug-buffer)
+ (with-current-buffer riece-debug-buffer
(goto-char (point-max))
(let ((time (format-time-string "%Y-%m-%d:%H:%M:%S")))
(if detail
(goto-char (point-max))
(let ((time (format-time-string "%Y-%m-%d:%H:%M:%S")))
(if detail
(defun riece-debug-reset-standard-output ()
"Reset `riece-temp-buffer' to be used as `standard-output'."
(defun riece-debug-reset-standard-output ()
"Reset `riece-temp-buffer' to be used as `standard-output'."
- (save-excursion
- (set-buffer riece-temp-buffer)
+ (with-current-buffer riece-temp-buffer
(buffer-disable-undo)
(erase-buffer)))
(buffer-disable-undo)
(erase-buffer)))
,@body)
(error
(if riece-debug
,@body)
(error
(if riece-debug
- (save-excursion
- (set-buffer riece-temp-buffer)
+ (with-current-buffer riece-temp-buffer
(goto-char (point-min))
(if (re-search-forward "^ signal(" nil t)
(delete-region (point-min) (match-beginning 0)))
(goto-char (point-min))
(if (re-search-forward "^ signal(" nil t)
(delete-region (point-min) (match-beginning 0)))