diff lisp/replace.el @ 63736:c11482ba7b96

(occur-1): Set `buffer-read-only' and the buffer-modified flag before running `occur-hook' to protect against unintentional buffer switches that can lead to data loss.

--- a/lisp/replace.el	Fri Jun 24 01:49:25 2005 +0000
+++ b/lisp/replace.el	Fri Jun 24 02:39:59 2005 +0000
@@ -1001,9 +1001,9 @@
 		(display-buffer occur-buf)
 		(setq next-error-last-buffer occur-buf))
 	    (kill-buffer occur-buf)))
-	(run-hooks 'occur-hook))
-      (setq buffer-read-only t)
-      (set-buffer-modified-p nil))))
+        (setq buffer-read-only t)
+        (set-buffer-modified-p nil)
+	(run-hooks 'occur-hook)))))
 
 (defun occur-engine-add-prefix (lines)
   (mapcar