Mercurial > emacs
changeset 48107:c0a7fff00ce5
(Info-hide-note-references): New defcustom.
(Info-fontify-node): Use it.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 01 Nov 2002 08:53:50 +0000 |
| parents | d69a38446204 |
| children | c7684f618b74 |
| files | lisp/info.el |
| diffstat | 1 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Nov 01 08:53:18 2002 +0000 +++ b/lisp/info.el Fri Nov 01 08:53:50 2002 +0000 @@ -145,6 +145,11 @@ :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 @@ '(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 @@ '(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)))))