summaryrefslogtreecommitdiff
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2005-06-10 10:45:37 +0000
committerMiles Bader <miles@gnu.org>2005-06-10 10:45:37 +0000
commitb4c925d8e57082786c4f7dc5d209888fb8af0f82 (patch)
tree2eb83e8f731f69e7be54b2403ee39815a418c302 /lisp/textmodes
parentb390eb09fc4c6af8d36eede409ac5b5e6ec7593d (diff)
downloademacs-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.el10
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)