Show
Ignore:
Timestamp:
07/29/06 07:48:34 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/textmodes/ispell.el

    r4098 r4131  
    16511651                    (if (not (equal new-word (car poss))) 
    16521652                        (progn 
    1653                           (delete-region start end) 
    1654                           (setq start (point)) 
     1653                          (goto-char start) 
     1654                          ;; Insert first and then delete, 
     1655                          ;; to avoid collapsing markers before and after 
     1656                          ;; into a single place. 
    16551657                          (ispell-insert-word new-word) 
     1658                          (delete-region (point) (+ (point) (- end start))) 
     1659                          ;; It is meaningless to preserve the cursor position 
     1660                          ;; inside a word that has changed. 
     1661                          (setq cursor-location (point)) 
    16561662                          (setq end (point)))) 
    16571663                    (if (not (atom replace)) ;recheck spelling of replacement