summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2007-03-08 15:17:42 +0000
committerChong Yidong <cyd@stupidchicken.com>2007-03-08 15:17:42 +0000
commit8a7a5d38f2262ee53c0ca62e64ac90c7248a59f9 (patch)
treead78380558c58825a8a1c9f65d6b4335171aadcd
parent38e631903ebadda97bc5198bdddf3a81389e0e01 (diff)
downloademacs-8a7a5d38f2262ee53c0ca62e64ac90c7248a59f9.tar.gz
(occur-engine): buffer-undo-list binding moved...
(occur-1): ...to here.
-rw-r--r--lisp/replace.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index 5b970681ea7..9e45e3479c3 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1049,7 +1049,9 @@ See also `multi-occur'."
(with-current-buffer occur-buf
(occur-mode)
- (let ((inhibit-read-only t))
+ (let ((inhibit-read-only t)
+ ;; Don't generate undo entries for creation of the initial contents.
+ (buffer-undo-list t))
(erase-buffer)
(let ((count (occur-engine
regexp active-bufs occur-buf
@@ -1086,8 +1088,6 @@ See also `multi-occur'."
title-face prefix-face match-face keep-props)
(with-current-buffer out-buf
(let ((globalcount 0)
- ;; Don't generate undo entries for creation of the initial contents.
- (buffer-undo-list t)
(coding nil))
;; Map over all the buffers
(dolist (buf buffers)