mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(syms_of_callproc): Init Vexec_suffixes to Qnil.

Browse Source 
(decode_suffixes): Remove.
This commit is contained in:
Stefan Monnier 2001-10-14 20:13:47 +00:00
parent 2d08a2d49a
commit 33d5af9917
1 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/callproc.c
View File

@ -1570,28 +1570,6 @@ set_process_environment ()
Vprocess_environment);
}
static Lisp_Object
decode_suffixes (string)
char *string;
{
char *p;
Lisp_Object suffixes;
suffixes = Qnil;
while (1)
{
p = index (string, ':');
if (!p) p = string + strlen (string);
suffixes = Fcons (make_string (string, p - string),
suffixes);
if (*p)
string = p + 1;
else
break;
}
return Fnreverse (suffixes);
}
void
syms_of_callproc ()
{
@ -1611,7 +1589,7 @@ Each element is a string (directory name) or nil (try default directory).");
DEFVAR_LISP ("exec-suffixes", &Vexec_suffixes,
"*List of suffixes to try to find executable file names.\n\
Each element is a string");
Vexec_suffixes = decode_suffixes (EXEC_SUFFIXES);
Vexec_suffixes = Qnil;
DEFVAR_LISP ("exec-directory", &Vexec_directory,
"Directory for executables for Emacs to invoke.\n\