comparison lisp/textmodes/table.el @ 89909:68c22ea6027c

Sync to HEAD

89908:ee1402f7b568

;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.

;; Keywords: wp, convenience
;; Author: Takaaki Ota <[e-mail]>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
;; Revised: jue jun 05 2003 22:00:02 (Hora de verano romance)

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;;###autoload
(defcustom table-point-left-cell-hook nil
  "*List of functions to be called after point left a table cell."
  :type 'hook
  :group 'table-hooks)

(setplist 'table-disable-incompatibility-warning nil)

(defvar table-disable-menu (null (and (locate-library "easymenu")
				      (require 'easymenu)

  (table--put-cell-face-property beg end object)
  (table--put-cell-point-entered/left-property beg end object))

(defun table--put-cell-indicator-property (beg end &optional object)
  "Put cell property which indicates that the location is within a table cell."
  (put-text-property beg end 'table-cell t 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))

;; time-stamp-end: "$" ***
;; time-stamp-format: "%3a %3b %02d %:y %02H:%02M:%02S (%Z)" ***
;; End: ***
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; table.el ends here

89909:68c22ea6027c

;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.

;; Keywords: wp, convenience
;; Author: Takaaki Ota <[e-mail]>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
;; Revised: Tue Dec 09 2003 14:36:50 (PST)

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;;###autoload
(defcustom table-point-left-cell-hook nil
  "*List of functions to be called after point left a table cell."
  :type 'hook
  :group 'table-hooks)

(defcustom table-yank-handler '(nil nil t nil)
  "*yank-handler for table.")

(setplist 'table-disable-incompatibility-warning nil)

(defvar table-disable-menu (null (and (locate-library "easymenu")
				      (require 'easymenu)

  (table--put-cell-face-property beg end object)
  (table--put-cell-point-entered/left-property beg end object))

(defun table--put-cell-indicator-property (beg end &optional object)
  "Put cell property which indicates that the location is within a table cell."
  (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))

;; time-stamp-end: "$" ***
;; time-stamp-format: "%3a %3b %02d %:y %02H:%02M:%02S (%Z)" ***
;; End: ***
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; arch-tag: 0d69b03e-aa5f-4e72-8806-5727217617e0
;;; table.el ends here