From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Kim F. Storm" Newsgroups: gmane.emacs.devel Subject: Hiding *Note:: "tags" in info files Date: Tue, 29 Oct 2002 12:03:19 +0000 (GMT) Sender: emacs-devel-admin@gnu.org Message-ID: <20021029120319.95A4F7C012@mail.filanet.dk> NNTP-Posting-Host: main.gmane.org X-Trace: main.gmane.org 1035893248 5323 80.91.224.249 (29 Oct 2002 12:07:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 29 Oct 2002 12:07:28 +0000 (UTC) Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 186V9a-0001Nh-00 for ; Tue, 29 Oct 2002 13:07:26 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 186VEB-0003Ka-00 for ; Tue, 29 Oct 2002 13:12:11 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 186V7c-0000fZ-00; Tue, 29 Oct 2002 07:05:24 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10) id 186V5p-0008NS-00 for emacs-devel@gnu.org; Tue, 29 Oct 2002 07:03:33 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10) id 186V5j-0008AJ-00 for emacs-devel@gnu.org; Tue, 29 Oct 2002 07:03:32 -0500 Original-Received: from mail.filanet.dk ([195.215.206.179]) by monty-python.gnu.org with esmtp (Exim 4.10) id 186V5i-000854-00 for emacs-devel@gnu.org; Tue, 29 Oct 2002 07:03:26 -0500 Original-Received: from kfs.local.filanet.dk (kfs.local.filanet.dk [192.168.1.82]) by mail.filanet.dk (Postfix) with SMTP id 95A4F7C012 for ; Tue, 29 Oct 2002 12:03:19 +0000 (GMT) Original-To: emacs-devel@gnu.org Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:8888 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:8888 When I browse info files in emacs, I find all those visible *Note ... :: "tags" pretty annoying, given that the references are already displayed in the info-xref face. The following patch hides those superfluous decorations. The result isn't perfect, since the wording around some of the nodes become a bit sparse, e.g. (upper case indicates highlighting) *Note GETTING A PRINTED MANUAL::, if you would like a paper copy of the Emacs manual. (which isn't perfect English either) becomes GETTING A PRINTED MANUAL, if you would like a paper copy of the Emacs manual. But personally I don't think that is worse than the *Note stuff. WDYT? Index: info.el =================================================================== RCS file: /cvs/emacs/lisp/info.el,v retrieving revision 1.318 diff -c -r1.318 info.el *** info.el 8 Oct 2002 04:57:27 -0000 1.318 --- info.el 29 Oct 2002 11:51:26 -0000 *************** *** 2712,2724 **** (add-text-properties (match-beginning 2) (1+ (match-end 2)) '(invisible t intangible t)))) (goto-char (point-min)) ! (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) (if (= (char-after (1- (match-beginning 0))) ?\") ; hack nil (add-text-properties (match-beginning 1) (match-end 1) '(font-lock-face info-xref mouse-face highlight ! help-echo "mouse-2: go to this node")))) (goto-char (point-min)) (if (and (search-forward "\n* Menu:" nil t) (not (string-match "\\" Info-current-node)) --- 2712,2729 ---- (add-text-properties (match-beginning 2) (1+ (match-end 2)) '(invisible t intangible t)))) (goto-char (point-min)) ! (while (re-search-forward "\\(\\*Note[ \n\t]+\\)\\([^:]*\\)\\(:+\\)" nil t) (if (= (char-after (1- (match-beginning 0))) ?\") ; hack nil (add-text-properties (match-beginning 1) (match-end 1) + '(invisible t)) + (add-text-properties (match-beginning 2) (match-end 2) '(font-lock-face info-xref mouse-face highlight ! help-echo "mouse-2: go to this node")) ! (add-text-properties (match-beginning 3) (match-end 3) ! '(invisible t)))) ! (goto-char (point-min)) (if (and (search-forward "\n* Menu:" nil t) (not (string-match "\\" Info-current-node)) -- Kim F. Storm http://www.cua.dk