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)) |
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))) |