* help.el (function-called-at-point):

As a last resort try striping non-word prefixes and suffixes.

diff --git a/lisp/help.el b/lisp/help.el
index 5ec9b1f529926aeed94cf701b88116a6554cd46c..992a9b85f4b7bcc4a1c1add0baf97a405cbfd10f 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -267,8 +267,13 @@ If that doesn't give a function, return nil."
                      (and (symbolp obj) (fboundp obj) obj))))
              (error nil))))
       (let* ((str (find-tag-default))
-            (obj (if str (intern str))))
-       (and (symbolp obj) (fboundp obj) obj))))
+            (sym (if str (intern-soft str))))
+       (if (and sym (fboundp sym))
+           sym
+         (save-match-data
+           (when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str))
+             (setq sym (intern-soft (match-string 1 str)))
+             (and (fboundp sym) sym)))))))
 
 \f
 ;;; `User' help functions