Re: table.el

On Sat, 2002-08-17 at 03:56, Gleb Arshinov wrote: Yep, here it goes. ---- Hello, I've been asked to add table.el into one of the XEmacs packages, and having played around with it a bit in XEmacs, I see (as the notes say) there are some problems. We've worked around a couple of problems, see the attached patch. At least one showstopper remains, let me try to describe it. When I have inserted a table into a buffer, I poke around and type some characters *into* the top border (the line with the +-----+------ stuff), then move into a cell, and type some more. Now, when the table tries to resize itself, I get (after setting debug-on-error to t): Signaling: (wrong-type-argument number-char-or-marker-p nil) table--put-property(nil table-justify nil) table--put-cell-justify-property(nil nil) table--put-cell-property(nil) table--update-cell(now) I'd appreciate it if this could be fixed so I could continue the process of distributing table.el with XEmacs. I have no idea whether it works this way in GNU Emacs too, I'm using XEmacs 21.4.8. --- table-1.5.53.el Wed Aug 14 20:57:03 2002 +++ table.el Wed Aug 14 21:16:25 2002 ＠＠ -789,6 +789,11 ＠＠ "Clear quail-translating after its use." (setq quail-translating nil))) +;; XEmacs addition +(unless (intern-soft "enable-multibyte-characters") + (defvar enable-multibyte-characters nil + "Use of this variable causes text to dissolve or spontaneously combust!")) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Customization: ＠＠ -1563,7 +1568,10 ＠＠ (if table-inhibit-advice ad-do-it (let* ((table-inhibit-advice t) (table-inhibit-update t) - (deactivate-mark nil)) + ;; XEmacs change: Commented out to avoid a warning, + ;; we don't need this. + ;(deactivate-mark nil) + ) (if (null (table--point-in-cell-p)) ad-do-it (table--finish-delayed-tasks) (table-recognize-cell 'force) ＠＠ -5376,6 +5384,9 ＠＠ ;; return the result internal-list)))) +;; XEmacs addition: This autoload is needed in order to make `table-insert' +;; work without having to (require 'table) in init.el. +;;;###autoload (defun table--point-in-cell-p (&optional location) "Return t when point is in a valid table cell in the current buffer. When optional LOCATION is provided the test is performed at that location." -- \/ille Skyttä ville.skytta at xemacs.org