;; #### Oh if we had an alist of shells and their command switches.
(setq shell-command-switch "/c")
-;; For appending suffixes to directories and files in shell completions.
-(defun nt-shell-mode-hook ()
- (setq comint-completion-addsuffix '("\\" . " ")
- comint-process-echoes t))
-(add-hook 'shell-mode-hook 'nt-shell-mode-hook)
+;; For appending suffixes to directories and files in shell
+;; completions. This screws up cygwin users so we leave it out for
+;; now. Uncomment this if you only ever want to use cmd.
+
+;(defun nt-shell-mode-hook ()
+; (setq comint-completion-addsuffix '("\\" . " ")
+; comint-process-echoes t))
+;(add-hook 'shell-mode-hook 'nt-shell-mode-hook)
;; Use ";" instead of ":" as a path separator (from files.el).
(setq path-separator ";")
See also `auto-save-file-name-p'."
(let ((name (original-make-auto-save-file-name))
(start 0))
- ;; destructively replace occurences of * or ? with $
+ ;; destructively replace occurrences of * or ? with $
(while (string-match "[?*]" name start)
(aset name (match-beginning 0) ?$)
(setq start (1+ (match-end 0))))
(defun nt-quote-args-verbatim (args)
"Copy ARG list verbatim, separating each arg with space."
- (mapconcat 'identity args " "))
+ (mapconcat #'identity args " "))
(defun nt-quote-args-prefix-quote (prefix args)
(mapconcat (lambda (str)