* riece-shrink-buffer.el (riece-shrink-buffer): Suppress

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

diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el
index 38091a0..69d4a07 100644 (file)
--- a/lisp/riece-shrink-buffer.el
+++ b/lisp/riece-shrink-buffer.el
@@ -68,8 +68,7 @@
       (setq buffers (cdr buffers)))))
 
 (defun riece-shrink-buffer (buffer)
       (setq buffers (cdr buffers)))))
 
 (defun riece-shrink-buffer (buffer)

-  (save-excursion
-    (set-buffer buffer)
+  (with-current-buffer buffer

     (goto-char (point-min))
     (while (> (buffer-size) riece-max-buffer-size)
       (let* ((inhibit-read-only t)
     (goto-char (point-min))
     (while (> (buffer-size) riece-max-buffer-size)
       (let* ((inhibit-read-only t)