mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Fix search of the look program

Browse Source 
* lisp/textmodes/ispell.el (ispell-look-command): Fix logic
concerning the existence of the look program (bug#50852) -- search
through the executable path.
(ispell-look-p): Adjust logic.
This commit is contained in:
André A. Gomes 2021-09-28 07:51:14 +02:00 committed by Lars Ingebrigtsen
parent 7757e9b204
commit 213aed0691
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/textmodes/ispell.el
View File

@ -250,16 +250,14 @@ Always stores Fcc copy of message when nil."
Should probably be \"-Ei\"."
:type 'string)
(defcustom ispell-look-command
(cond ((file-exists-p "/bin/look") "/bin/look")
((file-exists-p "/usr/local/bin/look") "/usr/local/bin/look")
((file-exists-p "/usr/bin/look") "/usr/bin/look")
(t "look"))
(defcustom ispell-look-command (executable-find "look")
"Name of the look command for search processes.
This must be an absolute file name."
:type 'file)
:type 'file
:version "28.1")
(defcustom ispell-look-p (file-exists-p ispell-look-command)
(defcustom ispell-look-p (and ispell-look-command
(file-exists-p ispell-look-command))
"Non-nil means use `look' rather than `grep'.
Default is based on whether `look' seems to be available."
:type 'boolean)