Mercurial > emacs

comparison lisp/info.el @ 90066:fb79180b618d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-78 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-719 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-732 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-733 Update from CVS: man/calc.texi: Fix some TeX definitions. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-734 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-75 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-76 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-77 Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 14 Dec 2004 07:34:55 +0000
parents f2ebccfa87d4 92b24762a33f
children cb67264d6096
comparison
equal deleted inserted replaced
90065:c26eb15cd14a 90066:fb79180b618d
84 (t :underline t)) 84 (t :underline t))
85 "Face for Info cross-references." 85 "Face for Info cross-references."
86 :group 'info) 86 :group 'info)
87 87
88 (defface info-xref-visited 88 (defface info-xref-visited
89 '((t :inherit info-xref) 89 '((default :inherit info-xref)
90 (((class color) (background light)) :foreground "magenta4") 90 (((class color) (background light)) :foreground "magenta4")
91 (((class color) (background dark)) :foreground "magenta3")) ;"violet"? 91 (((class color) (background dark)) :foreground "magenta3")) ;"violet"?
92 "Face for visited Info cross-references." 92 "Face for visited Info cross-references."
93 :group 'info) 93 :group 'info)
94 94
2832 ;; Common subroutine. 2832 ;; Common subroutine.
2833 (defun Info-try-follow-nearest-node (&optional fork) 2833 (defun Info-try-follow-nearest-node (&optional fork)
2834 "Follow a node reference near point. Return non-nil if successful." 2834 "Follow a node reference near point. Return non-nil if successful."
2835 (let (node) 2835 (let (node)
2836 (cond 2836 (cond
2837 ((and (Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)") 2837 ((Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)")
2838 (or (featurep 'browse-url) (require 'browse-url nil t)))
2839 (setq node t) 2838 (setq node t)
2840 (browse-url (browse-url-url-at-point))) 2839 (browse-url (browse-url-url-at-point)))
2841 ((setq node (Info-get-token (point) "\\*note[ \n\t]+" 2840 ((setq node (Info-get-token (point) "\\*note[ \n\t]+"
2842 "\\*note[ \n\t]+\\([^:]*\\):\\(:\\|[ \n\t]*(\\)?")) 2841 "\\*note[ \n\t]+\\([^:]*\\):\\(:\\|[ \n\t]*(\\)?"))
2843 (Info-follow-reference node fork)) 2842 (Info-follow-reference node fork))