Mercurial > emacs
changeset 53367:fbdcff26f02a
(table-yank-handler): New defcustom.
(table--put-cell-indicator-property): Put yank-handler property
that indicates the yank handler for the table cell.
| author | Eli Zaretskii <eliz@is.elta.co.il> |
|---|---|
| date | Mon, 29 Dec 2003 11:29:31 +0000 |
| parents | 68a9f6cc8cd5 |
| children | 6dab9150c9e0 |
| files | lisp/textmodes/table.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/table.el Mon Dec 29 11:29:18 2003 +0000 +++ b/lisp/textmodes/table.el Mon Dec 29 11:29:31 2003 +0000 @@ -5,7 +5,7 @@ ;; Keywords: wp, convenience ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> ;; Created: Sat Jul 08 2000 13:28:45 (PST) -;; Revised: jue jun 05 2003 22:00:02 (Hora de verano romance) +;; Revised: Tue Dec 09 2003 14:36:50 (PST) ;; This file is part of GNU Emacs. @@ -837,6 +837,9 @@ :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") @@ -5228,7 +5231,8 @@ (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 '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."