Mercurial > emacs
changeset 58936:92b24762a33f
(info-xref-visited): Use `default' instead of t.
(Info-try-follow-nearest-node): Don't explicitly load browse-url.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Dec 2004 19:31:32 +0000 |
| parents | 95bb6b9a27a3 |
| children | 48de6e40fcfc |
| files | lisp/info.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Dec 13 19:29:33 2004 +0000 +++ b/lisp/info.el Mon Dec 13 19:31:32 2004 +0000 @@ -86,7 +86,7 @@ :group 'info) (defface info-xref-visited - '((t :inherit info-xref) + '((default :inherit info-xref) (((class color) (background light)) :foreground "magenta4") (((class color) (background dark)) :foreground "magenta3")) ;"violet"? "Face for visited Info cross-references." @@ -2834,8 +2834,7 @@ "Follow a node reference near point. Return non-nil if successful." (let (node) (cond - ((and (Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)") - (or (featurep 'browse-url) (require 'browse-url nil t))) + ((Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)") (setq node t) (browse-url (browse-url-url-at-point))) ((setq node (Info-get-token (point) "\\*note[ \n\t]+"