[Emacs-diffs] Changes to emacs/lisp/info.el

[Kim F. Storm]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.319 emacs/lisp/info.el:1.320
*** emacs/lisp/info.el:1.319    Thu Oct 31 17:08:03 2002
--- emacs/lisp/info.el  Fri Nov  1 03:53:50 2002
***************
*** 145,150 ****
--- 145,155 ----
    :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,2751 ****
                                   '(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)))))
  
        (goto-char (point-min))
        (if (and (search-forward "\n* Menu:" nil t)
--- 2749,2757 ----
                                   '(font-lock-face info-xref
                                                    mouse-face highlight
                                                    help-echo "mouse-2: go to 
this node"))
!             (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,2772 ****
                                     '(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)))))
  
        (Info-fontify-menu-headers)
        (set-buffer-modified-p nil)))))
--- 2769,2779 ----
                                     '(font-lock-face info-xref
                                       mouse-face highlight
                                       help-echo "mouse-2: go to this node"))
!               (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)))))