From 35d6dd87feea8ef2057910098aadae6f5316fdee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Jun 1995 01:24:43 +0000 Subject: [PATCH] (path-separator, grep-null-device, grep-regexp-alist): Set them, as in winnt.el. --- lisp/dos-fns.el | 10 ++++++++++ 1 file changed, 10 insertions(+) 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 -- 2.39.2