From 1b7833a4f7d31dd541ad8b73316494cca4ebbd0c Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Sat, 4 Sep 2010 09:35:01 +0900 Subject: [PATCH 1/1] * riece-shrink-buffer.el (riece-shrink-buffer): Suppress byte-compile warnings; `save-excursion' defeated by `set-buffer'. --- lisp/ChangeLog | 3 +++ lisp/riece-shrink-buffer.el | 3 +-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5502682..0709eff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-04 TAKAHASHI Kaoru + * riece-shrink-buffer.el (riece-shrink-buffer): Suppress + byte-compile warnings; `save-excursion' defeated by `set-buffer'. + * riece-ruby.el (riece-ruby-reset-process-buffer) (riece-ruby-execute, riece-ruby-filter) (riece-ruby-inspect): Suppress byte-compile warnings; diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el index 38091a0..69d4a07 100644 --- 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) - (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) -- 2.25.1