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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 522c1e2c19de27e578ac2b97e5d23a7aa146052a..aaaff6903f22facb72c433f4546cdb6e005f6ebb 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -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