/[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.285 by monnier, Thu Nov 29 23:20:49 2001 UTC revision 1.286 by monnier, Thu Nov 29 23:44:01 2001 UTC
# Line 1831  parent node." Line 1831  parent node."
1831    (or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t)    (or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t)
1832        (error "No index"))        (error "No index"))
1833    (goto-char (match-beginning 1))    (goto-char (match-beginning 1))
1834    (Info-goto-node (Info-extract-menu-node-name)))    ;; Protect Info-history so that the current node (Top) is not added to it.
1835      (let ((Info-history nil))
1836        (Info-goto-node (Info-extract-menu-node-name))))
1837    
1838  (defun Info-index (topic)  (defun Info-index (topic)
1839    "Look up a string TOPIC in the index for this file.    "Look up a string TOPIC in the index for this file.
# Line 1857  Give a blank topic name to go to the Ind Line 1859  Give a blank topic name to go to the Ind
1859                           (regexp-quote topic)))                           (regexp-quote topic)))
1860          node          node
1861          (case-fold-search t))          (case-fold-search t))
1862      ;; Here, and subsequently in this function,      (Info-goto-index)
     ;; we bind Info-history to nil for internal node-switches  
     ;; so that we don't put junk in the history.  
     ;; In the first Info-goto-node call, above, we do update the history  
     ;; because that is what the user's previous node choice into it.  
     (let ((Info-history nil))  
       (Info-goto-index))  
1863      (or (equal topic "")      (or (equal topic "")
1864          (let ((matches nil)          (let ((matches nil)
1865                (exact nil)                (exact nil)
1866                  ;; We bind Info-history to nil for internal node-switches so
1867                  ;; that we don't put junk in the history.  In the first
1868                  ;; Info-goto-index call, above, we do update the history
1869                  ;; because that is what the user's previous node choice into it.
1870                (Info-history nil)                (Info-history nil)
1871                found)                found)
1872            (while            (while

Legend:
Removed from v.1.285  
changed lines
  Added in v.1.286

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