Show
Ignore:
Timestamp:
06/02/07 09:29:41 (1 year ago)
Author:
miyoshi
Message:

Sync up with Emacs_22_BASE.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/textmodes/table.el

    r4190 r4210  
    53345334  "Point has entered a cell. 
    53355335Refresh the menu bar." 
    5336   (unless table-cell-entered-state 
    5337     (setq table-cell-entered-state t) 
    5338     (setq table-mode-indicator t) 
    5339     (force-mode-line-update) 
    5340     (table--warn-incompatibility) 
    5341     (run-hooks 'table-point-entered-cell-hook))) 
     5336  ;; Avoid calling point-motion-hooks recursively. 
     5337  (let ((inhibit-point-motion-hooks t)) 
     5338    (unless table-cell-entered-state 
     5339      (setq table-cell-entered-state t) 
     5340      (setq table-mode-indicator t) 
     5341      (force-mode-line-update) 
     5342      (table--warn-incompatibility) 
     5343      (run-hooks 'table-point-entered-cell-hook)))) 
    53425344 
    53435345(defun table--point-left-cell-function (&optional old-point new-point) 
    53445346  "Point has left a cell. 
    53455347Refresh the menu bar." 
    5346   (when table-cell-entered-state 
    5347     (setq table-cell-entered-state nil) 
    5348     (setq table-mode-indicator nil) 
    5349     (force-mode-line-update) 
    5350     (run-hooks 'table-point-left-cell-hook))) 
     5348  ;; Avoid calling point-motion-hooks recursively. 
     5349  (let ((inhibit-point-motion-hooks t)) 
     5350    (when table-cell-entered-state 
     5351      (setq table-cell-entered-state nil) 
     5352      (setq table-mode-indicator nil) 
     5353      (force-mode-line-update) 
     5354      (run-hooks 'table-point-left-cell-hook)))) 
    53515355 
    53525356(defun table--warn-incompatibility ()