+2010-12-16 Daiki Ueno <ueno@unixuser.org>
+
+ * riece-shrink-buffer.el (riece-shrink-buffer): Make sure not to
+ move cursor.
+ * riece-misc.el (riece-insert): Save the current point, if the
+ buffer is frozen.
+
2010-12-11 TAKAHASHI Kaoru <kaoru@kaisei.org>
* COMPILE (riece-update-mcat): Fix "Wrong number of arguments"
(with-current-buffer (car buffers)
(let ((inhibit-read-only t)
buffer-read-only
- (start (goto-char (point-max)))
+ start
window
point)
- (insert (format-time-string "%H:%M") " " string)
- (setq point (point))
+ ;; Save the current for the case when (car buffers) is the
+ ;; currently selected buffer.
+ (save-excursion
+ (setq start (goto-char (point-max)))
+ (insert (format-time-string "%H:%M") " " string)
+ (setq point (point)))
(if (and (not (riece-frozen (current-buffer)))
(setq window (get-buffer-window (current-buffer)))
(not (pos-visible-in-window-p point window)))
(select-window window)
(goto-char point) ;select-window changes current point
(recenter riece-window-center-line))))
- (run-hook-with-args 'riece-after-insert-functions start (point))))
+ (run-hook-with-args 'riece-after-insert-functions start point)))
(setq buffers (cdr buffers))))
(defun riece-insert-change (buffer message)
(setq buffers (cdr buffers)))))
(defun riece-shrink-buffer (buffer)
- (with-current-buffer buffer
+ (save-excursion
+ (set-buffer buffer)
(goto-char (point-min))
(while (> (buffer-size) riece-max-buffer-size)
(let* ((inhibit-read-only t)