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