Commit 0764ed37 authored by Agustín Martín's avatar Agustín Martín
Browse files

textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer)

parent 638a2457
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>
 
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment