X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-shrink-buffer.el;h=ac89ec93bcaaca922795cc1db9a69a43eb7d4c80;hb=81063e0b7b35a9cb9f30b7014e3ea8b8404a9aec;hp=69d4a0711165fe811238dd549d38c551d59d94d0;hpb=1b7833a4f7d31dd541ad8b73316494cca4ebbd0c;p=riece

diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el
index 69d4a07..ac89ec9 100644
--- a/lisp/riece-shrink-buffer.el
+++ b/lisp/riece-shrink-buffer.el
@@ -1,4 +1,4 @@
-;;; riece-shrink-buffer.el --- free old IRC messages to save memory usage
+;;; riece-shrink-buffer.el --- free old IRC messages to save memory usage -*- lexical-binding: t -*-
 ;; Copyright (C) 1998-2005 Daiki Ueno
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -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)