mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2009-08-29 14:48:10 +00:00
parent 3e344045c5
commit 0c3cc4dde1
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-08-29 Stefan Monnier <monnier@iro.umontreal.ca>
* 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

14
lisp/textmodes/ispell.el
View File

@ -1522,13 +1522,11 @@ pass it the output of the last ispell invocation."
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 @@ Global `ispell-quit' set to start location to continue spell session."
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 @@ Global `ispell-quit' set to start location to continue spell session."
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