Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0c3cc4dd
Commit
0c3cc4dd
authored
Aug 29, 2009
by
Stefan Monnier
Browse files
(ispell-accept-output, ispell-command-loop): Use with-current-buffer.
parent
3e344045
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
9 deletions
+8
-9
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/textmodes/ispell.el
lisp/textmodes/ispell.el
+5
-9
No files found.
lisp/ChangeLog
View file @
0c3cc4dd
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
...
...
lisp/textmodes/ispell.el
View file @
0c3cc4dd
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment