From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 14 Oct 2001 20:08:21 +0000 (+0000)
Subject: (exec-suffixes): Initialize to a system-dependent value.
X-Git-Tag: ttn-vms-21-2-B4~19442
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae95a95a9c144a8ceefb9b2c9c09497705209ab1;p=emacs.git

(exec-suffixes): Initialize to a system-dependent value.
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index bb4610fa762..c4327ed6168 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -450,6 +450,14 @@ is okay.  See `mode-line-format'.")
 	 ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
 	 ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs")))
 
+;; Suffixes used for executables.
+(setq exec-suffixes
+      (cond
+       ((memq system-type '(ms-dos windows-nt))
+	'(".exe" ".com" ".bat" ".cmd" ".btm" ""))
+       (t
+	'(""))))
+
 ;; Packages should add to this list appropriately when they are
 ;; loaded, rather than listing everything here.
 (setq debug-ignored-errors