Mercurial > emacs
comparison 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.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 24 Jun 2005 02:39:59 +0000 |
parents | 571afd8b238a |
children | 98208dd356b4 |
comparison
equal
deleted
inserted
replaced
63735:cad79f2ac120 | 63736:c11482ba7b96 |
---|---|
999 (if (> count 0) | 999 (if (> count 0) |
1000 (progn | 1000 (progn |
1001 (display-buffer occur-buf) | 1001 (display-buffer occur-buf) |
1002 (setq next-error-last-buffer occur-buf)) | 1002 (setq next-error-last-buffer occur-buf)) |
1003 (kill-buffer occur-buf))) | 1003 (kill-buffer occur-buf))) |
1004 (run-hooks 'occur-hook)) | 1004 (setq buffer-read-only t) |
1005 (setq buffer-read-only t) | 1005 (set-buffer-modified-p nil) |
1006 (set-buffer-modified-p nil)))) | 1006 (run-hooks 'occur-hook))))) |
1007 | 1007 |
1008 (defun occur-engine-add-prefix (lines) | 1008 (defun occur-engine-add-prefix (lines) |
1009 (mapcar | 1009 (mapcar |
1010 #'(lambda (line) | 1010 #'(lambda (line) |
1011 (concat " :" line "\n")) | 1011 (concat " :" line "\n")) |