Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
33d5af99
Commit
33d5af99
authored
Oct 14, 2001
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(syms_of_callproc): Init Vexec_suffixes to Qnil.
(decode_suffixes): Remove.
parent
2d08a2d4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
23 deletions
+1
-23
src/callproc.c
src/callproc.c
+1
-23
No files found.
src/callproc.c
View file @
33d5af99
...
...
@@ -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
\
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment