From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Alan Mackenzie Newsgroups: gmane.emacs.devel Subject: Re: A plea for sanity from a frustrated hacker. Date: Sat, 9 Jun 2007 21:20:51 +0100 Message-ID: <20070609202051.GA2399@muc.de> References: <20070609174130.GA3419@muc.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1181415344 11279 80.91.229.12 (9 Jun 2007 18:55:44 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 9 Jun 2007 18:55:44 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jun 09 20:55:42 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Hx666-0001Hw-CN for ged-emacs-devel@m.gmane.org; Sat, 09 Jun 2007 20:55:38 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hx665-0002sw-MV for ged-emacs-devel@m.gmane.org; Sat, 09 Jun 2007 14:55:37 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Hx662-0002sc-Ni for emacs-devel@gnu.org; Sat, 09 Jun 2007 14:55:34 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Hx661-0002sO-Ft for emacs-devel@gnu.org; Sat, 09 Jun 2007 14:55:34 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hx661-0002sL-Ct for emacs-devel@gnu.org; Sat, 09 Jun 2007 14:55:33 -0400 Original-Received: from colin.muc.de ([193.149.48.1] helo=mail.muc.de) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Hx660-00046b-Oj for emacs-devel@gnu.org; Sat, 09 Jun 2007 14:55:33 -0400 Original-Received: (qmail 40577 invoked by uid 3782); 9 Jun 2007 18:55:30 -0000 Original-Received: from acm.muc.de (p54A3DCB6.dip.t-dialin.net [84.163.220.182]) by colin2.muc.de (tmda-ofmipd) with ESMTP; Sat, 09 Jun 2007 20:55:28 +0200 Original-Received: (qmail 2488 invoked by uid 1000); 9 Jun 2007 20:20:51 -0000 Content-Disposition: inline In-Reply-To: User-Agent: Mutt/1.5.9i X-Delivery-Agent: TMDA/1.1.5 (Fettercairn) X-Primary-Address: acm@muc.de X-detected-kernel: FreeBSD 4.6-4.9 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:72539 Archived-At: Hi, Johan! On Sat, Jun 09, 2007 at 07:59:16PM +0200, Johan Bockgård wrote: > Alan Mackenzie 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.