Commit 426674a8 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(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.
parent d6697c02
2005-06-30 Juanma Barranquero <lekktu@gmail.com> 2005-06-30 Juanma Barranquero <lekktu@gmail.com>
   
* replace.el (occur-1): When no matches are found, do not set the
`buffer-read-only' and modified flags for the occur buffer,
because it is deleted.
* emulation/cua-base.el (cua-check-pending-input) * emulation/cua-base.el (cua-check-pending-input)
(cua-repeat-replace-region, cua-mode, cua-debug) (cua-repeat-replace-region, cua-mode, cua-debug)
(cua-auto-tabify-rectangles, cua-inhibit-cua-keys): (cua-auto-tabify-rectangles, cua-inhibit-cua-keys):
......
...@@ -1045,10 +1045,10 @@ See also `multi-occur'." ...@@ -1045,10 +1045,10 @@ See also `multi-occur'."
(if (> count 0) (if (> count 0)
(progn (progn
(display-buffer occur-buf) (display-buffer occur-buf)
(setq next-error-last-buffer occur-buf)) (setq next-error-last-buffer occur-buf)
(kill-buffer occur-buf)))
(setq buffer-read-only t) (setq buffer-read-only t)
(set-buffer-modified-p nil) (set-buffer-modified-p nil))
(kill-buffer occur-buf)))
(run-hooks 'occur-hook))))) (run-hooks 'occur-hook)))))
(defun occur-engine-add-prefix (lines) (defun occur-engine-add-prefix (lines)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment