mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1999-09-12 02:17:20 +00:00
parent 4adcd90506
commit 19b014e465
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/lisp-mode.el
View file

@ -340,6 +340,12 @@ With argument, print output into current buffer."
(or (eq (following-char) ?\') (or (eq (following-char) ?\')
(eq (preceding-char) ?\'))) (eq (preceding-char) ?\')))
(forward-sexp -1) (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 (save-restriction
;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
;; `variable' so that the value is returned, not the ;; `variable' so that the value is returned, not the