*** table.el	Tue Jan 23 06:41:12 2007
--- table.el	Mon May 28 14:33:00 2007
***************
*** 6,12 ****
  ;; Keywords: wp, convenience
  ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
  ;; Created: Sat Jul 08 2000 13:28:45 (PST)
! ;; Revised: Wed Jan 03 2007 13:23:46 (PST)

  ;; This file is part of GNU Emacs.

--- 6,12 ----
  ;; Keywords: wp, convenience
  ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
  ;; Created: Sat Jul 08 2000 13:28:45 (PST)
! ;; Revised: Mon Mai 28 2007 14:33:01 ((MEZ) - Mitteleurop. Sommerzeit)

  ;; This file is part of GNU Emacs.

***************
*** 5333,5353 ****
  (defun table--point-entered-cell-function (&optional old-point new-point)
    "Point has entered a cell.
  Refresh the menu bar."
!   (unless table-cell-entered-state
!     (setq table-cell-entered-state t)
!     (setq table-mode-indicator t)
!     (force-mode-line-update)
!     (table--warn-incompatibility)
!     (run-hooks 'table-point-entered-cell-hook)))

  (defun table--point-left-cell-function (&optional old-point new-point)
    "Point has left a cell.
  Refresh the menu bar."
!   (when table-cell-entered-state
!     (setq table-cell-entered-state nil)
!     (setq table-mode-indicator nil)
!     (force-mode-line-update)
!     (run-hooks 'table-point-left-cell-hook)))

  (defun table--warn-incompatibility ()
    "If called from interactive operation warn the know incompatibilities.
--- 5333,5355 ----
  (defun table--point-entered-cell-function (&optional old-point new-point)
    "Point has entered a cell.
  Refresh the menu bar."
!   (let ((inhibit-point-motion-hooks t))
!     (unless table-cell-entered-state
!       (setq table-cell-entered-state t)
!       (setq table-mode-indicator t)
!       (force-mode-line-update)
!       (table--warn-incompatibility)
!       (run-hooks 'table-point-entered-cell-hook))))

  (defun table--point-left-cell-function (&optional old-point new-point)
    "Point has left a cell.
  Refresh the menu bar."
!   (let ((inhibit-point-motion-hooks t))
!     (when table-cell-entered-state
!       (setq table-cell-entered-state nil)
!       (setq table-mode-indicator nil)
!       (force-mode-line-update)
!       (run-hooks 'table-point-left-cell-hook))))

  (defun table--warn-incompatibility ()
    "If called from interactive operation warn the know incompatibilities.