# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1137979017 0
# Node ID acccd9689759f8cc08d41c257f61f2a5c7833c05
# Parent  5325b795290b5f286faff01979f0f5f34a40648c
(link, link-visited): New faces based on default values
of `info-xref' and `info-xref-visited'.

diff -r 5325b795290b -r acccd9689759 lisp/faces.el
--- a/lisp/faces.el	Mon Jan 23 01:09:26 2006 +0000
+++ b/lisp/faces.el	Mon Jan 23 01:16:57 2006 +0000
@@ -1917,6 +1917,28 @@
   :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")