(occur): Escape newlines when printing regexp.

diff --git a/lisp/replace.el b/lisp/replace.el
index 40b6c01bd04f27b01d79b9f3f44fbf0d08c0f7d3..322aa515abb130b8bf972bb80fc42c9e1a672a47 100644 (file)
--- 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)