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

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

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23941081c27..ffa571119d6 100644
--- 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 97bc3350b47..c8926776400 100644
--- 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)