# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1120136486 0
# Node ID 56e33caef84f380358edc930d20bcb608863dd55
# Parent  cf8b4d09b958a5fef5a55e94b1a8f7298be486df
(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.

diff -r cf8b4d09b958 -r 56e33caef84f lisp/replace.el
--- a/lisp/replace.el	Thu Jun 30 05:31:53 2005 +0000
+++ b/lisp/replace.el	Thu Jun 30 13:01:26 2005 +0000
@@ -1045,10 +1045,10 @@
 	  (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)