Mercurial > emacs
changeset 63227:6f4701bb40a7
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.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 10 Jun 2005 10:45:37 +0000 |
| parents | 33e854825b44 |
| children | 1cde198ddda6 |
| files | lisp/ChangeLog lisp/textmodes/table.el |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)