From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 31 Jul 1997 06:59:37 +0000 (+0000)
Subject: (eval-last-sexp): Ignore `...' around sexp.
X-Git-Tag: emacs-20.1~889
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05e94d325c942a7d977e327193a32ecf5b109665;p=emacs.git

(eval-last-sexp): Ignore `...' around sexp.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index be328b30329..f84b3374a1c 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -296,12 +296,24 @@ With argument, print output into current buffer."
   (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
     (prin1 (eval (let ((stab (syntax-table))
 		       (opoint (point))
+		       ignore-quotes
 		       expr)
 		   (unwind-protect
 		       (save-excursion
 			 (set-syntax-table emacs-lisp-mode-syntax-table)
+			 ;; If this sexp appears to be enclosed in `...'
+			 ;; then ignore the surrounding quotes.
+			 (setq ignore-quotes
+			       (or (eq (following-char) ?\')
+				   (eq (preceding-char) ?\')))
 			 (forward-sexp -1)
 			 (save-restriction
+			   ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
+			   ;; `variable' so that the value is returned, not the
+			   ;; name 
+			   (if (and ignore-quotes
+				    (eq (following-char) ?`))
+			       (forward-char))
 			   (narrow-to-region (point-min) opoint)
 			   (setq expr (read (current-buffer)))
 			   ;; If it's an (interactive ...) form, it's more