Re: table.el

[xemacs-beta cc'd, please continue to do so in replies] On Sat, 2003-01-04 at 04:27, Tak Ota wrote: Ah, good! I'm eagerly waiting for it to work! See the attached screenshots. table1.png shows the initial state where I am about to type something into the top border. table2.png is when I've typed 'foobar' into the border and am about to type something into the first cell. table3.png is when I've typed "te" into the first cell; the "e" isn't visible because it has caused an error, see the attached backtrace.txt. This was done with XEmacs 21.4.11 and table.el 1.5.54, with my patch from the above thread applied. I can't help out with this one. Anybody? Thanks. -- \/ille Skyttä scop at xemacs.org Signaling: (wrong-type-argument number-char-or-marker-p nil) 1+(nil) (put-text-property beg (1+ beg) property value) (let ((beg ...) (end ...)) (put-text-property beg (1+ beg) property value) (put-text-property (1- end) end property value)) table--put-property(nil table-justify nil) table--put-cell-justify-property(nil nil) (save-excursion (while (<= ... ...) (let ... ...) (setcdr lu ...)) (table--put-cell-justify-property cell table-cell-info-justify) (table--put-cell-valign-property cell table-cell-info-valign)) (let ((lu ...) (rb ...)) (save-excursion (while ... ... ...) (table--put-cell-justify-property cell table-cell-info-justify) (table--put-cell-valign-property cell table-cell-info-valign))) table--put-cell-property(nil) (let* ((cell ...)) (table--put-cell-property cell) (table--put-cell-justify-property cell table-cell-info-justify) (table--put-cell-valign-property cell table-cell-info-valign)) (let ((cache-buffer ...) (org-coord ...) (in-cell ...) rectangle) (set-buffer cache-buffer) (setq rectangle (extract-rectangle 1 ...)) (set-buffer table-cell-buffer) (delete-rectangle (table--goto-coordinate table-cell-info-lu-coordinate) (table--goto-coordinate table-cell-info-rb-coordinate)) (table--goto-coordinate table-cell-info-lu-coordinate) (table--insert-rectangle rectangle) (let* (...) (table--put-cell-property cell) (table--put-cell-justify-property cell table-cell-info-justify) (table--put-cell-valign-property cell table-cell-info-valign)) (table--goto-coordinate (if in-cell ... org-coord))) (save-current-buffer (set-buffer table-cell-buffer) (let (... ... ... rectangle) (set-buffer cache-buffer) (setq rectangle ...) (set-buffer table-cell-buffer) (delete-rectangle ... ...) (table--goto-coordinate table-cell-info-lu-coordinate) (table--insert-rectangle rectangle) (let* ... ... ... ...) (table--goto-coordinate ...))) (if (or (not now) (and ... quail-converting) (and ... quail-translating)) (setq table-update-timer (table--set-timer table-time-before-update ... ...)) (save-current-buffer (set-buffer table-cell-buffer) (let ... ... ... ... ... ... ... ... ...)) (if (and overwrite-mode ...) (setq buffer-undo-list ...))) (let ((table-inhibit-advice t)) (if (null table-update-timer) nil (table--cancel-timer table-update-timer) (setq table-update-timer nil)) (if (or ... ... ...) (setq table-update-timer ...) (save-current-buffer ... ...) (if ... ...))) table--update-cell(now)