diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-08-08 12:16:11 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-08-08 12:16:11 +0000 |
| commit | 07ca56eb35f7d46b1a50cee59f8798528026b192 (patch) | |
| tree | d74bebce76429103838142547bdf28854689f77e | |
| parent | 704bdba16c44b303541bc87a259de031c3db98ed (diff) | |
| download | emacs-07ca56eb35f7d46b1a50cee59f8798528026b192.tar.gz emacs-07ca56eb35f7d46b1a50cee59f8798528026b192.tar.bz2 emacs-07ca56eb35f7d46b1a50cee59f8798528026b192.zip | |
(eval-last-sexp-1): Handle `#N=' labels.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 4a794883bd9..f48ecf8be69 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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 |