From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Jun 1996 16:22:55 +0000 (+0000)
Subject: (pp-to-string): Treat #( like (.
X-Git-Tag: emacs-19.34~416
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0d21379316bba09f4dfdf520f57c14762042b6a;p=emacs.git

(pp-to-string): Treat #( like (.
---

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index f7e6afb4952..90f9323acd4 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -41,8 +41,8 @@ that `read' can handle, whenever this is possible."
 	  (while (not (eobp))
 	    ;; (message "%06d" (- (point-max) (point)))
 	    (cond
-	     ((looking-at "\\s\(")
-	      (while (looking-at "\\s(")
+	     ((looking-at "\\s(\\|#\\s(")
+	      (while (looking-at "\\s(\\|#\\s(")
 		(forward-char 1)))
 	     ((and (looking-at "\\(quote[ \t]+\\)\\([^.)]\\)")
 		   (> (match-beginning 1) 1)