From 55b958f07b648fb9b6eb2faaa39a1a566908e4a0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 7 May 2005 16:06:07 +0000 Subject: [PATCH] (ispell-program-name): Try looking for "aspell" along exec-path, and if found, use it as the default speller program. --- lisp/ChangeLog | 6 ++++++ lisp/textmodes/ispell.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 (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) -- 2.39.2