# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118400337 0
# Node ID 6f4701bb40a71b492ecfed2dbc26d2adff98090b
# Parent  33e854825b44b512010031422678de4e80085eb1
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.

diff -r 33e854825b44 -r 6f4701bb40a7 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 10 10:45:17 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 10:45:37 2005 +0000
@@ -1,5 +1,11 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* 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 -r 33e854825b44 -r 6f4701bb40a7 lisp/textmodes/table.el
--- a/lisp/textmodes/table.el	Fri Jun 10 10:45:17 2005 +0000
+++ b/lisp/textmodes/table.el	Fri Jun 10 10:45:37 2005 +0000
@@ -682,7 +682,7 @@
   :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 @@
   "*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 @@
 
 (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 @@
 (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)