Bug in etags.el

etags.el uses funcall to run the find-tag-hook and other hooks. This is broken, and the following patch fixes it (patch against xemacs-20, rev 1.6 of etags.el): --- etags.el Tue Jul 21 22:52:33 1998 +++ etags.el Tue Jul 21 22:55:28 1998 ＠＠ -562,7 +562,7 ＠＠ (defun find-tag-default () (or (and (not (memq find-tag-default-hook '(nil find-tag-default))) (condition-case data - (funcall find-tag-default-hook) + (run-hooks 'find-tag-default-hook) (error (warn "Error in find-tag-default-hook signalled error: %s" (error-message-string data)) ＠＠ -776,10 +776,8 ＠＠ (widen) (push-mark) (goto-char tag-point) - (if find-tag-hook - (funcall find-tag-hook) - (if local-find-tag-hook - (funcall local-find-tag-hook)))) + (run-hooks 'find-tag-hook) + (run-hooks 'local-find-tag-hook)) (setq tags-loop-scan (list 'find-tag nil nil) tags-loop-operate nil) ;; Return t in case used as the tags-loop-scan. Regards, Malcolm -- Malcolm Box malcolm(a)brownale.demon.co.uk mdfbox(a)iee.org "Research is what I'm doing when I don't know what I'm doing." - Wernher Von Braun (1912-1977)