139 |
:type '(repeat directory) |
:type '(repeat directory) |
140 |
:group 'info) |
:group 'info) |
141 |
|
|
142 |
(defcustom Info-scroll-prefer-subnodes t |
(defcustom Info-scroll-prefer-subnodes nil |
143 |
"*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes. |
"*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes. |
144 |
If this is non-nil, and you scroll far enough in a node that its menu |
If this is non-nil, and you scroll far enough in a node that its menu |
145 |
appears on the screen, the next \\<Info-mode-map>\\[Info-scroll-up] |
appears on the screen, the next \\<Info-mode-map>\\[Info-scroll-up] |
1547 |
(skip-chars-forward " \t\n") |
(skip-chars-forward " \t\n") |
1548 |
(let ((beg (point)) |
(let ((beg (point)) |
1549 |
str) |
str) |
1550 |
(while (not (looking-at ":*[,.;() \t\n]")) |
(while (progn |
1551 |
(skip-chars-forward "^:") |
(skip-chars-forward "^:") |
1552 |
(forward-char 1)) |
(forward-char 1) |
1553 |
|
(not (looking-at ":*[,.;() \t\n]")))) |
1554 |
(setq str |
(setq str |
1555 |
(if (looking-at ":") |
(if (looking-at ":") |
1556 |
(buffer-substring-no-properties beg (1- (point))) |
(buffer-substring-no-properties beg (1- (point))) |
2748 |
"Add the face `info-menu-header' to any header before a menu entry." |
"Add the face `info-menu-header' to any header before a menu entry." |
2749 |
(save-excursion |
(save-excursion |
2750 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2751 |
(when (re-search-forward "\\* Menu:" nil t) |
(when (re-search-forward "^\\* Menu:" nil t) |
2752 |
(put-text-property (match-beginning 0) (match-end 0) |
(put-text-property (match-beginning 0) (match-end 0) |
2753 |
'font-lock-face 'info-menu-header) |
'font-lock-face 'info-menu-header) |
2754 |
(while (re-search-forward "\n\n\\([^*\n ].*\\)\n\n?[*]" nil t) |
(while (re-search-forward "\n\n\\([^*\n ].*\\)\n\n?[*]" nil t) |