Mercurial > emacs

comparison lisp/emacs-lisp/pp.el @ 73632:d65affbd0f76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Installed [sa2c@sa2c.net: pp-eval-last-sexp() does not eval last sexp] patch
author Ramprasad B <ramprasad_i82@yahoo.com>
date Fri, 03 Nov 2006 13:53:50 +0000
parents 5eddbe565062
children 4e312c5cf360 02cf29720f31
comparison
equal deleted inserted replaced
73631:4ec24926fb8f 73632:d65affbd0f76
159 (setq exp (read exp))) 159 (setq exp (read exp)))
160 (setq exp (read (current-buffer))))) 160 (setq exp (read (current-buffer)))))
161 (set-syntax-table stab) 161 (set-syntax-table stab)
162 (if arg 162 (if arg
163 (insert (pp-to-string (eval exp))) 163 (insert (pp-to-string (eval exp)))
164 (pp-eval-expression exp)))) 164 (pp-eval-expression (eval exp)))))
165 165
166 ;;; Test cases for quote 166 ;;; Test cases for quote
167 ;; (pp-eval-expression ''(quote quote)) 167 ;; (pp-eval-expression ''(quote quote))
168 ;; (pp-eval-expression ''((quote a) (quote b))) 168 ;; (pp-eval-expression ''((quote a) (quote b)))
169 ;; (pp-eval-expression ''('a 'b)) ; same as above 169 ;; (pp-eval-expression ''('a 'b)) ; same as above