From 19b014e465074c4c1cdb7081bf76cbed1680cfca Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 12 Sep 1999 02:17:20 +0000 Subject: [PATCH] (eval-last-sexp): If after ?\LETTER, use all of that as the sexp. --- lisp/emacs-lisp/lisp-mode.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.39.5