[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el |
Date: |
Fri, 10 Jun 2005 06:45:39 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/table.el,
Miles Bader <=