diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-09-12 02:17:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-09-12 02:17:20 +0000 |
| commit | 19b014e465074c4c1cdb7081bf76cbed1680cfca (patch) | |
| tree | 37be45583cb31936b83253ea505048fe1b71b08f /lisp/emacs-lisp | |
| parent | 4adcd90506e21f051c7160296f686031aa5c8188 (diff) | |
| download | emacs-19b014e465074c4c1cdb7081bf76cbed1680cfca.tar.gz emacs-19b014e465074c4c1cdb7081bf76cbed1680cfca.tar.bz2 emacs-19b014e465074c4c1cdb7081bf76cbed1680cfca.zip | |
(eval-last-sexp): If after ?\LETTER, use all of that as the sexp.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 6 |
1 files changed, 6 insertions, 0 deletions
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 |