(ispell-program-name): Try looking for "aspell" along exec-path,

and if found, use it as the default speller program.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23941081c279d06e6202eabb968de6162275e941..ffa571119d6394678d1c15afb788fb23e7f129d6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-05-07  Eli Zaretskii  <eliz@gnu.org>
+
+       * textmodes/ispell.el (ispell-program-name): Try looking for
+       "aspell" along exec-path, and if found, use it as the default
+       speller program.
+
 2005-05-07  Jirka Kosek  <jirka@kosek.cz>  (tiny change)
 
        * international/mule.el (sgml-xml-auto-coding-function): Recognize

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 97bc3350b4739e8417fe6c94a22563454b47226f..c8926776400103dfdf4287b9e407ac18bbe58ff7 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -301,7 +301,9 @@ Must be greater than 1."
   :type 'integer
   :group 'ispell)
 
-(defcustom ispell-program-name "ispell"
+(defcustom ispell-program-name
+  (or (locate-file "aspell" exec-path exec-suffixes 'file-executable-p)
+      "ispell")
   "Program invoked by \\[ispell-word] and \\[ispell-region] commands."
   :type 'string
   :group 'ispell)