[PATCH] One more bug in help.el (and find-func.el) (Was: Bug in help.el)

BW> i put those in. i didn't want to create a new face as of yet, since BW> help and hyper-apropos will be merged. I've also fixed typing "f" in "Help" buffer (it was saying that "find-function-at-point not defined"). Now the "f" key is bound to wrapper that calls (require), rebounds "f" to real find-function-at-point, and calls it. [ See below for one more patch ] --- help.el 2001/06/12 13:05:42 1.1 +++ help.el 2001/06/12 13:13:31 ＠＠ -184,9 +184,18 ＠＠ \\{help-mode-map}" ) +(defun find-function-at-point-wrapper () + "Calls find-function-at-point, ensuring that appropriate module is loaded" + (interactive) + (require 'find-func) + (define-key help-mode-map "f" 'find-function-at-point) + (find-function-at-point)) + +(define-key help-mode-map "f" 'find-function-at-point-wrapper) + + (define-key help-mode-map "q" 'help-mode-quit) (define-key help-mode-map "Q" 'help-mode-bury) -(define-key help-mode-map "f" 'find-function-at-point) (define-key help-mode-map "d" 'describe-function-at-point) (define-key help-mode-map "v" 'describe-variable-at-point) (define-key help-mode-map "i" 'Info-elisp-ref) Also I've slightly improved "find-function-at-point" (from xemacs-devel package) to provide better diagnostics: =================================================================== RCS file: find-func.el,v retrieving revision 1.1 diff -u -r1.1 find-func.el --- find-func.el 2001/06/12 13:17:13 1.1 +++ find-func.el 2001/06/12 13:21:25 ＠＠ -352,8 +352,9 ＠＠ "Find directly the function at point in the other window." (interactive) (let ((symb (function-at-point))) - (when symb - (find-function-other-window symb)))) + (if symb + (find-function-other-window symb) + (error "No function at point")))) ;;;###autoload (defun find-variable-at-point () Those two patches are independent of each other, though bugs they fix appear very close to each other. --alexm