From d524e7d6112cda2b53e3e0822609fa81b2dd6ee9 Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Sun, 6 Jan 2013 17:48:39 +0100 Subject: [PATCH 2/3] Compatibility: Define face alias mode-line for XEmacs * lisp/org-faces.el: Define face alias mode-line for XEmacs (it's called modeline there). --- lisp/org-faces.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 80e8134..606db08 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -44,6 +44,9 @@ (defun org-copy-face (old-face new-face docstring &rest attributes) (set-face-doc-string new-face docstring))))) (put 'org-copy-face 'lisp-indent-function 2) +(when (featurep 'xemacs) + (put 'mode-line 'face-alias 'modeline)) + (defgroup org-faces nil "Faces in Org-mode." :tag "Org Faces" -- 1.8.1