Mercurial > emacs
changeset 25642:556711217681
(eval-last-sexp): If after ?\LETTER, use all of that as the sexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 12 Sep 1999 02:17:20 +0000 |
| parents | 952461b8fdaf |
| children | 385bf7dbf253 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Sat Sep 11 21:29:11 1999 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Sun Sep 12 02:17:20 1999 +0000 @@ -340,6 +340,12 @@ (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