blob: a26f3b9e8bec3554a4e384a4a9ede4b0b56a153f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
$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)
|
