diff options
| author | Richard M. Stallman | 1995-06-16 01:24:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-16 01:24:43 +0000 |
| commit | 35d6dd87feea8ef2057910098aadae6f5316fdee (patch) | |
| tree | aa935f6b519fcac2d6d563e1147bf95f8676b6f2 | |
| parent | 1efcbf46bc46ecfb9cd390f6c531fb49a0a92a4a (diff) | |
| download | emacs-35d6dd87feea8ef2057910098aadae6f5316fdee.tar.gz emacs-35d6dd87feea8ef2057910098aadae6f5316fdee.zip | |
(path-separator, grep-null-device, grep-regexp-alist):
Set them, as in winnt.el.
| -rw-r--r-- | lisp/dos-fns.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 39cbbf2f129..83918c88da6 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el | |||
| @@ -42,6 +42,16 @@ | |||
| 42 | (purecopy '(-3 . "%p")) | 42 | (purecopy '(-3 . "%p")) |
| 43 | (purecopy "-%-"))) | 43 | (purecopy "-%-"))) |
| 44 | 44 | ||
| 45 | ;; Use ";" instead of ":" as a path separator (from files.el). | ||
| 46 | (setq path-separator ";") | ||
| 47 | |||
| 48 | ;; Set the null device (for compile.el). | ||
| 49 | (setq grep-null-device "NUL") | ||
| 50 | |||
| 51 | ;; Set the grep regexp to match entries with drive letters. | ||
| 52 | (setq grep-regexp-alist | ||
| 53 | '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3))) | ||
| 54 | |||
| 45 | (defvar file-name-buffer-file-type-alist | 55 | (defvar file-name-buffer-file-type-alist |
| 46 | '( | 56 | '( |
| 47 | ("[:/].*config.sys$" . nil) ; config.sys text | 57 | ("[:/].*config.sys$" . nil) ; config.sys text |