Mercurial > emacs
diff lisp/textmodes/ispell.el @ 104705:e8247765661a
(ispell-accept-output, ispell-command-loop): Use with-current-buffer.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sat, 29 Aug 2009 14:48:10 +0000 |
parents | 91afee51b252 |
children | 7a6d07def086 |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Sat Aug 29 14:46:56 2009 +0000 +++ b/lisp/textmodes/ispell.el Sat Aug 29 14:48:10 2009 +0000 @@ -1522,13 +1522,11 @@ ispell-output) (if (not (bufferp buf)) (setq ispell-filter nil) - (save-excursion - (set-buffer buf) + (with-current-buffer buf (setq ispell-output (buffer-substring-no-properties (point-min) (point-max)))) (ispell-filter t ispell-output) - (save-excursion - (set-buffer buf) + (with-current-buffer buf (erase-buffer))))))) (defun ispell-send-replacement (misspelled replacement) @@ -1871,8 +1869,7 @@ char num result textwin dedicated-win) ;; setup the *Choices* buffer with valid data. - (save-excursion - (set-buffer (get-buffer-create ispell-choices-buffer)) + (with-current-buffer (get-buffer-create ispell-choices-buffer) (setq mode-line-format (concat "-- %b -- word: " word " -- dict: " (or ispell-current-dictionary "default") @@ -2038,9 +2035,8 @@ word))) (if new-word (progn - (save-excursion - (set-buffer (get-buffer-create - ispell-choices-buffer)) + (with-current-buffer (get-buffer-create + ispell-choices-buffer) (erase-buffer) (setq count ?0 skipped 0