Mercurial > emacs
changeset 30666:d470d496fd53
(eval-last-sexp-1): Handle `#N=' labels.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 08 Aug 2000 12:16:11 +0000 |
| parents | 6f2c9914b5b0 |
| children | 2bd60ea8076f |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Tue Aug 08 11:05:38 2000 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Tue Aug 08 12:16:11 2000 +0000 @@ -349,6 +349,16 @@ (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