mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/lisp-mode.el (preceding-sexp): Exclude leading "," which

Browse source 
are a hindrance for C-x C-e.
This commit is contained in:
Stefan Monnier 2014-05-10 23:48:15 -04:00
parent 0994e45d16
commit 4eb436826b
2 changed files with 15 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/emacs-lisp/lisp-mode.el
View file

@ -1017,26 +1017,20 @@ If CHAR is not a character, return nil."
(forward-sexp -1))))
(save-restriction
;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
;; `variable' so that the value is returned, not the
;; name
(if (and ignore-quotes
(eq (following-char) ?`))
(if (and ignore-quotes (eq (following-char) ?`))
;; vladimir@cs.ualberta.ca 30-Jul-1997: Skip ` in `variable' so
;; that the value is returned, not the name.
(forward-char))
(when (looking-at ",@?") (goto-char (match-end 0)))
(narrow-to-region (point-min) opoint)
(setq expr (read (current-buffer)))
;; If it's an (interactive ...) form, it's more
;; useful to show how an interactive call would
;; use it.
(and (consp expr)
(eq (car expr) 'interactive)
;; If it's an (interactive ...) form, it's more useful to show how an
;; interactive call would use it.
;; FIXME: Is it really the right place for this?
(when (eq (car-safe expr) 'interactive)
(setq expr
(list 'call-interactively
(list 'quote
(list 'lambda
'(&rest args)
expr
'args)))))
`(call-interactively
(lambda (&rest args) ,expr args))))
expr)))))