# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104887363 0
# Node ID 658501d06a20d82cb4323038f36b355da98e3772
# Parent  3827f56f03b653e8a52c6f917b8590e94890a0bd
(variable-at-point): New arg ANY-SYMBOL.

diff -r 3827f56f03b6 -r 658501d06a20 lisp/help-fns.el
--- 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