From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Jan D." Newsgroups: gmane.emacs.devel Subject: Re: mac os x: how do you run emacs in-place? Date: Thu, 27 Nov 2014 12:00:27 +0100 Message-ID: <5477044B.3080300@swipnet.se> References: <49674948-99E1-4A5B-AC53-EC1F092EB2E5@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1417086076 16171 80.91.229.3 (27 Nov 2014 11:01:16 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 27 Nov 2014 11:01:16 +0000 (UTC) Cc: "emacs-devel@gnu.org developers" To: David Reitter , sds@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Nov 27 12:01:09 2014 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Xtwor-00086p-SC for ged-emacs-devel@m.gmane.org; Thu, 27 Nov 2014 12:01:06 +0100 Original-Received: from localhost ([::1]:38787 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xtwor-0002Qi-BK for ged-emacs-devel@m.gmane.org; Thu, 27 Nov 2014 06:01:05 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50506) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtwoW-0002QO-IY for emacs-devel@gnu.org; Thu, 27 Nov 2014 06:00:51 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XtwoP-0006hx-Od for emacs-devel@gnu.org; Thu, 27 Nov 2014 06:00:44 -0500 Original-Received: from mailfe01.swip.net ([212.247.154.1]:55760 helo=swip.net) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtwoP-0006bM-9i; Thu, 27 Nov 2014 06:00:37 -0500 X-T2-Spam-Status: No, hits=-0.0 required=5.0 tests=BAYES_40 Original-Received: from hosdjarv.se (account mj138573@tele2.se [46.59.42.57] verified) by mailfe01.swip.net (CommuniGate Pro SMTP 5.4.4) with ESMTPA id 545978813; Thu, 27 Nov 2014 12:00:31 +0100 Original-Received: from jdvpro.hq.ismobile.com (unknown [176.57.193.190]) (Authenticated sender: jhd) by hosdjarv.se (Postfix) with ESMTPSA id 439E41A0372; Thu, 27 Nov 2014 11:00:31 +0000 (UTC) User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.10; rv:31.0) Gecko/20100101 Thunderbird/31.2.0 In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 212.247.154.1 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:178352 Archived-At: David Reitter skrev den 2014-11-26 22:36: > On Nov 26, 2014, at 4:25 PM, Sam Steingold 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.