Re: A plea for sanity from a frustrated hacker.

[Johan Bockgård]

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"))

-- 
Johan Bockgård