comparison lisp/textmodes/table.el @ 63227:6f4701bb40a7

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face 2005-06-10 Miles Bader <[e-mail]> * 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.

63226:33e854825b44

  "*Key sequence to be used as prefix for table command key bindings."
  :type '(vector (repeat :inline t sexp))
  :tag "Table Command Prefix"
  :group 'table)

(defface table-cell-face
  '((((min-colors 88) (class color))
     (:foreground "gray90" :background "blue1"))
    (((class color))
     (:foreground "gray90" :background "blue"))
    (t (:bold t)))
  "*Face used for table cell contents."
  :tag "Cell Face"
  :group 'table)

(defcustom table-cell-horizontal-chars "-="
  "*Characters that may be used for table cell's horizontal border line."
  :tag "Cell Horizontal Boundary Characters"
  :type 'string

  (put-text-property beg end 'table-cell t object)
  (put-text-property beg end 'yank-handler table-yank-handler object))

(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."
  (put-text-property beg end 'keymap 'table-cell-map object))

  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)))

(table--update-cell-face)

(defun table--get-property (cell property)
  "Get CELL's PROPERTY."

63227:6f4701bb40a7

  "*Key sequence to be used as prefix for table command key bindings."
  :type '(vector (repeat :inline t sexp))
  :tag "Table Command Prefix"
  :group 'table)

(defface table-cell
  '((((min-colors 88) (class color))
     (:foreground "gray90" :background "blue1"))
    (((class color))
     (:foreground "gray90" :background "blue"))
    (t (:bold t)))
  "*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."
  :tag "Cell Horizontal Boundary Characters"
  :type 'string

  (put-text-property beg end 'table-cell t object)
  (put-text-property beg end 'yank-handler table-yank-handler object))

(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."
  (put-text-property beg end 'keymap 'table-cell-map object))

  object)

(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)

(defun table--get-property (cell property)
  "Get CELL's PROPERTY."