mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(Info-fontify-menu-headers): Only fontify `* Menu:' at the beginning

Browse Source 
of a line.
(Info-extract-menu-node-name): Correctly initialize while loop.
(Info-scroll-prefer-subnodes): Change default to nil.
This commit is contained in:
Luc Teirlinck 2003-07-02 00:57:20 +00:00
parent 905b634c75
commit 610bc96b14
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/info.el
View File

@ -139,7 +139,7 @@ These directories are searched after those in `Info-directory-list'."
:type '(repeat directory)
:group 'info)
(defcustom Info-scroll-prefer-subnodes t
(defcustom Info-scroll-prefer-subnodes nil
"*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes.
If this is non-nil, and you scroll far enough in a node that its menu
appears on the screen, the next \\<Info-mode-map>\\[Info-scroll-up]
@ -1547,9 +1547,10 @@ FOOTNOTENAME may be an abbreviation of the reference name."
(skip-chars-forward " \t\n")
(let ((beg (point))
str)
(while (not (looking-at ":*[,.;() \t\n]"))
(skip-chars-forward "^:")
(forward-char 1))
(while (progn
(skip-chars-forward "^:")
(forward-char 1)
(not (looking-at ":*[,.;() \t\n]"))))
(setq str
(if (looking-at ":")
(buffer-substring-no-properties beg (1- (point)))
@ -2747,7 +2748,7 @@ the variable `Info-file-list-for-emacs'."
"Add the face `info-menu-header' to any header before a menu entry."
(save-excursion
(goto-char (point-min))
(when (re-search-forward "\\* Menu:" nil t)
(when (re-search-forward "^\\* Menu:" nil t)
(put-text-property (match-beginning 0) (match-end 0)
'font-lock-face 'info-menu-header)
(while (re-search-forward "\n\n\\([^*\n ].*\\)\n\n?[*]" nil t)