diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-16 01:24:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-16 01:24:43 +0000 |
| commit | 35d6dd87feea8ef2057910098aadae6f5316fdee (patch) | |
| tree | aa935f6b519fcac2d6d563e1147bf95f8676b6f2 /lisp/dos-fns.el | |
| parent | 1efcbf46bc46ecfb9cd390f6c531fb49a0a92a4a (diff) | |
| download | emacs-35d6dd87feea8ef2057910098aadae6f5316fdee.tar.gz | |
(path-separator, grep-null-device, grep-regexp-alist):
Set them, as in winnt.el.
Diffstat (limited to 'lisp/dos-fns.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 @@ (purecopy '(-3 . "%p")) (purecopy "-%-"))) +;; Use ";" instead of ":" as a path separator (from files.el). +(setq path-separator ";") + +;; Set the null device (for compile.el). +(setq grep-null-device "NUL") + +;; Set the grep regexp to match entries with drive letters. +(setq grep-regexp-alist + '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3))) + (defvar file-name-buffer-file-type-alist '( ("[:/].*config.sys$" . nil) ; config.sys text |