From: Juri Linkov <juri@jurta.org>
Date: Mon, 23 Jan 2006 01:16:57 +0000 (+0000)
Subject: (link, link-visited): New faces based on default values
X-Git-Tag: emacs-pretest-22.0.90~4626
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59746720337654b8c8f3e9f235aec93ea8d62556;p=emacs.git

(link, link-visited): New faces based on default values
of `info-xref' and `info-xref-visited'.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 3ff2678506a..d3e298d4e70 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1917,6 +1917,28 @@ created."
   :group 'basic-faces
   :version "22.1")
 
+(defface link
+  '((((class color) (min-colors 88) (background light))
+     :foreground "blue1" :underline t)
+    (((class color) (background light))
+     :foreground "blue" :underline t)
+    (((class color) (min-colors 88) (background dark))
+     :foreground "cyan1" :underline t)
+    (((class color) (background dark))
+     :foreground "cyan" :underline t)
+    (t :inherit underline))
+  "Basic face for unvisited links."
+  :group 'basic-faces
+  :version "22.1")
+
+(defface link-visited
+  '((default :inherit link)
+    (((class color) (background light)) :foreground "magenta4")
+    (((class color) (background dark)) :foreground "violet"))
+  "Basic face for visited links."
+  :group 'basic-faces
+  :version "22.1")
+
 (defface highlight
   '((((class color) (min-colors 88) (background light))
      :background "darkseagreen2")