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

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Martin Rudalics <m061211>       07/05/29 06:12:54

Index: table.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/table.el,v
retrieving revision 1.30
retrieving revision 1.30.2.1
diff -u -b -r1.30 -r1.30.2.1
--- table.el    21 Jan 2007 03:53:08 -0000      1.30
+++ table.el    29 May 2007 06:12:54 -0000      1.30.2.1
@@ -5333,21 +5333,25 @@
 (defun table--point-entered-cell-function (&optional old-point new-point)
   "Point has entered a cell.
 Refresh the menu bar."
+  ;; Avoid calling point-motion-hooks recursively.
+  (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)))
+      (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."
+  ;; Avoid calling point-motion-hooks recursively.
+  (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)))
+      (run-hooks 'table-point-left-cell-hook))))
 
 (defun table--warn-incompatibility ()
   "If called from interactive operation warn the know incompatibilities.