diff options
| author | Karl Heuer | 1998-06-20 22:25:31 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-06-20 22:25:31 +0000 |
| commit | 5ddf4bdac08268def3cb46c6bc1f0178e60c4882 (patch) | |
| tree | 687674e28d8c5284a5b7b97b9ef0232f44705ee1 /lisp/replace.el | |
| parent | 01c752b506dc29fb5532dc56ab581bfecc703875 (diff) | |
| download | emacs-5ddf4bdac08268def3cb46c6bc1f0178e60c4882.tar.gz emacs-5ddf4bdac08268def3cb46c6bc1f0178e60c4882.zip | |
(occur): Set buffer-read-only.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index e82eb3bdafb..29ca29384e8 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -622,7 +622,8 @@ the matching is case-sensitive." | |||
| 622 | (format "%d lines" occur-num-matches)))) | 622 | (format "%d lines" occur-num-matches)))) |
| 623 | (insert message-string) | 623 | (insert message-string) |
| 624 | (if (interactive-p) | 624 | (if (interactive-p) |
| 625 | (message "%s matched" message-string))))))))) | 625 | (message "%s matched" message-string))) |
| 626 | (setq buffer-read-only t))))))) | ||
| 626 | 627 | ||
| 627 | ;; It would be nice to use \\[...], but there is no reasonable way | 628 | ;; It would be nice to use \\[...], but there is no reasonable way |
| 628 | ;; to make that display both SPC and Y. | 629 | ;; to make that display both SPC and Y. |