diff options
| author | Richard M. Stallman | 1996-06-18 16:22:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-18 16:22:55 +0000 |
| commit | f0d21379316bba09f4dfdf520f57c14762042b6a (patch) | |
| tree | a8c8512a9887752170f85bdff4f58913369fc0f0 /lisp | |
| parent | 12a8a2394594f244af9935b4a7fff3969cc03c41 (diff) | |
| download | emacs-f0d21379316bba09f4dfdf520f57c14762042b6a.tar.gz emacs-f0d21379316bba09f4dfdf520f57c14762042b6a.zip | |
(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." | |||
| 41 | (while (not (eobp)) | 41 | (while (not (eobp)) |
| 42 | ;; (message "%06d" (- (point-max) (point))) | 42 | ;; (message "%06d" (- (point-max) (point))) |
| 43 | (cond | 43 | (cond |
| 44 | ((looking-at "\\s\(") | 44 | ((looking-at "\\s(\\|#\\s(") |
| 45 | (while (looking-at "\\s(") | 45 | (while (looking-at "\\s(\\|#\\s(") |
| 46 | (forward-char 1))) | 46 | (forward-char 1))) |
| 47 | ((and (looking-at "\\(quote[ \t]+\\)\\([^.)]\\)") | 47 | ((and (looking-at "\\(quote[ \t]+\\)\\([^.)]\\)") |
| 48 | (> (match-beginning 1) 1) | 48 | (> (match-beginning 1) 1) |