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/ispell.el

    r4196 r4210  
    16701670                          ;; into a single place. 
    16711671                          (ispell-insert-word new-word) 
    1672                           (delete-region (point) (+ (point) (- end start))) 
     1672                          (delete-region (point) end) 
    16731673                          ;; It is meaningless to preserve the cursor position 
    16741674                          ;; inside a word that has changed. 
    …… 
    17521752            (list "" (point) (point)) 
    17531753          (error "No word found to check!")) 
    1754       (setq start (match-beginning 0) 
    1755             end (point) 
     1754      (setq start (copy-marker (match-beginning 0)) 
     1755            end (point-marker) 
    17561756            word (buffer-substring-no-properties start end)) 
    17571757      (list word start end)))) 
    …… 
    24842484  "Start the ispell process, with support for no asynchronous processes. 
    24852485Keeps argument list for future ispell invocations for no async support." 
    2486   (let (args) 
     2486  (let ((default-directory default-directory) 
     2487        args) 
     2488    (unless (and (file-directory-p default-directory) 
     2489                 (file-readable-p default-directory)) 
     2490      ;; Defend against bad `default-directory'. 
     2491      (setq default-directory (expand-file-name "~/"))) 
    24872492    ;; Local dictionary becomes the global dictionary in use. 
    24882493    (setq ispell-current-dictionary