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

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 4a794883bd9e6d9b1fb3458bcbaefc591efd6f30..f48ecf8be69f945d491ba275bc847a9af6b3590a 100644 (file)
--- 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