[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: flyspell bug
From: |
Juri Linkov |
Subject: |
Re: flyspell bug |
Date: |
Tue, 10 May 2005 03:06:48 +0300 |
User-agent: |
Gnus/5.110002 (No Gnus v0.2) Emacs/22.0.50 (gnu/linux) |
>> To: address@hidden
>> From: Magnus Henoch <address@hidden>
>> Date: Wed, 27 Apr 2005 16:04:45 +0200
>> Subject: Re: flyspell bug
>>
>> So it seems that the variable ispell-really-aspell is moderately
>> useful, as there are three situations: ispell, aspell in ispell
>> compatibility mode, and "real" aspell.
>>
>> The following patch eliminates the middle case. The documentation of
>> aspell 0.50.5 claims that it supports the "list" command, but I
>> haven't tested it.
>>
>> - --- orig/lisp/textmodes/ispell.el
>> +++ mod/lisp/textmodes/ispell.el
>> @@ -301,7 +301,8 @@
>> :type 'integer
>> :group 'ispell)
>>
>> - -(defcustom ispell-program-name "ispell"
>> +(defcustom ispell-program-name (or (executable-find "aspell")
>> + "ispell")
>> "Program invoked by \\[ispell-word] and \\[ispell-region] commands."
>> :type 'string
>> :group 'ispell)
>
> Thanks, I installed a slightly different change (using locate-file
> instead of executable-find).
Now with using a non-default dictionary ispell.el fails with the
error message telling that ispell can't find a dictionary in
/usr/lib/aspell-0.60/. That's becuase ispell and aspell have
different sets of dictionaries with different names.
ispell.el shouldn't insist on using "aspell" instead of "ispell"
even when aspell executable happens to be in exec-path.
Perhaps the following patch will do what was intended to fix the
original problem:
Index: lisp/textmodes/ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.162
diff -u -r1.162 ispell.el
--- lisp/textmodes/ispell.el 7 May 2005 16:04:39 -0000 1.162
+++ lisp/textmodes/ispell.el 10 May 2005 00:05:05 -0000
@@ -302,7 +302,8 @@
:group 'ispell)
(defcustom ispell-program-name
- (or (locate-file "aspell" exec-path exec-suffixes 'file-executable-p)
+ (or (and ispell-really-aspell
+ (locate-file "aspell" exec-path exec-suffixes 'file-executable-p))
"ispell")
"Program invoked by \\[ispell-word] and \\[ispell-region] commands."
:type 'string
@@ -815,7 +816,11 @@
(goto-char (point-min))
(let (case-fold-search)
(setq ispell-really-aspell
- (and (search-forward "(but really Aspell " nil t) t))))
+ (and (search-forward "(but really Aspell " nil t) t))
+ (if ispell-really-aspell
+ (let ((exec (locate-file "aspell" exec-path exec-suffixes
+ 'file-executable-p)))
+ (if exec (setq ispell-program-name exec))))))
(kill-buffer (current-buffer)))
result))
--
Juri Linkov
http://www.jurta.org/emacs/
- Re: address@hidden: Re: flyspell bug], Eli Zaretskii, 2005/05/07
- Re: flyspell bug,
Juri Linkov <=
- Re: flyspell bug, Eli Zaretskii, 2005/05/10
- Re: flyspell bug, Juri Linkov, 2005/05/10
- Re: flyspell bug, Eli Zaretskii, 2005/05/10
- Re: flyspell bug, Juri Linkov, 2005/05/11
- Re: flyspell bug, Eli Zaretskii, 2005/05/11
- Re: flyspell bug, Juri Linkov, 2005/05/12
- Re: flyspell bug, Eli Zaretskii, 2005/05/12
- Re: flyspell bug, Juri Linkov, 2005/05/12
- Re: flyspell bug, Eli Zaretskii, 2005/05/12
- Re: flyspell bug, Ken Stevens, 2005/05/12