19 lines
646 B
EmacsLisp
19 lines
646 B
EmacsLisp
$NetBSD: patch-riece-shrink-buffer.el,v 1.1 2014/11/23 06:13:37 mef Exp $
|
|
|
|
riece-shrink-buffer.el:70:29:Warning: Use `with-current-buffer' rather than
|
|
save-excursion+set-buffer
|
|
|
|
--- lisp/riece-shrink-buffer.el~ 2011-04-04 15:46:44.000000000 +0900
|
|
+++ lisp/riece-shrink-buffer.el 2014-06-15 22:01:10.000000000 +0900
|
|
@@ -68,8 +68,9 @@
|
|
(setq buffers (cdr buffers)))))
|
|
|
|
(defun riece-shrink-buffer (buffer)
|
|
- (save-excursion
|
|
- (set-buffer buffer)
|
|
+; (save-excursion
|
|
+; (set-buffer buffer)
|
|
+ (with-current-buffer
|
|
(goto-char (point-min))
|
|
(while (> (buffer-size) riece-max-buffer-size)
|
|
(let* ((inhibit-read-only t)
|