# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 965736971 0
# Node ID d470d496fd53214ac7fe5e3124cb14b63d0c98e5
# Parent  6f2c9914b5b021cf7290b73299c7c834cb5736b4
(eval-last-sexp-1): Handle `#N=' labels.

diff -r 6f2c9914b5b0 -r d470d496fd53 lisp/emacs-lisp/lisp-mode.el
--- 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