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")) |