From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: Feature request: extending cross-reference in *Help* buffers Date: Fri, 25 Aug 2006 16:24:12 -0400 Message-ID: References: <20060824205737.4A75.SLAWOMIR.NOWACZYK.847@student.lu.se> Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: sea.gmane.org 1156537637 20009 80.91.229.2 (25 Aug 2006 20:27:17 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 25 Aug 2006 20:27:17 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Aug 25 22:27:15 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GGiGi-0007xH-Gw for ged-emacs-devel@m.gmane.org; Fri, 25 Aug 2006 22:27:08 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GGiGh-00081j-Ug for ged-emacs-devel@m.gmane.org; Fri, 25 Aug 2006 16:27:08 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GGiDu-00065n-VV for emacs-devel@gnu.org; Fri, 25 Aug 2006 16:24:15 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GGiDu-00064Z-6L for emacs-devel@gnu.org; Fri, 25 Aug 2006 16:24:14 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GGiDu-00064L-05 for emacs-devel@gnu.org; Fri, 25 Aug 2006 16:24:14 -0400 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.52) id 1GGiMF-00035E-Uu for emacs-devel@gnu.org; Fri, 25 Aug 2006 16:32:52 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1GGiDs-00048D-6f; Fri, 25 Aug 2006 16:24:12 -0400 Original-To: Slawomir Nowaczyk In-reply-to: <20060824205737.4A75.SLAWOMIR.NOWACZYK.847@student.lu.se> (message from Slawomir Nowaczyk on Thu, 24 Aug 2006 21:08:35 +0200) 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:58877 Archived-At: Does this give good results? *** help-fns.el 11 Jul 2006 12:29:57 -0400 1.90 --- help-fns.el 25 Aug 2006 08:49:12 -0400 *************** *** 369,386 **** (setq file-name (if (get-buffer " *DOC*") (help-C-file-name def 'subr) 'C-source))) ! (when file-name ! (princ " in `") ! ;; We used to add .el to the file name, ! ;; but that's completely wrong when the user used load-file. ! (princ (if (eq file-name 'C-source) "C source code" file-name)) ! (princ "'") ! ;; Make a hyperlink to the library. ! (with-current-buffer standard-output ! (save-excursion ! (re-search-backward "`\\([^`']+\\)'" nil t) ! (help-xref-button 1 'help-function-def function file-name)))) ! (princ ".") (terpri) (when (commandp function) (let* ((remapped (command-remapping function)) --- 369,387 ---- (setq file-name (if (get-buffer " *DOC*") (help-C-file-name def 'subr) 'C-source))) ! (if file-name ! (progn ! (princ " in `") ! ;; We used to add .el to the file name, ! ;; but that's completely wrong when the user used load-file. ! (princ (if (eq file-name 'C-source) "C source code" file-name)) ! (princ "'.") ! ;; Make a hyperlink to the library. ! (with-current-buffer standard-output ! (save-excursion ! (re-search-backward "`\\([^`']+\\)'" nil t) ! (help-xref-button 0 'help-function-def function file-name)))) ! (princ ".")) (terpri) (when (commandp function) (let* ((remapped (command-remapping function))