1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00

(occur-engine): buffer-undo-list binding moved...

(occur-1): ...to here.
This commit is contained in:
Chong Yidong 2007-03-08 15:17:42 +00:00
parent a06494d047
commit 8121414a6a

View File

@ -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)