Re: mac os x: how do you run emacs in-place?

[Jan D.]

David Reitter skrev den 2014-11-26 22:36:
> On Nov 26, 2014, at 4:25 PM, Sam Steingold <address@hidden> wrote:
>
> > and I don't want to use that, mostly because clicking on file names in
> > *Help* buffer finds the installed "el.gz" files instead of the files
> > under version control.
>
> Understood.  I don’t think what you want exists as an option so far.

I use this:

(defadvice find-lisp-object-file-name (after my-find-in-source)
  (if (stringp ad-return-value)
      (let* ((str ad-return-value)
             (idx (string-match "/lisp/" str))
             (nfile (if idx (concat source-directory
                                    (substring str idx)) nil)))
        (if (and nfile (file-exists-p nfile))
            (setq ad-return-value nfile)))))
(ad-activate 'find-lisp-object-file-name)

        Jan D.