From 49c81cfc0184fbc5274516a2e7b53f71a6f7e3c6 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 16 Dec 2004 13:06:05 +0000 Subject: * help-fns.el (variable-at-point): As a last resort try striping non-word prefixes and suffixes. --- lisp/help-fns.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'lisp') 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 -- cgit v1.2.1