/[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.464 by jhd, Fri Dec 2 15:07:15 2005 UTC revision 1.465 by cyd, Sun Dec 4 04:31:59 2005 UTC
# Line 3800  the variable `Info-file-list-for-emacs'. Line 3800  the variable `Info-file-list-for-emacs'.
3800                                               (and (not (equal (match-string 4) ""))                                               (and (not (equal (match-string 4) ""))
3801                                                    (match-string 4))                                                    (match-string 4))
3802                                               (match-string 2)))))                                               (match-string 2)))))
3803                                   (file Info-current-file)                                   (external-link-p
3804                                      (string-match "(\\([^)]+\\))\\([^)]*\\)" node))
3805                                     (file (if external-link-p
3806                                               (file-name-nondirectory
3807                                                (match-string 1 node))
3808                                             Info-current-file))
3809                                   (hl Info-history-list)                                   (hl Info-history-list)
3810                                   res)                                   res)
3811                              (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)                              (if external-link-p
3812                                  (setq file (Info-find-file (match-string 1 node) t)                                  (setq node (if (equal (match-string 2 node) "")
                                       node (if (equal (match-string 2 node) "")  
3813                                                 "Top"                                                 "Top"
3814                                               (match-string 2 node))))                                               (match-string 2 node))))
3815                              (while hl                              (while hl
3816                                (if (and (string-equal node (nth 1 (car hl)))                                (if (and (string-equal node (nth 1 (car hl)))
3817                                         (string-equal file (nth 0 (car hl))))                                         (string-equal
3818                                            file (if external-link-p
3819                                                     (file-name-nondirectory
3820                                                      (caar hl))
3821                                                   (caar hl))))
3822                                    (setq res (car hl) hl nil)                                    (setq res (car hl) hl nil)
3823                                  (setq hl (cdr hl))))                                  (setq hl (cdr hl))))
3824                              res))) 'info-xref-visited 'info-xref))                              res))) 'info-xref-visited 'info-xref))
# Line 3902  the variable `Info-file-list-for-emacs'. Line 3910  the variable `Info-file-list-for-emacs'.
3910                   ;; Display visited menu items in a different face                   ;; Display visited menu items in a different face
3911                   (if (and Info-fontify-visited-nodes                   (if (and Info-fontify-visited-nodes
3912                            (save-match-data                            (save-match-data
3913                              (let ((node (if (equal (match-string 3) "")                              (let* ((node (if (equal (match-string 3) "")
3914                                              (match-string 1)                                               (match-string 1)
3915                                            (match-string 3)))                                             (match-string 3)))
3916                                    (file Info-current-file)                                     (external-link-p
3917                                    (hl Info-history-list)                                      (string-match "(\\([^)]+\\))\\([^)]*\\)" node))
3918                                    res)                                     (file (if external-link-p
3919                                (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)                                               (file-name-nondirectory
3920                                    (setq file (Info-find-file (match-string 1 node) t)                                                (match-string 1 node))
3921                                          node (if (equal (match-string 2 node) "")                                             Info-current-file))
3922                                       (hl Info-history-list)
3923                                       res)
3924                                  (if external-link-p
3925                                      (setq node (if (equal (match-string 2 node) "")
3926                                                   "Top"                                                   "Top"
3927                                                 (match-string 2 node))))                                                 (match-string 2 node))))
3928                                (while hl                                (while hl
3929                                  (if (and (string-equal node (nth 1 (car hl)))                                  (if (and (string-equal node (nth 1 (car hl)))
3930                                           (string-equal file (nth 0 (car hl))))                                           (string-equal
3931                                              file (if external-link-p
3932                                                       (file-name-nondirectory (caar hl))
3933                                                     (caar hl))))
3934                                      (setq res (car hl) hl nil)                                      (setq res (car hl) hl nil)
3935                                    (setq hl (cdr hl))))                                    (setq hl (cdr hl))))
3936                                res))) 'info-xref-visited 'info-xref)))                                res))) 'info-xref-visited 'info-xref)))

Legend:
Removed from v.1.464  
changed lines
  Added in v.1.465

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