[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: A plea for sanity from a frustrated hacker.
From: |
Alan Mackenzie |
Subject: |
Re: A plea for sanity from a frustrated hacker. |
Date: |
Sat, 9 Jun 2007 21:20:51 +0100 |
User-agent: |
Mutt/1.5.9i |
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.