[PATCH] face: make org-link inherit from link

[PATCH] face: make org-link inherit from link

[Julien Danjou]

* org-faces.el (org-link): Make org-link inherits from link face.

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 lisp/org-faces.el |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index bd509ae..aeadb9b 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -247,9 +247,10 @@ 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)))
+  (org-compatible-face 'link
+    '((((class color) (background light)) (:foreground "Purple" :underline t))
+      (((class color) (background dark)) (:foreground "Cyan" :underline t))
+      (t (:underline t))))
   "Face for links."
   :group 'org-faces)
 
-- 
1.7.2.3

[Accepted] face: make org-link inherit from link

[Bastien Guerry]

Patch 576 (http://patchwork.newartisans.com/patch/576/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C1296663684-2312-1-git-send-email-julien%40danjou.info%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] face: make org-link inherit from link
> Date: Wed, 02 Feb 2011 21:21:24 -0000
> From: Julien Danjou <julien@danjou.info>
> X-Patchwork-Id: 576
> Message-Id: <1296663684-2312-1-git-send-email-julien@danjou.info>
> To: emacs-orgmode@gnu.org
> Cc: Julien Danjou <julien@danjou.info>
> 
> * org-faces.el (org-link): Make org-link inherits from link face.
> 
> Signed-off-by: Julien Danjou <julien@danjou.info>
> 
> ---
> lisp/org-faces.el |    7 ++++---
>  1 files changed, 4 insertions(+), 3 deletions(-)
> 
> diff --git a/lisp/org-faces.el b/lisp/org-faces.el
> index bd509ae..aeadb9b 100644
> --- a/lisp/org-faces.el
> +++ b/lisp/org-faces.el
> @@ -247,9 +247,10 @@ 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)))
> +  (org-compatible-face 'link
> +    '((((class color) (background light)) (:foreground "Purple" :underline t))
> +      (((class color) (background dark)) (:foreground "Cyan" :underline t))
> +      (t (:underline t))))
>    "Face for links."
>    :group 'org-faces)
>  
>