diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-18 16:22:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-18 16:22:55 +0000 |
| commit | f0d21379316bba09f4dfdf520f57c14762042b6a (patch) | |
| tree | a8c8512a9887752170f85bdff4f58913369fc0f0 /lisp | |
| parent | 12a8a2394594f244af9935b4a7fff3969cc03c41 (diff) | |
| download | emacs-f0d21379316bba09f4dfdf520f57c14762042b6a.tar.gz | |
(pp-to-string): Treat #( like (.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 4 |
1 files 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) |