-;;; 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>
(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)