From b4c925d8e57082786c4f7dc5d209888fb8af0f82 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 10 Jun 2005 10:45:37 +0000 Subject: [PATCH] Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face 2005-06-10 Miles Bader * lisp/textmodes/table.el (table-cell): Remove "-face" suffix from face name. (table-cell-face): New backward-compatibility alias for renamed face. (table--put-cell-face-property, table--update-cell-face): Use renamed table-cell face. --- lisp/ChangeLog | 6 ++++++ lisp/textmodes/table.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b7338f31fd..84cc6c6ee22 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2005-06-10 Miles Bader + * textmodes/table.el (table-cell): Remove "-face" suffix from face + name. + (table-cell-face): New backward-compatibility alias for renamed face. + (table--put-cell-face-property, table--update-cell-face): + Use renamed table-cell face. + * textmodes/sgml-mode.el (sgml-namespace): Remove "-face" suffix from face name. (sgml-namespace-face): New backward-compatibility alias for diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 430a196166f..af13c2fe61c 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el @@ -682,7 +682,7 @@ height." :tag "Table Command Prefix" :group 'table) -(defface table-cell-face +(defface table-cell '((((min-colors 88) (class color)) (:foreground "gray90" :background "blue1")) (((class color)) @@ -691,6 +691,8 @@ height." "*Face used for table cell contents." :tag "Cell Face" :group 'table) +;; backward-compatibility alias +(put 'table-cell-face 'face-alias 'table-cell) (defcustom table-cell-horizontal-chars "-=" "*Characters that may be used for table cell's horizontal border line." @@ -5264,7 +5266,7 @@ and the right cell border character." (defun table--put-cell-face-property (beg end &optional object) "Put cell face property." - (put-text-property beg end 'face 'table-cell-face object)) + (put-text-property beg end 'face 'table-cell object)) (defun table--put-cell-keymap-property (beg end &optional object) "Put cell keymap property." @@ -5303,8 +5305,8 @@ instead of the current buffer and returns the OBJECT." (defun table--update-cell-face () "Update cell face according to the current mode." (if (featurep 'xemacs) - (set-face-property 'table-cell-face 'underline table-fixed-width-mode) - (set-face-inverse-video-p 'table-cell-face table-fixed-width-mode))) + (set-face-property 'table-cell 'underline table-fixed-width-mode) + (set-face-inverse-video-p 'table-cell table-fixed-width-mode))) (table--update-cell-face) -- 2.39.5