Mercurial > emacs

comparison lisp/emacs-lisp/pp.el @ 15446:13e4d0daa8c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
15445:d89ae6e193da 15446:13e4d0daa8c1
39 (prin1 object (current-buffer))) 39 (prin1 object (current-buffer)))
40 (goto-char (point-min)) 40 (goto-char (point-min))
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)
49 (= ?\( (char-after (1- (match-beginning 1)))) 49 (= ?\( (char-after (1- (match-beginning 1))))
50 ;; Make sure this is a two-element list. 50 ;; Make sure this is a two-element list.