[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/29 14:48:14

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : ispell.el 

Log message:
        (ispell-accept-output, ispell-command-loop): Use with-current-buffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16047&r2=1.16048
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.254&r2=1.255

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16047
retrieving revision 1.16048
diff -u -b -r1.16047 -r1.16048
--- ChangeLog   29 Aug 2009 14:44:45 -0000      1.16047
+++ ChangeLog   29 Aug 2009 14:48:10 -0000      1.16048
@@ -1,5 +1,8 @@
 2009-08-29  Stefan Monnier  <address@hidden>
 
+       * textmodes/ispell.el (ispell-accept-output, ispell-command-loop):
+       Use with-current-buffer.
+
        * emacs-lisp/bytecomp.el (byte-compile-const-symbol-p):
        Recognize immutable variables like most-positive-fixnum.
        (byte-compile-setq-default): Check and warn if trying to assign

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.254
retrieving revision 1.255
diff -u -b -r1.254 -r1.255
--- textmodes/ispell.el 28 Aug 2009 16:29:29 -0000      1.254
+++ textmodes/ispell.el 29 Aug 2009 14:48:13 -0000      1.255
@@ -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