diff options
| author | Richard M. Stallman | 1994-12-13 22:13:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-13 22:13:40 +0000 |
| commit | d10ad24f45d9e47225a174c060c56d6eae942e48 (patch) | |
| tree | 9d6d4d54c250879645f838b3fd7d10d4a026ee76 /lisp/replace.el | |
| parent | 6b1e327109cb3593f96dadc115db498b5ffb6c70 (diff) | |
| download | emacs-d10ad24f45d9e47225a174c060c56d6eae942e48.tar.gz emacs-d10ad24f45d9e47225a174c060c56d6eae942e48.zip | |
(occur): Escape newlines when printing regexp.
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 40b6c01bd04..322aa515abb 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -360,7 +360,8 @@ It serves as a menu to find any of the occurrences in this buffer. | |||
| 360 | (set-buffer standard-output) | 360 | (set-buffer standard-output) |
| 361 | ;; We will insert the number of lines, and "lines", later. | 361 | ;; We will insert the number of lines, and "lines", later. |
| 362 | (insert " matching ") | 362 | (insert " matching ") |
| 363 | (prin1 regexp) | 363 | (let ((print-escape-newlines t)) |
| 364 | (prin1 regexp)) | ||
| 364 | (insert " in buffer " (buffer-name buffer) ?. ?\n) | 365 | (insert " in buffer " (buffer-name buffer) ?. ?\n) |
| 365 | (occur-mode) | 366 | (occur-mode) |
| 366 | (setq occur-buffer buffer) | 367 | (setq occur-buffer buffer) |