Explorar el Código

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 hace 12 años
padre
commit
d524e7d611
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  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"