Mercurial > emacs

comparison lisp/eshell/esh-ext.el @ 31241:3099993cba0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
See ChangeLog
author John Wiegley <johnw@newartisans.com>
date Tue, 29 Aug 2000 00:47:45 +0000
parents 34b1ab9d583d
children 8e57189d61b4
comparison
equal deleted inserted replaced
31240:10b1c85c0bbe 31241:3099993cba0f
101 101
102 (defsubst eshell-invoke-batch-file (&rest args) 102 (defsubst eshell-invoke-batch-file (&rest args)
103 "Invoke a .BAT or .CMD file on DOS/Windows systems." 103 "Invoke a .BAT or .CMD file on DOS/Windows systems."
104 ;; since CMD.EXE can't handle forward slashes in the initial 104 ;; since CMD.EXE can't handle forward slashes in the initial
105 ;; argument... 105 ;; argument...
106 (setcar args (subst-char-in-string directory-sep-char 106 (setcar args (subst-char-in-string directory-sep-char ?\\ (car args)))
107 ?\\ (car args)))
108 (throw 'eshell-replace-command 107 (throw 'eshell-replace-command
109 (eshell-parse-command eshell-windows-shell-file 108 (eshell-parse-command eshell-windows-shell-file (cons "/c" args))))
110 (cons "/c" args))))
111 109
112 (defcustom eshell-interpreter-alist 110 (defcustom eshell-interpreter-alist
113 (if (eshell-under-windows-p) 111 (if (eshell-under-windows-p)
114 '(("\\.\\(bat\\|cmd\\)\\'" . eshell-invoke-batch-file))) 112 '(("\\.\\(bat\\|cmd\\)\\'" . eshell-invoke-batch-file)))
115 "*An alist defining interpreter substitutions. 113 "*An alist defining interpreter substitutions.