# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 787356820 0
# Node ID 689adf47dee3c9417f25b88e047e81fa14ec1932
# Parent  a864b7f97b561028327c9c168bab7bb5240b5d36
(occur): Escape newlines when printing regexp.

diff -r a864b7f97b56 -r 689adf47dee3 lisp/replace.el
--- a/lisp/replace.el	Tue Dec 13 18:53:37 1994 +0000
+++ b/lisp/replace.el	Tue Dec 13 22:13:40 1994 +0000
@@ -360,7 +360,8 @@
 	(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)