Mercurial > emacs
changeset 15446:13e4d0daa8c1
(pp-to-string): Treat #( like (.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Jun 1996 16:22:55 +0000 |
| parents | d89ae6e193da |
| children | 41bce2c4b1b8 |
| files | lisp/emacs-lisp/pp.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
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)