[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el
From: |
Agustin Martin Domingo |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el |
Date: |
Mon, 05 Jan 2009 17:45:58 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Agustin Martin Domingo <agmartin> 09/01/05 17:45:56
Modified files:
lisp : ChangeLog
lisp/textmodes : ispell.el
Log message:
textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15045&r2=1.15046
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.239&r2=1.240
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15045
retrieving revision 1.15046
diff -u -b -r1.15045 -r1.15046
--- ChangeLog 5 Jan 2009 15:53:25 -0000 1.15045
+++ ChangeLog 5 Jan 2009 17:45:53 -0000 1.15046
@@ -1,3 +1,7 @@
+2009-01-05 AgustÃn MartÃn <address@hidden>
+
+ * textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer)
+
2009-01-05 Richard M Stallman <address@hidden>
* mail/sendmail.el (mail-bury): Treat pmail-mode like rmail-mode.
Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.239
retrieving revision 1.240
diff -u -b -r1.239 -r1.240
--- textmodes/ispell.el 5 Jan 2009 03:24:06 -0000 1.239
+++ textmodes/ispell.el 5 Jan 2009 17:45:56 -0000 1.240
@@ -744,18 +744,14 @@
;; 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 @@
(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)
- [Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el,
Agustin Martin Domingo <=