From f0d21379316bba09f4dfdf520f57c14762042b6a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Jun 1996 16:22:55 +0000 Subject: [PATCH] (pp-to-string): Treat #( like (. --- lisp/emacs-lisp/pp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5