Make org-link and idlwave-help-link inherit from link face.

Suggested by Joakim Verona.

* lisp/org/org-faces.el (org-link):
* lisp/progmodes/idlw-help.el (idlwave-help-link): Inherit from link face.

2 files changed, 7 insertions, 4 deletions

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 9bf07deeffe..e8531be05f8 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-09  Chong Yidong  <cyd@stupidchicken.com>
+
+        * org-faces.el (org-link): Inherit from link face.
+        Suggested by Joakim Verona.
+
 2010-12-11  Tassilo Horn  <tassilo@member.fsf.org>
 
         * org-footnote.el (org-footnote-create-definition): Place
diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el
index 3f8245758f7..d4f458232ce 100644
--- a/lisp/org/org-faces.el
+++ b/lisp/org/org-faces.el
@@ -1,6 +1,6 @@
 ;;; org-faces.el --- Face definitions for Org-mode.
 
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
@@ -247,9 +247,7 @@ column view defines special faces for each outline level.  See the file
   :group 'org-faces)
 
 (defface org-link
-  '((((class color) (background light)) (:foreground "Purple" :underline t))
-    (((class color) (background dark)) (:foreground "Cyan" :underline t))
-    (t (:underline t)))
+  '((t :inherit link))
   "Face for links."
   :group 'org-faces)