[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/info.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/info.el |
Date: |
Mon, 13 Dec 2004 15:04:50 -0500 |
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]+"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/info.el,
Richard M . Stallman <=