* info.el (Info-fontify-node): Handle the case where

	Info-current-file is t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d21025acd2326865da94e37e89614054c186bf0..4d4cf40ebc78aefb502c73bb711c9678124e9d81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-23  Chong Yidong  <cyd@stupidchicken.com>
+
+       * info.el (Info-fontify-node): Handle the case where
+       Info-current-file is t.
+
 2005-11-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (blink-matching-open): Fix off-by-one in last change.

diff --git a/lisp/info.el b/lisp/info.el
index 84c83bd419b616528043f7f1ddba6f94fc01c821..48e933711cf6f8603643609dcc1ab249f1fcb4c0 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3805,7 +3805,10 @@ the variable `Info-file-list-for-emacs'."
                                                   (match-string 4))
                                              (match-string 2)))))
                                  (file (file-name-nondirectory
-                                        Info-current-file))
+                                        (if Info-current-file
+                                           (if (stringp Info-current-file)
+                                               Info-current-file
+                                             (buffer-file-name)))))
                                  (hl Info-history-list)
                                  res)
                             (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)
@@ -3816,9 +3819,11 @@ the variable `Info-file-list-for-emacs'."
                                              (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)))))
+                                      (or (and (eq t Info-current-file)
+                                               (eq t (nth 0 (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))
@@ -3913,7 +3918,11 @@ the variable `Info-file-list-for-emacs'."
                             (let ((node (if (equal (match-string 3) "")
                                             (match-string 1)
                                           (match-string 3)))
-                                  (file (file-name-nondirectory Info-current-file))
+                                  (file (file-name-nondirectory
+                                        (if Info-current-file
+                                            (if (stringp Info-current-file)
+                                                Info-current-file
+                                              (buffer-file-name)))))
                                   (hl Info-history-list)
                                   res)
                               (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)
@@ -3924,9 +3933,11 @@ the variable `Info-file-list-for-emacs'."
                                                (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)))))
+                                        (or (and (eq t Info-current-file)
+                                                 (eq t (nth 0 (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)))