From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Sep 1999 02:17:20 +0000 (+0000)
Subject: (eval-last-sexp): If after ?\LETTER, use all of that as the sexp.
X-Git-Tag: emacs-pretest-21.0.90~6800
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19b014e465074c4c1cdb7081bf76cbed1680cfca;p=emacs.git

(eval-last-sexp): If after ?\LETTER, use all of that as the sexp.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index f5755bc4b8c..00464730359 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -340,6 +340,12 @@ With argument, print output into current buffer."
 			       (or (eq (following-char) ?\')
 				   (eq (preceding-char) ?\')))
 			 (forward-sexp -1)
+			 ;; If we were after `?\e' (or similar case),
+			 ;; use the whole thing, not just the `e'.
+			 (when (eq (preceding-char) ?\\)
+			   (forward-char -1)
+			   (when (eq (preceding-char) ??)
+			     (forward-char -1)))
 			 (save-restriction
 			   ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
 			   ;; `variable' so that the value is returned, not the