Re: Slow Info startup

[Chong Yidong]

Gah... shouldn't have been sending emails while hacking on longlines.
Sorry about that, here's the real patch.

*** emacs/lisp/info.el.~1.463.~ 2005-11-29 15:07:25.000000000 -0500
--- emacs/lisp/info.el  2005-11-29 21:22:28.000000000 -0500
***************
*** 3800,3816 ****
                                               (and (not (equal (match-string 
4) ""))
                                                    (match-string 4))
                                               (match-string 2)))))
!                                  (file Info-current-file)
                                   (hl Info-history-list)
                                   res)
                              (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)
!                                 (setq file (Info-find-file (match-string 1 
node) t)
                                        node (if (equal (match-string 2 node) 
"")
                                                 "Top"
                                               (match-string 2 node))))
                            (while hl
                              (if (and (string-equal node (nth 1 (car hl)))
!                                      (string-equal file (nth 0 (car hl))))
                                  (setq res (car hl) hl nil)
                                (setq hl (cdr hl))))
                              res))) 'info-xref-visited 'info-xref))
--- 3800,3817 ----
                                               (and (not (equal (match-string 
4) ""))
                                                    (match-string 4))
                                               (match-string 2)))))
!                                  (file (file-name-nondirectory 
Info-current-file))
                                   (hl Info-history-list)
                                   res)
                              (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)
!                                 (setq file (match-string 1 node)
                                        node (if (equal (match-string 2 node) 
"")
                                                 "Top"
                                               (match-string 2 node))))
                            (while hl
                              (if (and (string-equal node (nth 1 (car hl)))
!                                      (string-equal file 
(file-name-nondirectory
!                                                          (nth 0 (car hl)))))
                                  (setq res (car hl) hl nil)
                                (setq hl (cdr hl))))
                              res))) 'info-xref-visited 'info-xref))
***************
*** 3905,3921 ****
                              (let ((node (if (equal (match-string 3) "")
                                              (match-string 1)
                                            (match-string 3)))
!                                   (file Info-current-file)
                                    (hl Info-history-list)
                                    res)
                                (if (string-match "(\\([^)]+\\))\\([^)]*\\)" 
node)
!                                   (setq file (Info-find-file (match-string 1 
node) t)
!                                         node (if (equal (match-string 2 node) 
"")
                                                   "Top"
                                                 (match-string 2 node))))
                              (while hl
                                (if (and (string-equal node (nth 1 (car hl)))
!                                        (string-equal file (nth 0 (car hl))))
                                    (setq res (car hl) hl nil)
                                  (setq hl (cdr hl))))
                                res))) 'info-xref-visited 'info-xref)))
--- 3906,3923 ----
                              (let ((node (if (equal (match-string 3) "")
                                              (match-string 1)
                                            (match-string 3)))
!                                   (file (file-name-nondirectory 
Info-current-file))
                                    (hl Info-history-list)
                                    res)
                                (if (string-match "(\\([^)]+\\))\\([^)]*\\)" 
node)
!                                   (setq file (match-string 1 node)
!                                       node (if (equal (match-string 2 node) 
"")
                                                   "Top"
                                                 (match-string 2 node))))
                              (while hl
                                (if (and (string-equal node (nth 1 (car hl)))
!                                        (string-equal file 
(file-name-nondirectory 
!                                                            (nth 0 (car hl)))))
                                    (setq res (car hl) hl nil)
                                  (setq hl (cdr hl))))
                                res))) 'info-xref-visited 'info-xref)))