[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el textmo...
From: |
Agustin Martin Domingo |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el textmo... |
Date: |
Thu, 08 Jan 2009 18:46:27 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Agustin Martin Domingo <agmartin> 09/01/08 18:46:27
Modified files:
lisp : ChangeLog
lisp/textmodes : ispell.el flyspell.el
Log message:
ispell.el (ispell-encoding8-command): New variable
(ispell-aspell-supports-utf8): Mark as obsoleted by
ispell-encoding8-command
(ispell-check-version): Set ispell-encoding8-command
(ispell-check-spellchecker-params, ispell-start-process): Use
ispell-encoding8-command
flyspell.el (flyspell-large-region): Use ispell-encoding8-command
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15059&r2=1.15060
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.241&r2=1.242
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.139&r2=1.140
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15059
retrieving revision 1.15060
diff -u -b -r1.15059 -r1.15060
--- ChangeLog 8 Jan 2009 04:13:28 -0000 1.15059
+++ ChangeLog 8 Jan 2009 18:46:23 -0000 1.15060
@@ -1,3 +1,15 @@
+2009-01-08 AgustÃn MartÃn <address@hidden>
+
+ * textmodes/ispell.el (ispell-encoding8-command): New variable
+ (ispell-aspell-supports-utf8): Mark as obsoleted by
+ ispell-encoding8-command
+ (ispell-check-version): Set ispell-encoding8-command
+ (ispell-check-spellchecker-params, ispell-start-process): Use
+ ispell-encoding8-command
+
+ * textmodes/flyspell.el (flyspell-large-region): Use
+ ispell-encoding8-command
+
2009-01-08 Glenn Morris <address@hidden>
* calendar/cal-menu.el (cal-menu-scroll-menu): Remove entries that don't
Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.241
retrieving revision 1.242
diff -u -b -r1.241 -r1.242
--- textmodes/ispell.el 8 Jan 2009 04:11:09 -0000 1.241
+++ textmodes/ispell.el 8 Jan 2009 18:46:26 -0000 1.242
@@ -708,14 +708,25 @@
(defvar ispell-really-aspell nil) ; Non-nil if aspell extensions should be
used
(defvar ispell-really-hunspell nil) ; Non-nil if hunspell extensions should be
used
+(defvar ispell-encoding8-command nil
+ "Command line option prefix to select UTF-8 if supported, nil otherwise.
+If UTF-8 if supported by spellchecker and is selectable from the command line
+this variable will contain \"--encoding=\" for aspell and \"-i \" for hunspell,
+so UTF-8 or other mime charsets can be selected. That will be set for hunspell
+>=1.1.6 or aspell >= 0.60 in `ispell-check-version'.
-(defvar ispell-aspell-supports-utf8 nil
- "Non-nil means to try to automatically find aspell dictionaries.
-This is set to t in `ispell-check-version' for aspell >= 0.60.
-
+For aspell non-nil means to try to automatically find aspell dictionaries.
Earlier aspell versions do not consistently support UTF-8. Handling
this would require some extra guessing in `ispell-aspell-find-dictionary'.")
+(defvar ispell-aspell-supports-utf8 nil
+ "Non nil if aspell has consistent command line UTF-8 support. Obsolete.
+ispell.el and flyspell.el will use for this purpose the more generic
+variable `ispell-encoding8-command' for both aspell and hunspell. Is left
+here just for backwards compatibility.")
+
+(make-obsolete-variable 'ispell-aspell-supports-utf8
+ 'ispell-encoding8-command "23.1")
;;; **********************************************************************
@@ -790,7 +801,8 @@
;; Make sure these variables are (re-)initialized to the default value
(setq ispell-really-aspell nil
ispell-aspell-supports-utf8 nil
- ispell-really-hunspell nil)
+ ispell-really-hunspell nil
+ ispell-encoding8-command nil)
(goto-char (point-min))
(or (setq ispell-really-aspell
@@ -819,10 +831,13 @@
(ispell-really-aspell
(if (ispell-check-minver aspell-minver ispell-really-aspell)
(if (ispell-check-minver aspell8-minver ispell-really-aspell)
- (setq ispell-aspell-supports-utf8 t))
+ (progn
+ (setq ispell-aspell-supports-utf8 t)
+ (setq ispell-encoding8-command "--encoding=")))
(setq ispell-really-aspell nil)))
(ispell-really-hunspell
- (or (ispell-check-minver hunspell8-minver ispell-really-hunspell)
+ (if (ispell-check-minver hunspell8-minver ispell-really-hunspell)
+ (setq ispell-encoding8-command "-i ")
(setq ispell-really-hunspell nil))))))
result))
@@ -1029,7 +1044,7 @@
t)
(error nil))
ispell-really-aspell
- ispell-aspell-supports-utf8
+ ispell-encoding8-command
;; XEmacs does not like [:alpha:] regexps.
(string-match "^[[:alpha:]]+$" "abcde"))
(unless ispell-aspell-dictionary-alist
@@ -1041,7 +1056,7 @@
;; of the original list that are not present there. Allow distro info.
(let ((found-dicts-alist
(if (and ispell-really-aspell
- ispell-aspell-supports-utf8)
+ ispell-encoding8-command)
ispell-aspell-dictionary-alist
nil))
ispell-base-dicts-override-alist ; Override only base-dicts-alist
@@ -2524,7 +2539,6 @@
"Start the ispell process, with support for no asynchronous processes.
Keeps argument list for future ispell invocations for no async support."
(let ((default-directory default-directory)
- encoding-command
args)
(unless (and (file-directory-p default-directory)
(file-readable-p default-directory))
@@ -2548,15 +2562,11 @@
;; If we are using recent aspell or hunspell, make sure we use the right
encoding
;; for communication. ispell or older aspell/hunspell does not support this
- (if (or (and ispell-really-aspell
- ispell-aspell-supports-utf8
- (setq encoding-command "--encoding="))
- (and ispell-really-hunspell
- (setq encoding-command "-i ")))
+ (if ispell-encoding8-command
(setq args
(append args
(list
- (concat encoding-command
+ (concat ispell-encoding8-command
(symbol-name (ispell-get-coding-system)))))))
(setq args (append args ispell-extra-args))
Index: textmodes/flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -b -r1.139 -r1.140
--- textmodes/flyspell.el 5 Jan 2009 03:24:05 -0000 1.139
+++ textmodes/flyspell.el 8 Jan 2009 18:46:26 -0000 1.140
@@ -1526,7 +1526,6 @@
(or ispell-local-pdict ispell-personal-dictionary))
(let ((args (ispell-get-ispell-args))
(encoding (ispell-get-coding-system))
- encoding-command
c)
(if (and ispell-current-dictionary ; use specified dictionary
(not (member "-d" args))) ; only define if not overridden
@@ -1542,15 +1541,11 @@
;; If we are using recent aspell or hunspell, make sure we use the right
encoding
;; for communication. ispell or older aspell/hunspell does not support
this
- (if (or (and ispell-really-aspell
- ispell-aspell-supports-utf8
- (setq encoding-command "--encoding="))
- (and ispell-really-hunspell
- (setq encoding-command "-i ")))
+ (if ispell-encoding8-command
(setq args
(append args
(list
- (concat encoding-command
+ (concat ispell-encoding8-command
(symbol-name
encoding))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el textmo...,
Agustin Martin Domingo <=