Mercurial > emacs
comparison lisp/replace.el @ 63874:56e33caef84f
(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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 30 Jun 2005 13:01:26 +0000 |
| parents | 98208dd356b4 |
| children | 60873cd984cd |
comparison
equal
deleted
inserted
replaced
| 63873:cf8b4d09b958 | 63874:56e33caef84f |
|---|---|
| 1043 regexp)) | 1043 regexp)) |
| 1044 (setq occur-revert-arguments (list regexp nlines bufs)) | 1044 (setq occur-revert-arguments (list regexp nlines bufs)) |
| 1045 (if (> count 0) | 1045 (if (> count 0) |
| 1046 (progn | 1046 (progn |
| 1047 (display-buffer occur-buf) | 1047 (display-buffer occur-buf) |
| 1048 (setq next-error-last-buffer occur-buf)) | 1048 (setq next-error-last-buffer occur-buf) |
| 1049 (setq buffer-read-only t) | |
| 1050 (set-buffer-modified-p nil)) | |
| 1049 (kill-buffer occur-buf))) | 1051 (kill-buffer occur-buf))) |
| 1050 (setq buffer-read-only t) | |
| 1051 (set-buffer-modified-p nil) | |
| 1052 (run-hooks 'occur-hook))))) | 1052 (run-hooks 'occur-hook))))) |
| 1053 | 1053 |
| 1054 (defun occur-engine-add-prefix (lines) | 1054 (defun occur-engine-add-prefix (lines) |
| 1055 (mapcar | 1055 (mapcar |
| 1056 #'(lambda (line) | 1056 #'(lambda (line) |