emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Suggestions for corrections to executable.el - use of PATHEXT


From: Davis Herring
Subject: Re: Suggestions for corrections to executable.el - use of PATHEXT
Date: Fri, 10 Sep 2004 19:07:30 -0600 (MDT)

Tiny augmentation:

(defvar executable-binary-suffixes
  (if (memq system-type '(ms-dos windows-nt))
      (let ((pathext (getenv-internal "PATHEXT")))
        (if pathext
             (nconc (split-string pathext ";") '(""))
          '(".com" ".exe" ".bat" ".cmd" ".pif" "")))
    '("")))

(Indentation made into spaces; don't compare to nil with `eq'; add ".pif" 
and "".  I add back "" because with Cygwin, you have commands with no 
extension; if my assumption is wrong and `system-type' isn't set 
Windowsishly then, drop that entry.)

Davis Herring

-- 
This product is sold by volume, not by mass.  If it seems too dense or too 
sparse, it means mass-energy conversion has occurred during shipping.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]