>>>> "BW" == Ben Wing <ben(a)666.com>
writes:
> Ouch. I didn't see those. If we keep those, then your fix
is of course
> correct. But I would like us not to do so.
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