Make sure not to move cursor, when the buffer is frozen and selected.

[riece] / lisp / riece-shrink-buffer.el

diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el
index 69d4a07..38091a0 100644 (file)
--- a/lisp/riece-shrink-buffer.el
+++ b/lisp/riece-shrink-buffer.el
@@ -68,7 +68,8 @@
       (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)