From d10ad24f45d9e47225a174c060c56d6eae942e48 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Dec 1994 22:13:40 +0000 Subject: [PATCH] (occur): Escape newlines when printing regexp. --- lisp/replace.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. (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) -- 2.11.4.GIT