Commit 19b014e4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 4adcd905
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment