Re: A plea for sanity from a frustrated hacker.

[Alan Mackenzie]

Hi, Johan!

On Sat, Jun 09, 2007 at 07:59:16PM +0200, Johan Bockgård wrote:
> Alan Mackenzie <address@hidden> writes:

> > Would somebody help me find this function, please?

>   [help-mode.el]

>   (define-button-type 'help-function-def
>     :supertype 'help-xref
>     'help-function (lambda (fun file)
>                      (require 'find-func)
>                      (when (eq file 'C-source)
>                        (setq file
>                              (help-C-file-name (indirect-function fun) 'fun)))
>                      ;; Don't use find-function-noselect because it follows
>                      ;; aliases (which fails for built-in functions).
>                      (let ((location
>                             (find-function-search-for-symbol fun nil file)))
>                        (pop-to-buffer (car location))
>                        (if (cdr location)
>                            (goto-char (cdr location))
>                          (message "Unable to find location in file"))))
>     'help-echo (purecopy "mouse-2, RET: find function's definition"))

Thanks!

> -- 
> Johan Bockgård

-- 
Alan.