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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d359fa927bc2baa66b98a7b84db495f316ddebc8..cd5ec46128b1ee5e817903fc111176d544a6972f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-09  Chong Yidong  <cyd@stupidchicken.com>
 
+       * progmodes/idlw-help.el (idlwave-help-link): Inherit from link
+       face.  Suggested by Joakim Verona.
+
        * comint.el (comint-highlight-prompt): Inherit minibuffer-prompt.
 
        * wid-edit.el (visibility): Replace :on-image and :off-image

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 9bf07deeffe5158c0f6df5dbfb2c6be9d6b95a01..e8531be05f8901828ae318801a65bf1cde74c52b 100644 (file)
--- 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 3f8245758f70b1f2deb11da4464bb74e665808f9..d4f458232ce258b7c600d5d49fa6576590107848 100644 (file)
--- 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)
 

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index 0674ccf730ab69424abd4a0e10a066a2669fde40..f8121beb231e23c682ef5c8def47b783eaa53a6f 100644 (file)
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -1,7 +1,7 @@
 ;;; idlw-help.el --- HTML Help code for IDLWAVE
 
 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
-;;   2009, 2010  Free Software Foundation, Inc.
+;;   2009, 2010, 2011  Free Software Foundation, Inc.
 ;;
 ;; Authors: J.D. Smith <jdsmith@as.arizona.edu>
 ;;          Carsten Dominik <dominik@science.uva.nl>
@@ -195,8 +195,7 @@ support."
   :type 'string)
 
 (defface idlwave-help-link
-  '((((class color)) (:foreground "Blue"))
-    (t (:weight bold)))
+  '((t :inherit link))
   "Face for highlighting links into IDLWAVE online help."
   :group 'idlwave-online-help)