Mercurial > emacs
comparison lisp/textmodes/table.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
89908:ee1402f7b568 | 89909:68c22ea6027c |
---|---|
3 ;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Keywords: wp, convenience | 5 ;; Keywords: wp, convenience |
6 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> | 6 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> |
7 ;; Created: Sat Jul 08 2000 13:28:45 (PST) | 7 ;; Created: Sat Jul 08 2000 13:28:45 (PST) |
8 ;; Revised: jue jun 05 2003 22:00:02 (Hora de verano romance) | 8 ;; Revised: Tue Dec 09 2003 14:36:50 (PST) |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
834 ;;;###autoload | 834 ;;;###autoload |
835 (defcustom table-point-left-cell-hook nil | 835 (defcustom table-point-left-cell-hook nil |
836 "*List of functions to be called after point left a table cell." | 836 "*List of functions to be called after point left a table cell." |
837 :type 'hook | 837 :type 'hook |
838 :group 'table-hooks) | 838 :group 'table-hooks) |
839 | |
840 (defcustom table-yank-handler '(nil nil t nil) | |
841 "*yank-handler for table.") | |
839 | 842 |
840 (setplist 'table-disable-incompatibility-warning nil) | 843 (setplist 'table-disable-incompatibility-warning nil) |
841 | 844 |
842 (defvar table-disable-menu (null (and (locate-library "easymenu") | 845 (defvar table-disable-menu (null (and (locate-library "easymenu") |
843 (require 'easymenu) | 846 (require 'easymenu) |
5226 (table--put-cell-face-property beg end object) | 5229 (table--put-cell-face-property beg end object) |
5227 (table--put-cell-point-entered/left-property beg end object)) | 5230 (table--put-cell-point-entered/left-property beg end object)) |
5228 | 5231 |
5229 (defun table--put-cell-indicator-property (beg end &optional object) | 5232 (defun table--put-cell-indicator-property (beg end &optional object) |
5230 "Put cell property which indicates that the location is within a table cell." | 5233 "Put cell property which indicates that the location is within a table cell." |
5231 (put-text-property beg end 'table-cell t object)) | 5234 (put-text-property beg end 'table-cell t object) |
5235 (put-text-property beg end 'yank-handler table-yank-handler object)) | |
5232 | 5236 |
5233 (defun table--put-cell-face-property (beg end &optional object) | 5237 (defun table--put-cell-face-property (beg end &optional object) |
5234 "Put cell face property." | 5238 "Put cell face property." |
5235 (put-text-property beg end 'face 'table-cell-face object)) | 5239 (put-text-property beg end 'face 'table-cell-face object)) |
5236 | 5240 |
5585 ;; time-stamp-end: "$" *** | 5589 ;; time-stamp-end: "$" *** |
5586 ;; time-stamp-format: "%3a %3b %02d %:y %02H:%02M:%02S (%Z)" *** | 5590 ;; time-stamp-format: "%3a %3b %02d %:y %02H:%02M:%02S (%Z)" *** |
5587 ;; End: *** | 5591 ;; End: *** |
5588 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 5592 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
5589 | 5593 |
5594 ;;; arch-tag: 0d69b03e-aa5f-4e72-8806-5727217617e0 | |
5590 ;;; table.el ends here | 5595 ;;; table.el ends here |