diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-06-30 13:04:04 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-06-30 13:04:04 +0000 |
| commit | 426674a851eec23cb8ac65e69399c36e740caf83 (patch) | |
| tree | 163d27fca462be8f93397636080b59bacbd7fd5a /lisp/replace.el | |
| parent | d6697c02929d3674328557cbf765d249b4aa2a94 (diff) | |
| download | emacs-426674a851eec23cb8ac65e69399c36e740caf83.tar.gz emacs-426674a851eec23cb8ac65e69399c36e740caf83.tar.bz2 emacs-426674a851eec23cb8ac65e69399c36e740caf83.zip | |
(occur-1): Do not set the `buffer-read-only' and modified flags for the occur
buffer when no matches are found, because the buffer has already been deleted.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 0b19d72178f..c3c5dd263d5 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1045,10 +1045,10 @@ See also `multi-occur'." (if (> count 0) (progn (display-buffer occur-buf) - (setq next-error-last-buffer occur-buf)) + (setq next-error-last-buffer occur-buf) + (setq buffer-read-only t) + (set-buffer-modified-p nil)) (kill-buffer occur-buf))) - (setq buffer-read-only t) - (set-buffer-modified-p nil) (run-hooks 'occur-hook))))) (defun occur-engine-add-prefix (lines) |