diff options
| author | Agustín Martín <agustin.martin@hispalinux.es> | 2009-01-05 17:45:53 +0000 |
|---|---|---|
| committer | Agustín Martín <agustin.martin@hispalinux.es> | 2009-01-05 17:45:53 +0000 |
| commit | 0764ed3749c97bc7c18dab9dc63c6e395d348cb4 (patch) | |
| tree | ac06f4df9e5d05fe8d812ce7b56bc5d80a169cde /lisp | |
| parent | 638a245702c710dd80a2ea3b743b5afd10e1a740 (diff) | |
| download | emacs-0764ed3749c97bc7c18dab9dc63c6e395d348cb4.tar.gz emacs-0764ed3749c97bc7c18dab9dc63c6e395d348cb4.tar.bz2 emacs-0764ed3749c97bc7c18dab9dc63c6e395d348cb4.zip | |
textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 14 |
2 files changed, 9 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6bdc92cf23d..626d38963c9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,10 @@ +2009-01-05 Agustín Martín <agustin.martin@hispalinux.es> + + * textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer) + 2009-01-05 Richard M Stallman <rms@gnu.org> - * mail/sendmail.el (mail-bury): Treat pmail-mode like rmail-mode. + * mail/sendmail.el (mail-bury): Treat pmail-mode like rmail-mode. 2009-01-05 Martin Rudalics <rudalics@gmx.at> diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 50aa643b585..23a75369b38 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -744,18 +744,14 @@ Otherwise returns the library directory name, if that is defined." ;; all versions, since versions earlier than 3.0.09 didn't identify ;; themselves on startup. (interactive "p") - (let ((case-fold-search-val case-fold-search) - ;; avoid bugs when syntax of `.' changes in various default modes + (let (;; avoid bugs when syntax of `.' changes in various default modes (default-major-mode 'fundamental-mode) (default-directory (or (and (boundp 'temporary-file-directory) temporary-file-directory) default-directory)) result status ispell-program-version) - (save-excursion - (let ((buf (get-buffer " *ispell-tmp*"))) - (if buf (kill-buffer buf))) - (set-buffer (get-buffer-create " *ispell-tmp*")) - (erase-buffer) + + (with-temp-buffer (setq status (ispell-call-process ispell-program-name nil t nil ;; aspell doesn't accept the -vv switch. @@ -825,9 +821,7 @@ Otherwise returns the library directory name, if that is defined." (setq ispell-really-aspell nil))) (ispell-really-hunspell (or (ispell-check-minver hunspell8-minver ispell-really-hunspell) - (setq ispell-really-hunspell nil))))) - - (kill-buffer (current-buffer))) + (setq ispell-really-hunspell nil)))))) result)) (defun ispell-call-process (&rest args) |