[Emacs-diffs] /srv/bzr/emacs/trunk r102806: Make org-link and idlwave-help-link inherit from link face.

[Chong Yidong]

------------------------------------------------------------
revno: 102806
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-01-09 16:24:07 -0500
message:
  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.
modified:
  lisp/ChangeLog
  lisp/org/ChangeLog
  lisp/org/org-faces.el
  lisp/progmodes/idlw-help.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-09 21:07:30 +0000
+++ b/lisp/ChangeLog    2011-01-09 21:24:07 +0000
@@ -1,5 +1,8 @@
 2011-01-09  Chong Yidong  <address@hidden>
 
+       * 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

=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog        2010-12-13 17:27:56 +0000
+++ b/lisp/org/ChangeLog        2011-01-09 21:24:07 +0000
@@ -1,3 +1,8 @@
+2011-01-09  Chong Yidong  <address@hidden>
+
+       * org-faces.el (org-link): Inherit from link face.
+       Suggested by Joakim Verona.
+
 2010-12-11  Tassilo Horn  <address@hidden>
 
        * org-footnote.el (org-footnote-create-definition): Place

=== modified file 'lisp/org/org-faces.el'
--- a/lisp/org/org-faces.el     2010-12-11 16:42:53 +0000
+++ b/lisp/org/org-faces.el     2011-01-09 21:24:07 +0000
@@ -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 @@
   :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)
 

=== modified file 'lisp/progmodes/idlw-help.el'
--- a/lisp/progmodes/idlw-help.el       2010-12-10 20:00:25 +0000
+++ b/lisp/progmodes/idlw-help.el       2011-01-09 21:24:07 +0000
@@ -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 <address@hidden>
 ;;          Carsten Dominik <address@hidden>
@@ -195,8 +195,7 @@
   :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)