Mercurial > hg > xemacs-beta
comparison lisp/winnt.el @ 355:182f72e8cd0d r21-1-7
Import from CVS: tag r21-1-7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:56:21 +0200 |
parents | e11d67e05968 |
children | 972bbb6d6ca2 |
comparison
equal
deleted
inserted
replaced
354:3729bef672e0 | 355:182f72e8cd0d |
---|---|
36 | 36 |
37 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch | 37 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch |
38 ;; for executing its command line argument (from simple.el). | 38 ;; for executing its command line argument (from simple.el). |
39 ;; #### Oh if we had an alist of shells and their command switches. | 39 ;; #### Oh if we had an alist of shells and their command switches. |
40 (setq shell-command-switch "/c") | 40 (setq shell-command-switch "/c") |
41 | |
42 ;; For appending suffixes to directories and files in shell completions. | |
43 (defun nt-shell-mode-hook () | |
44 (setq comint-completion-addsuffix '("\\" . " ") | |
45 comint-process-echoes t)) | |
46 (add-hook 'shell-mode-hook 'nt-shell-mode-hook) | |
47 | 41 |
48 ;; Use ";" instead of ":" as a path separator (from files.el). | 42 ;; Use ";" instead of ":" as a path separator (from files.el). |
49 (setq path-separator ";") | 43 (setq path-separator ";") |
50 | 44 |
51 ;; Set the null device (for compile.el). | 45 ;; Set the null device (for compile.el). |