From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 5 Jan 2005 01:09:23 +0000 (+0000)
Subject: (variable-at-point): New arg ANY-SYMBOL.
X-Git-Tag: ttn-vms-21-2-B4~2913
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20a514ceed5be18a60d1532e535e5119b7556929;p=emacs.git

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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 522c1e2c19d..aaaff6903f2 100644
--- 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