Mercurial > emacs
diff lisp/dos-fns.el @ 12253:5ff133dbb12f
(path-separator, grep-null-device, grep-regexp-alist):
Set them, as in winnt.el.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 16 Jun 1995 01:24:43 +0000 |
parents | b36d5e88cccc |
children | c51fb9c4c780 |
line wrap: on
line diff
--- a/lisp/dos-fns.el Fri Jun 16 01:04:27 1995 +0000 +++ b/lisp/dos-fns.el Fri Jun 16 01:24:43 1995 +0000 @@ -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