[Emacs-diffs] Changes to emacs/lisp/info.el

[Richard M . Stallman]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.412 emacs/lisp/info.el:1.413
*** emacs/lisp/info.el:1.412    Sun Nov 28 15:41:16 2004
--- emacs/lisp/info.el  Mon Dec 13 19:31:32 2004
***************
*** 86,92 ****
    :group 'info)
  
  (defface info-xref-visited
!   '((t :inherit info-xref)
      (((class color) (background light)) :foreground "magenta4")
      (((class color) (background dark)) :foreground "magenta3")) ;"violet"?
    "Face for visited Info cross-references."
--- 86,92 ----
    :group 'info)
  
  (defface info-xref-visited
!   '((default :inherit info-xref)
      (((class color) (background light)) :foreground "magenta4")
      (((class color) (background dark)) :foreground "magenta3")) ;"violet"?
    "Face for visited Info cross-references."
***************
*** 2834,2841 ****
    "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)))
        (setq node t)
        (browse-url (browse-url-url-at-point)))
       ((setq node (Info-get-token (point) "\\*note[ \n\t]+"
--- 2834,2840 ----
    "Follow a node reference near point.  Return non-nil if successful."
    (let (node)
      (cond
!      ((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]+"