From d524e7d6112cda2b53e3e0822609fa81b2dd6ee9 Mon Sep 17 00:00:00 2001
From: Achim Gratz <Stromeko@Stromeko.DE>
Date: Sun, 6 Jan 2013 17:48:39 +0100
Subject: [PATCH] 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 80e81349f..606db0814 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -44,6 +44,9 @@
 	  (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"