[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/sieve-mode.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/sieve-mode.el |
Date: |
Wed, 15 Jun 2005 23:48:35 -0400 |
Index: emacs/lisp/gnus/sieve-mode.el
diff -c emacs/lisp/gnus/sieve-mode.el:1.3 emacs/lisp/gnus/sieve-mode.el:1.4
*** emacs/lisp/gnus/sieve-mode.el:1.3 Thu May 26 15:03:29 2005
--- emacs/lisp/gnus/sieve-mode.el Thu Jun 16 03:48:19 2005
***************
*** 65,74 ****
;; Font-lock
! (defvar sieve-control-commands-face 'sieve-control-commands-face
"Face name used for Sieve Control Commands.")
! (defface sieve-control-commands-face
'((((type tty) (class color)) (:foreground "blue" :weight light))
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
--- 65,74 ----
;; Font-lock
! (defvar sieve-control-commands-face 'sieve-control-commands
"Face name used for Sieve Control Commands.")
! (defface sieve-control-commands
'((((type tty) (class color)) (:foreground "blue" :weight light))
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
***************
*** 77,98 ****
(t (:bold t)))
"Face used for Sieve Control Commands."
:group 'sieve)
! (defvar sieve-action-commands-face 'sieve-action-commands-face
"Face name used for Sieve Action Commands.")
! (defface sieve-action-commands-face
'((((type tty) (class color)) (:foreground "blue" :weight bold))
(((class color) (background light)) (:foreground "Blue"))
(((class color) (background dark)) (:foreground "LightSkyBlue"))
(t (:inverse-video t :bold t)))
"Face used for Sieve Action Commands."
:group 'sieve)
! (defvar sieve-test-commands-face 'sieve-test-commands-face
"Face name used for Sieve Test Commands.")
! (defface sieve-test-commands-face
'((((type tty) (class color)) (:foreground "magenta"))
(((class grayscale) (background light))
(:foreground "LightGray" :bold t :underline t))
--- 77,102 ----
(t (:bold t)))
"Face used for Sieve Control Commands."
:group 'sieve)
+ ;; backward-compatibility alias
+ (put 'sieve-control-commands-face 'face-alias 'sieve-control-commands)
! (defvar sieve-action-commands-face 'sieve-action-commands
"Face name used for Sieve Action Commands.")
! (defface sieve-action-commands
'((((type tty) (class color)) (:foreground "blue" :weight bold))
(((class color) (background light)) (:foreground "Blue"))
(((class color) (background dark)) (:foreground "LightSkyBlue"))
(t (:inverse-video t :bold t)))
"Face used for Sieve Action Commands."
:group 'sieve)
+ ;; backward-compatibility alias
+ (put 'sieve-action-commands-face 'face-alias 'sieve-action-commands)
! (defvar sieve-test-commands-face 'sieve-test-commands
"Face name used for Sieve Test Commands.")
! (defface sieve-test-commands
'((((type tty) (class color)) (:foreground "magenta"))
(((class grayscale) (background light))
(:foreground "LightGray" :bold t :underline t))
***************
*** 103,113 ****
(t (:bold t :underline t)))
"Face used for Sieve Test Commands."
:group 'sieve)
! (defvar sieve-tagged-arguments-face 'sieve-tagged-arguments-face
"Face name used for Sieve Tagged Arguments.")
! (defface sieve-tagged-arguments-face
'((((type tty) (class color)) (:foreground "cyan" :weight bold))
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
--- 107,119 ----
(t (:bold t :underline t)))
"Face used for Sieve Test Commands."
:group 'sieve)
+ ;; backward-compatibility alias
+ (put 'sieve-test-commands-face 'face-alias 'sieve-test-commands)
! (defvar sieve-tagged-arguments-face 'sieve-tagged-arguments
"Face name used for Sieve Tagged Arguments.")
! (defface sieve-tagged-arguments
'((((type tty) (class color)) (:foreground "cyan" :weight bold))
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
***************
*** 116,121 ****
--- 122,129 ----
(t (:bold t)))
"Face used for Sieve Tagged Arguments."
:group 'sieve)
+ ;; backward-compatibility alias
+ (put 'sieve-tagged-arguments-face 'face-alias 'sieve-tagged-arguments)
(defconst sieve-font-lock-keywords
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/sieve-mode.el,
Miles Bader <=