Просмотр исходного кода

New face: org-default.

* install/git/org-mode/lisp/org.el (org-mode): Use org-default as
the default face in org-mode.

* install/git/org-mode/lisp/org-faces.el (org-default): New face.

M-x customize-face RET org-default RET lets the user define a default
face for org-mode.
Bastien Guerry 13 лет назад
Родитель
Сommit
7a88eaec29
2 измененных файлов с 7 добавлено и 0 удалено
  1. 5 0
      lisp/org-faces.el
  2. 2 0
      lisp/org.el

+ 5 - 0
lisp/org-faces.el

@@ -51,6 +51,11 @@
   :tag "Org Faces"
   :group 'org-appearance)
 
+(defface org-default
+  (org-compatible-face 'default nil)
+  "Face used for default text."
+  :group 'org-faces)
+
 (defface org-hide
   '((((background light)) (:foreground "white"))
     (((background dark)) (:foreground "black")))

+ 2 - 0
lisp/org.el

@@ -4829,6 +4829,8 @@ The following commands are available:
   (set (make-local-variable 'pcomplete-parse-arguments-function)
        'org-parse-arguments)
   (set (make-local-variable 'pcomplete-termination-string) "")
+  (set (make-local-variable 'face-remapping-alist)
+       '((default org-default)))
 
   ;; If empty file that did not turn on org-mode automatically, make it to.
   (if (and org-insert-mode-line-in-empty-file