From 06266fbb1e1269487bbdcfbac9ce25b4c944b4ac Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Fri, 17 Jun 2005 09:42:29 +0000 Subject: [PATCH] (mh-folder-body-face, mh-folder-cur-msg-face) (mh-folder-cur-msg-number-face): New backward-compatibility aliases for renamed faces. --- lisp/mh-e/ChangeLog | 6 ++++++ lisp/mh-e/mh-customize.el | 12 +++--------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index aad03a33077..91d9e057263 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,9 @@ +2005-06-17 Lute Kamstra + + * mh-customize.el (mh-folder-body-face, mh-folder-cur-msg-face) + (mh-folder-cur-msg-number-face): New backward-compatibility + aliases for renamed faces. + 2005-06-17 Miles Bader * mh-customize.el (mh-folder-body, mh-folder-cur-msg) diff --git a/lisp/mh-e/mh-customize.el b/lisp/mh-e/mh-customize.el index 7aad0798ae0..5c13e8d93e6 100644 --- a/lisp/mh-e/mh-customize.el +++ b/lisp/mh-e/mh-customize.el @@ -2156,9 +2156,7 @@ will be removed from the unseen sequence." "Face used to highlight body text in MH-Folder buffers." :group 'mh-folder-faces) ;; backward-compatibility alias -(put 'mh-folder-body 'face-alias 'mh-folder-body) -;; backward-compatibility alias -(put ''mh-folder-body-face 'face-alias ''mh-folder-body) +(put 'mh-folder-body-face 'face-alias 'mh-folder-body) (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg "Face used for the current message line in MH-Folder buffers.") @@ -2175,9 +2173,7 @@ will be removed from the unseen sequence." "Face used for the current message line in MH-Folder buffers." :group 'mh-folder-faces) ;; backward-compatibility alias -(put 'mh-folder-cur-msg 'face-alias 'mh-folder-cur-msg) -;; backward-compatibility alias -(put ''mh-folder-cur-msg-face 'face-alias ''mh-folder-cur-msg) +(put 'mh-folder-cur-msg-face 'face-alias 'mh-folder-cur-msg) (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number "Face used to highlight the current message in MH-Folder buffers.") @@ -2191,9 +2187,7 @@ will be removed from the unseen sequence." "Face used to highlight the current message in MH-Folder buffers." :group 'mh-folder-faces) ;; backward-compatibility alias -(put 'mh-folder-cur-msg-number 'face-alias 'mh-folder-cur-msg-number) -;; backward-compatibility alias -(put ''mh-folder-cur-msg-number-face 'face-alias ''mh-folder-cur-msg-number) +(put 'mh-folder-cur-msg-number-face 'face-alias 'mh-folder-cur-msg-number) (defvar mh-folder-date-face 'mh-folder-date "Face used to highlight the date in MH-Folder buffers.") -- 2.39.2