Mercurial > hg > xemacs-beta

comparison lisp/win32-native.el @ 1695:eeb607577f17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-19 09:50:08 by stephent] Yes, we have null-device <87pthx85xb.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 19 Sep 2003 09:50:09 +0000
parents 79940b592197
children ecf1ebac70d8
comparison
equal deleted inserted replaced
1694:75fc6f6aec08 1695:eeb607577f17
52 ; comint-process-echoes t)) 52 ; comint-process-echoes t))
53 ;(add-hook 'shell-mode-hook 'nt-shell-mode-hook) 53 ;(add-hook 'shell-mode-hook 'nt-shell-mode-hook)
54 54
55 ;; Use ";" instead of ":" as a path separator (from files.el). 55 ;; Use ";" instead of ":" as a path separator (from files.el).
56 (setq path-separator ";") 56 (setq path-separator ";")
57
58 ;; Set the null device (for compile.el).
59 ;; #### There should be such a global thingy as null-device - kkm
60 (defvar grep-null-device)
61 (setq grep-null-device "NUL")
62 57
63 ;; Set the grep regexp to match entries with drive letters. 58 ;; Set the grep regexp to match entries with drive letters.
64 (defvar grep-regexp-alist) 59 (defvar grep-regexp-alist)
65 (setq grep-regexp-alist 60 (setq grep-regexp-alist
66 '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3))) 61 '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3)))