Mercurial > emacs
diff lisp/emacs-lisp/pp.el @ 15446:13e4d0daa8c1
(pp-to-string): Treat #( like (.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 18 Jun 1996 16:22:55 +0000 |
parents | ec298b8bee29 |
children | 919ed1778c0b |
line wrap: on
line diff
--- a/lisp/emacs-lisp/pp.el Tue Jun 18 15:55:20 1996 +0000 +++ b/lisp/emacs-lisp/pp.el Tue Jun 18 16:22:55 1996 +0000 @@ -41,8 +41,8 @@ (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)