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>
 
* 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)
(cua-repeat-replace-region, cua-mode, cua-debug)
(cua-auto-tabify-rectangles, cua-inhibit-cua-keys):
......
......@@ -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)
......
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