From 610bc96b14e2950bf17d5f7d1ab5451331f96732 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Wed, 2 Jul 2003 00:57:20 +0000 Subject: [PATCH] (Info-fontify-menu-headers): Only fontify `* Menu:' at the beginning of a line. (Info-extract-menu-node-name): Correctly initialize while loop. (Info-scroll-prefer-subnodes): Change default to nil. --- lisp/info.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index ce013c7c844..edb10c73ec2 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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-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-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) -- 2.39.2