[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el

[Juanma Barranquero]

Index: emacs/lisp/textmodes/table.el
diff -c emacs/lisp/textmodes/table.el:1.3 emacs/lisp/textmodes/table.el:1.4
*** emacs/lisp/textmodes/table.el:1.3   Sun Nov 17 17:31:53 2002
--- emacs/lisp/textmodes/table.el       Tue Feb  4 08:30:45 2003
***************
*** 1543,1549 ****
  
  Cell width(s): 14 6 32
  
! instead of 
  
  Cell width(s): 5
  
--- 1543,1549 ----
  
  Cell width(s): 14 6 32
  
! instead of
  
  Cell width(s): 5
  
***************
*** 3161,3167 ****
         ((eq language 'cals)
        (insert "      </row>\n")
        (unless (/= (table-get-source-info 'current-row) table-cals-thead-rows)
!         (insert (format "    </%s>\n" (table-get-source-info 'row-type)))     
  
          (insert (format "    <%s valign=\"top\">\n" (table-put-source-info 
'row-type "tbody")))))))
      (table-put-source-info 'current-row (1+ (table-get-source-info 
'current-row)))
      (setq row-list (cdr row-list))))
--- 3161,3167 ----
         ((eq language 'cals)
        (insert "      </row>\n")
        (unless (/= (table-get-source-info 'current-row) table-cals-thead-rows)
!         (insert (format "    </%s>\n" (table-get-source-info 'row-type)))
          (insert (format "    <%s valign=\"top\">\n" (table-put-source-info 
'row-type "tbody")))))))
      (table-put-source-info 'current-row (1+ (table-get-source-info 
'current-row)))
      (setq row-list (cdr row-list))))
***************
*** 3811,3817 ****
      (unless (looking-at "\\s *$")
        (save-excursion
        (insert ?\n)))
!     ;; insert the table 
      ;; insert the cell contents
      (if (null contents-list)
        ;; single cell
--- 3811,3817 ----
      (unless (looking-at "\\s *$")
        (save-excursion
        (insert ?\n)))
!     ;; insert the table
      ;; insert the cell contents
      (if (null contents-list)
        ;; single cell
***************
*** 5230,5236 ****
  (defun table--put-cell-rear-nonsticky (beg end &optional object)
    "Put rear-nonsticky property."
    (put-text-property beg end 'rear-nonsticky t object))
!   
  (defun table--put-cell-point-entered/left-property (beg end &optional object)
    "Put point-entered/left property."
    (put-text-property beg end 'point-entered 
'table--point-entered-cell-function object)
--- 5230,5236 ----
  (defun table--put-cell-rear-nonsticky (beg end &optional object)
    "Put rear-nonsticky property."
    (put-text-property beg end 'rear-nonsticky t object))
! 
  (defun table--put-cell-point-entered/left-property (beg end &optional object)
    "Put point-entered/left property."
    (put-text-property beg end 'point-entered 
'table--point-entered-cell-function object)