Browse Source

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 năm trước cách đây
mục cha
commit
d524e7d611
1 tập tin đã thay đổi với 3 bổ sung0 xóa
  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"