Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a9efebd0
Commit
a9efebd0
authored
Nov 01, 2002
by
Kim F. Storm
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-hide-note-references): New defcustom.
(Info-fontify-node): Use it.
parent
becf6583
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
6 deletions
+13
-6
lisp/info.el
lisp/info.el
+13
-6
No files found.
lisp/info.el
View file @
a9efebd0
...
...
@@ -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
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment