From: Juri Linkov <juri@jurta.org>
Date: Thu, 16 Dec 2004 13:06:05 +0000 (+0000)
Subject: * help-fns.el (variable-at-point):
X-Git-Tag: ttn-vms-21-2-B4~3241
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f507d6a15348caaba4eac96182f6ca74a089659b;p=emacs.git

* help-fns.el (variable-at-point):
As a last resort try striping non-word prefixes and suffixes.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index c06a7b1ee73..125b18614a2 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -478,8 +478,13 @@ Return 0 if there is no such symbol."
 		(and (symbolp obj) (boundp obj) obj))))
 	(error nil))
       (let* ((str (find-tag-default))
-	     (obj (if str (intern str))))
-	(and (symbolp obj) (boundp obj) obj))
+	     (sym (if str (intern-soft str))))
+	(if (and sym (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)))))
       0))
 
 ;;;###autoload