(eval-last-sexp-1): Handle `#N=' labels.

This commit is contained in:
Gerd Moellmann 2000-08-08 12:16:11 +00:00
parent 704bdba16c
commit 07ca56eb35

View file

@ -349,6 +349,16 @@ With argument, print output into current buffer."
(forward-char -1)
(when (eq (preceding-char) ??)
(forward-char -1)))
;; Skip over `#N='s.
(when (eq (preceding-char) ?=)
(let (labeled-p)
(save-excursion
(skip-chars-backward "0-9#=")
(setq labeled-p (looking-at "\\(#[0-9]+=\\)+")))
(when labeled-p
(forward-sexp -1))))
(save-restriction
;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
;; `variable' so that the value is returned, not the