-See `ispell' for more information."
- (interactive)
- (condition-case err
- (catch 'quit
- (save-window-excursion
- (ispell-point (point) "at point."))
- (ispell-dump))
- (ispell-startup-error
- (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ")
- (load-library "spell")
- (define-key esc-map "$" 'spell-word)
- (spell-word))))))
+See `ispell' for more information.
+With a prefix argument, resume handling of the previous Ispell command."
+ (interactive "P")
+ (if resume
+ (ispell-next)
+ (condition-case err
+ (catch 'quit
+ (save-window-excursion
+ (ispell-point (point) "at point."))
+ (ispell-dump))
+ (ispell-startup-error
+ (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ")
+ (load-library "spell")
+ (define-key esc-map "$" 'spell-word)
+ (spell-word)))))))