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 | 03848ba9a1f80c8718922efa8a9efbf6d3ac6d6c (patch) | |
| tree | 19bf738e77b20e03afe002bceb3fd2fdc6f27494 | |
| parent | 109e37873b28418c656f5dbe12b528e828d6999b (diff) | |
| download | emacs-03848ba9a1f80c8718922efa8a9efbf6d3ac6d6c.tar.gz | |
(pp-to-string): Treat #( like (.
| -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) |