Re: Go to Emacs-Lisp Definition

[Andreas Politz]

Nordlöw <per.nordlow@gmail.com> writes:

> Has anyone implemented a go to (lookup) definition of an Emacs-Lisp
> symbol: function, variable, face, etc kind of like find-tag but using
> Emacs own symbol database (hash-table)?
>
> I know that I can achieve this in Vanilla Emacs with C-h f,v, but
> direct jump (M-.) would be more user efficient!
>

Take a look at how `find-function' does it.  Here is the most
simple implementation I can think of.

(defun find-symbol (symbol)
  "Find the definition of SYMBOL, defaults to the symbol at point.
Prefer functions over variables over faces."
  (interactive
   (list (let ((symbol (thing-at-point 'symbol)))
           (intern (completing-read
                    (concat "Find symbol"
                            (and symbol
                                 (format " (default %s)" symbol))
                            ": ") obarray
                    #'(lambda (sym)
                        (or (fboundp sym)
                            (boundp sym)
                            (facep sym))) t)))))
  (find-function-do-it
   symbol
   (cond
    ((fboundp symbol) nil)
    ((boundp symbol) 'defvar)
    (t 'defface)) 'switch-to-buffer))
    
                       
-ap