summaryrefslogtreecommitdiff
path: root/lisp/dos-fns.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-06-16 01:24:43 +0000
committerRichard M. Stallman <rms@gnu.org>1995-06-16 01:24:43 +0000
commit87c543184c9b98ff2f53171dc19bd3593cf70e82 (patch)
tree3ae44d9e608754a65531b8a6985929eee14d264a /lisp/dos-fns.el
parent8e448f3ff019607b4e71db80a10dca602eda44e8 (diff)
downloademacs-87c543184c9b98ff2f53171dc19bd3593cf70e82.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.el10
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