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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/05/29 23:19:43

Index: lisp/textmodes/table.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/table.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- lisp/textmodes/table.el     21 Jan 2007 03:53:08 -0000      1.30
+++ lisp/textmodes/table.el     29 May 2007 23:19:40 -0000      1.31
@@ -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.