diff options
author | Juri Linkov <[email protected]> | 2004-12-16 13:06:05 +0000 |
---|---|---|
committer | Juri Linkov <[email protected]> | 2004-12-16 13:06:05 +0000 |
commit | f507d6a15348caaba4eac96182f6ca74a089659b (patch) | |
tree | 16f67d69fbf90c1170326f2e6b78b921e3d10ad3 /lisp | |
parent | 918f2e56d9ab0bf94ea260aec9d224a20c80c44f (diff) |
* help-fns.el (variable-at-point):
As a last resort try striping non-word prefixes and suffixes.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/help-fns.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index c06a7b1ee7..125b18614a 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 |