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

(variable-at-point): New arg ANY-SYMBOL.

Browse source
This commit is contained in:
Richard M. Stallman 2005-01-05 01:09:23 +00:00
parent 0acffda1d3
commit 20a514ceed
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/help-fns.el
View file

@ -463,9 +463,10 @@ face (according to `face-differs-from-default-p')."
;; Variables
;;;###autoload
(defun variable-at-point ()
(defun variable-at-point (&optional any-symbol)
"Return the bound variable symbol found around point.
Return 0 if there is no such symbol."
Return 0 if there is no such symbol.
If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
(or (condition-case ()
(with-syntax-table emacs-lisp-mode-syntax-table
(save-excursion
@ -479,12 +480,12 @@ Return 0 if there is no such symbol."
(error nil))
(let* ((str (find-tag-default))
(sym (if str (intern-soft str))))
(if (and sym (boundp sym))
(if (and sym (or any-symbol (boundp sym)))
sym
(save-match-data
(when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str))
(setq sym (intern-soft (match-string 1 str)))
(and (boundp sym) sym)))))
(and (or any-symbol (boundp sym)) sym)))))
0))
;;;###autoload