procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help.el (function-called-at-point): Use Elisp's forward-sexp-function

Browse source
This commit is contained in:
Stefan Monnier 2019-05-01 12:37:48 -04:00
parent 5a4f58f7ee
commit 5bd25c095e
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/help.el
View file

@ -265,17 +265,19 @@ If that doesn't give a function, return nil."
(condition-case ()
(save-excursion
(save-restriction
(narrow-to-region (max (point-min)
(- (point) 1000)) (point-max))
;; Move up to surrounding paren, then after the open.
(backward-up-list 1)
(forward-char 1)
;; If there is space here, this is probably something
;; other than a real Lisp function call, so ignore it.
(if (looking-at "[ \t]")
(error "Probably not a Lisp function call"))
(let ((obj (read (current-buffer))))
(and (symbolp obj) (fboundp obj) obj))))
(let ((forward-sexp-function nil)) ;Use elisp-mode's value
(narrow-to-region (max (point-min)
(- (point) 1000))
(point-max))
;; Move up to surrounding paren, then after the open.
(backward-up-list 1)
(forward-char 1)
;; If there is space here, this is probably something
;; other than a real Lisp function call, so ignore it.
(if (looking-at "[ \t]")
(error "Probably not a Lisp function call"))
(let ((obj (read (current-buffer))))
(and (symbolp obj) (fboundp obj) obj)))))
(error nil))
(let* ((str (find-tag-default))
(sym (if str (intern-soft str))))