function-called-at-point: ignore-errors around find-tag-default

[Karl Chen <quarl@cs.berkeley.edu>]

Hi, 

In some modes (tex-mode), `find-tag-default' can misbehave and
error.

It is annoying if you cannot `describe-function' or
`describe-variable' in such a mode, so I propose the following
patch.  (`function-called-at-point' and `variable-at-point'
already use condition-cases.  But an alternative would be to wrap
`find-tag-default' itself in a condition-case.)


--- /usr/local/stow/emacs-cvs/share/emacs/22.0.50/lisp/.backup/help.el.~1~	2005-02-09 22:46:42.000000000 -0800
+++ /usr/local/stow/emacs-cvs/share/emacs/22.0.50/lisp/help.el	2005-02-13 20:10:05.000000000 -0800
@@ -273,7 +273,7 @@
 		    (let ((obj (read (current-buffer))))
 		      (and (symbolp obj) (fboundp obj) obj))))
 	      (error nil))))
-      (let* ((str (find-tag-default))
+      (let* ((str (condition-case () (find-tag-default) (error nil)))
 	     (sym (if str (intern-soft str))))
 	(if (and sym (fboundp sym))
 	    sym


--- /usr/local/stow/emacs-cvs/share/emacs/22.0.50/lisp/.backup/help-fns.el.~1~	2005-02-03 11:41:14.000000000 -0800
+++ /usr/local/stow/emacs-cvs/share/emacs/22.0.50/lisp/help-fns.el	2005-02-13 20:20:59.000000000 -0800
@@ -487,7 +487,7 @@
 	      (let ((obj (read (current-buffer))))
 		(and (symbolp obj) (boundp obj) obj))))
 	(error nil))
-      (let* ((str (find-tag-default))
+      (let* ((str (condition-case () (find-tag-default) (error nil)))
 	     (sym (if str (intern-soft str))))
 	(if (and sym (or any-symbol (boundp sym)))
 	    sym

-- 
Karl 2005-02-13 20:24