Index: emacs/lisp/textmodes/table.el
diff -c emacs/lisp/textmodes/table.el:1.15 emacs/lisp/textmodes/table.el:1.16
*** emacs/lisp/textmodes/table.el:1.15 Sat May 21 11:37:08 2005
--- emacs/lisp/textmodes/table.el Fri Jun 10 10:45:37 2005
***************
*** 682,688 ****
:tag "Table Command Prefix"
:group 'table)
! (defface table-cell-face
'((((min-colors 88) (class color))
(:foreground "gray90" :background "blue1"))
(((class color))
--- 682,688 ----
:tag "Table Command Prefix"
:group 'table)
! (defface table-cell
'((((min-colors 88) (class color))
(:foreground "gray90" :background "blue1"))
(((class color))
***************
*** 691,696 ****
--- 691,698 ----
"*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,5270 ****
(defun table--put-cell-face-property (beg end &optional object)
"Put cell face property."
! (put-text-property beg end 'face 'table-cell-face object))
(defun table--put-cell-keymap-property (beg end &optional object)
"Put cell keymap property."
--- 5266,5272 ----
(defun table--put-cell-face-property (beg end &optional object)
"Put cell face property."
! (put-text-property beg end 'face 'table-cell object))
(defun table--put-cell-keymap-property (beg end &optional object)
"Put cell keymap property."
***************
*** 5303,5310 ****
(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)))
(table--update-cell-face)
--- 5305,5312 ----
(defun table--update-cell-face ()
"Update cell face according to the current mode."
(if (featurep 'xemacs)
! (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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
