[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el

[Miles Bader]

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)