mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(occur): Escape newlines when printing regexp.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-12-13 22:13:40 +00:00
parent 6b1e327109
commit d10ad24f45
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/replace.el
View File

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