Selaa lähdekoodia

Compatibility: Define face alias mode-line for XEmacs

* lisp/org-faces.el: Define face alias mode-line for XEmacs (it's
  called modeline there).
Achim Gratz 12 vuotta sitten
vanhempi
commit
d524e7d611
1 muutettua tiedostoa jossa 3 lisäystä ja 0 poistoa
  1. 3 0
      lisp/org-faces.el

+ 3 - 0
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"