Mercurial > hg > xemacs-beta

comparison lisp/winnt.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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 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
42 ;; Use ";" instead of ":" as a path separator (from files.el). 48 ;; Use ";" instead of ":" as a path separator (from files.el).
43 (setq path-separator ";") 49 (setq path-separator ";")
44 50
45 ;; Set the null device (for compile.el). 51 ;; Set the null device (for compile.el).
46 ;; #### There should be such a global thingy as null-device - kkm 52 ;; #### There should be such a global thingy as null-device - kkm
68 Does not consider `auto-save-visited-file-name' as that variable is checked 74 Does not consider `auto-save-visited-file-name' as that variable is checked
69 before calling this function. You can redefine this for customization. 75 before calling this function. You can redefine this for customization.
70 See also `auto-save-file-name-p'." 76 See also `auto-save-file-name-p'."
71 (let ((name (original-make-auto-save-file-name)) 77 (let ((name (original-make-auto-save-file-name))
72 (start 0)) 78 (start 0))
73 ;; destructively replace occurrences of * or ? with $ 79 ;; destructively replace occurences of * or ? with $
74 (while (string-match "[?*]" name start) 80 (while (string-match "[?*]" name start)
75 (aset name (match-beginning 0) ?$) 81 (aset name (match-beginning 0) ?$)
76 (setq start (1+ (match-end 0)))) 82 (setq start (1+ (match-end 0))))
77 name)) 83 name))
78 84
104 110
105 (defvar nt-quote-args-functions-alist 111 (defvar nt-quote-args-functions-alist
106 '(("^.?.?sh\\." . nt-quote-args-double-quote)) 112 '(("^.?.?sh\\." . nt-quote-args-double-quote))
107 "An alist for determining proper argument quoting given executable file name. 113 "An alist for determining proper argument quoting given executable file name.
108 Car of each cons must be a string, a regexp against which a file name sans 114 Car of each cons must be a string, a regexp against which a file name sans
109 directory is matched. Cdr is a function symbol. The list is matched in 115 directory is matched. Cdr is a function symbol. The list is mathced in
110 forward order, and matching entry cdr's function is called with a list of 116 forward order, and mathcing entry cdr's funcrion is called with a list of
111 strings, process arguments. It must return a string which is passed to 117 strings, process arguments. It must return a string which is passed to
112 the newly created process. 118 the newly created process.
113 119
114 If not found, then `nt-quote-args-verbatim' is called on the argument list.") 120 If not found, then `nt-quote-args-verbatim' is called on the argument list.")
115 121