diff options
| -rw-r--r-- | lisp/mh-e/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <lute@gnu.org> + + * 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 <miles@gnu.org> * 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.") |