diff options
author | Miles Bader <miles@gnu.org> | 2005-06-10 10:45:37 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2005-06-10 10:45:37 +0000 |
commit | b4c925d8e57082786c4f7dc5d209888fb8af0f82 (patch) | |
tree | 2eb83e8f731f69e7be54b2403ee39815a418c302 /lisp/textmodes | |
parent | b390eb09fc4c6af8d36eede409ac5b5e6ec7593d (diff) | |
download | emacs-b4c925d8e57082786c4f7dc5d209888fb8af0f82.tar.gz |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391
Remove "-face" suffix from table-cell face
2005-06-10 Miles Bader <miles@gnu.org>
* 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.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r-- | lisp/textmodes/table.el | 10 |
1 files changed, 6 insertions, 4 deletions
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) |