/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.358 by schwab, Thu Jun 19 20:53:06 2003 UTC revision 1.359 by teirllm, Wed Jul 2 00:57:20 2003 UTC
# Line 139  These directories are searched after tho Line 139  These directories are searched after tho
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]
# Line 1547  FOOTNOTENAME may be an abbreviation of t Line 1547  FOOTNOTENAME may be an abbreviation of t
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)))
# Line 2747  the variable `Info-file-list-for-emacs'. Line 2748  the variable `Info-file-list-for-emacs'.
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)

Legend:
Removed from v.1.358  
changed lines
  Added in v.1.359

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26