From b4c925d8e57082786c4f7dc5d209888fb8af0f82 Mon Sep 17 00:00:00 2001
From: Miles Bader <miles@gnu.org>
Date: Fri, 10 Jun 2005 10:45:37 +0000
Subject: 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.
---
lisp/textmodes/table.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
(limited to 'lisp/textmodes')
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)
--
cgit v1.2.1