comparison lisp/emacs-lisp/lisp-mode.el @ 30666:d470d496fd53

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

30665:6f2c9914b5b0

			 ;; use the whole thing, not just the `e'.
			 (when (eq (preceding-char) ?\\)
			   (forward-char -1)
			   (when (eq (preceding-char) ??)
			     (forward-char -1)))
			 (save-restriction
			   ;; [e-mail] 30-Jul-1997: skip ` in
			   ;; `variable' so that the value is returned, not the
			   ;; name 
			   (if (and ignore-quotes

30666:d470d496fd53

			 ;; use the whole thing, not just the `e'.
			 (when (eq (preceding-char) ?\\)
			   (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
			   ;; [e-mail] 30-Jul-1997: skip ` in
			   ;; `variable' so that the value is returned, not the
			   ;; name 
			   (if (and ignore-quotes