From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Dec 1994 22:13:40 +0000 (+0000)
Subject: (occur): Escape newlines when printing regexp.
X-Git-Tag: emacs-19.34~5700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d10ad24f45d9e47225a174c060c56d6eae942e48;p=emacs.git

(occur): Escape newlines when printing regexp.
---

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)