Mercurial > emacs

changeset 39934:674e73ec881a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(syms_of_callproc): Init Vexec_suffixes to Qnil. (decode_suffixes): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 14 Oct 2001 20:13:47 +0000
parents 89f6eeae2af3
children 6658b2120eba
files src/callproc.c
diffstat 1 files changed, 1 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/src/callproc.c	Sun Oct 14 20:09:46 2001 +0000
+++ b/src/callproc.c	Sun Oct 14 20:13:47 2001 +0000
@@ -1570,28 +1570,6 @@
 				    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 @@
   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\