(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 3ff2678506ae8741670e8c55ec5883df402c56a4..d3e298d4e70e1233e3b4387f00daa05b2abf0167 100644 (file)
--- 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")