diff options
| author | Richard M. Stallman <[email protected]> | 1994-12-13 22:13:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-12-13 22:13:40 +0000 |
| commit | d10ad24f45d9e47225a174c060c56d6eae942e48 (patch) | |
| tree | 9d6d4d54c250879645f838b3fd7d10d4a026ee76 | |
| parent | 6b1e327109cb3593f96dadc115db498b5ffb6c70 (diff) | |
(occur): Escape newlines when printing regexp.
| -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 40b6c01bd0..322aa515ab 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. (set-buffer standard-output) ;; We will insert the number of lines, and "lines", later. (insert " matching ") - (prin1 regexp) + (let ((print-escape-newlines t)) + (prin1 regexp)) (insert " in buffer " (buffer-name buffer) ?. ?\n) (occur-mode) (setq occur-buffer buffer) |