# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1103202337 0
# Node ID 1a8bbdcb009f62f7e2d707a1a0bf78b58a33097b
# Parent  2e946184b5574c11c3a2b4ee3f09500b3790911f
* help.el (function-called-at-point):
As a last resort try striping non-word prefixes and suffixes.

diff -r 2e946184b557 -r 1a8bbdcb009f lisp/help.el
--- a/lisp/help.el	Thu Dec 16 07:19:20 2004 +0000
+++ b/lisp/help.el	Thu Dec 16 13:05:37 2004 +0000
@@ -267,8 +267,13 @@
 		      (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)))))))
 
 
 ;;; `User' help functions