[Emacs-diffs] Changes to emacs/lisp/info.el

[Juri Linkov]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.462 emacs/lisp/info.el:1.463
*** emacs/lisp/info.el:1.462    Fri Nov 25 16:35:34 2005
--- emacs/lisp/info.el  Mon Nov 28 21:19:38 2005
***************
*** 3804,3810 ****
                                   (hl Info-history-list)
                                   res)
                              (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)
!                                 (setq file (Info-find-file (match-string 1 
node))
                                        node (if (equal (match-string 2 node) 
"")
                                                 "Top"
                                               (match-string 2 node))))
--- 3804,3810 ----
                                   (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))))
***************
*** 3909,3915 ****
                                    (hl Info-history-list)
                                    res)
                                (if (string-match "(\\([^)]+\\))\\([^)]*\\)" 
node)
!                                   (setq file (Info-find-file (match-string 1 
node))
                                          node (if (equal (match-string 2 node) 
"")
                                                   "Top"
                                                 (match-string 2 node))))
--- 3909,3915 ----
                                    (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))))