diff -Nacr cvs/bindings.el new/bindings.el
*** cvs/bindings.el	2004-09-10 19:13:47.000000000 -0600
--- new/bindings.el	2004-09-10 19:16:26.000000000 -0600
***************
*** 535,541 ****
  (setq exec-suffixes
        (cond
         ((memq system-type '(ms-dos windows-nt))
! 	'(".exe" ".com" ".bat" ".cmd" ".btm" ""))
         (t
  	'(""))))
  
--- 535,544 ----
  (setq exec-suffixes
        (cond
         ((memq system-type '(ms-dos windows-nt))
! 	(let ((pathext (getenv-internal "PATHEXT")))
! 	  (if pathext
! 	      (split-string pathext ";")
! 	    '(".com" ".exe" ".bat" ".cmd" ".pif"))))
         (t
  	'(""))))