From: Kim F. Storm <storm@cua.dk>
Date: Fri, 1 Nov 2002 08:53:50 +0000 (+0000)
Subject: (Info-hide-note-references): New defcustom.
X-Git-Tag: ttn-vms-21-2-B4~12632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9efebd0ba18c0fe8b6ce81302bf29d327503506;p=emacs.git

(Info-hide-note-references): New defcustom.
(Info-fontify-node): Use it.
---

diff --git a/lisp/info.el b/lisp/info.el
index 0dd5793828b..46967732fe8 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -145,6 +145,11 @@ when you hit the end of the current node."
   :type 'boolean
   :group 'info)
 
+(defcustom Info-hide-note-references t
+  "*If non-nil, hide the section reference in *note and * menu items."
+  :type 'boolean
+  :group 'info)
+
 (defcustom Info-mode-hook '(turn-on-font-lock)
   "Hooks run when `info-mode' is called."
   :type 'hook
@@ -2744,8 +2749,9 @@ the variable `Info-file-list-for-emacs'."
 				   '(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 intangible t)))))
+	      (if Info-hide-note-references
+		  (add-text-properties (match-beginning 3) (match-end 3)
+				       '(invisible t intangible t))))))
 
 	(goto-char (point-min))
 	(if (and (search-forward "\n* Menu:" nil t)
@@ -2763,10 +2769,11 @@ the variable `Info-file-list-for-emacs'."
 				     '(font-lock-face info-xref
 				       mouse-face highlight
 				       help-echo "mouse-2: go to this node"))
-		(add-text-properties (match-beginning 2) (match-end 2)
-				     (list 'display 
-					   (make-string (max 2 (- 22 (- (match-end 1) (match-beginning 1)))) ? )
-					   'intangible t)))))
+		(if Info-hide-note-references
+		    (add-text-properties (match-beginning 2) (match-end 2)
+					 (list 'display 
+					       (make-string (max 2 (- 22 (- (match-end 1) (match-beginning 1)))) ? )
+					       'intangible t))))))
 
 	(Info-fontify-menu-headers)
 	(set-buffer-modified-p nil)))))