Mercurial > emacs

changeset 59368:658501d06a20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(variable-at-point): New arg ANY-SYMBOL.
author Richard M. Stallman <rms@gnu.org>
date Wed, 05 Jan 2005 01:09:23 +0000
parents 3827f56f03b6
children 7c06e308c354
files lisp/help-fns.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Wed Jan 05 01:08:24 2005 +0000
+++ b/lisp/help-fns.el	Wed Jan 05 01:09:23 2005 +0000
@@ -463,9 +463,10 @@
 ;; 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 @@
 	(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