[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el, v [EMACS_22_BASE
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el, v [EMACS_22_BASE] |
Date: |
Tue, 29 May 2007 06:12:55 +0000 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/table.el, v [EMACS_22_BASE],
Martin Rudalics <=