From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 8 Aug 2000 12:16:11 +0000 (+0000)
Subject: (eval-last-sexp-1): Handle `#N=' labels.
X-Git-Tag: emacs-pretest-21.0.90~2429
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07ca56eb35f7d46b1a50cee59f8798528026b192;p=emacs.git

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

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