From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 May 2005 16:06:07 +0000 (+0000)
Subject: (ispell-program-name): Try looking for "aspell" along exec-path,
X-Git-Tag: ttn-vms-21-2-B4~460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55b958f07b648fb9b6eb2faaa39a1a566908e4a0;p=emacs.git

(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 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)