Mercurial > emacs
comparison lisp/w32-fns.el @ 12254:cf9fbf172b0d
(grep-null-device): Set to "NUL".
(grep-regexp-alist): Match entries with drive letters.
(save-to-unix-hook,revert-from-unix-hook): Defined.
(using-unix-filesystems): Defined.
(window-frame): Unaliased.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Jun 1995 01:25:53 +0000 |
| parents | 824f238e0c64 |
| children | 8df78fb06aef |
comparison
equal
deleted
inserted
replaced
| 12253:5ff133dbb12f | 12254:cf9fbf172b0d |
|---|---|
| 61 (setq shell-command-switch "/c") | 61 (setq shell-command-switch "/c") |
| 62 | 62 |
| 63 ;; Use ";" instead of ":" as a path separator (from files.el). | 63 ;; Use ";" instead of ":" as a path separator (from files.el). |
| 64 (setq path-separator ";") | 64 (setq path-separator ";") |
| 65 | 65 |
| 66 ;; Set the null device (for compile.el). | |
| 67 (setq grep-null-device "NUL") | |
| 68 | |
| 69 ;; Set the grep regexp to match entries with drive letters. | |
| 70 (setq grep-regexp-alist | |
| 71 '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3))) | |
| 72 | |
| 66 ;; Taken from dos-fn.el ... don't want all that's in the file, maybe | 73 ;; Taken from dos-fn.el ... don't want all that's in the file, maybe |
| 67 ;; separate it out someday. | 74 ;; separate it out someday. |
| 68 | 75 |
| 69 (defvar file-name-buffer-file-type-alist | 76 (defvar file-name-buffer-file-type-alist |
| 70 '( | 77 '( |
| 121 nil) | 128 nil) |
| 122 | 129 |
| 123 ;;; To set the default file type on new files. | 130 ;;; To set the default file type on new files. |
| 124 (add-hook 'find-file-not-found-hooks 'find-file-not-found-set-buffer-file-type) | 131 (add-hook 'find-file-not-found-hooks 'find-file-not-found-set-buffer-file-type) |
| 125 | 132 |
| 133 ;;; For using attached Unix filesystems. | |
| 134 (defun save-to-unix-hook () | |
| 135 (save-excursion | |
| 136 (setq buffer-file-type t)) | |
| 137 nil) | |
| 138 | |
| 139 (defun revert-from-unix-hook () | |
| 140 (save-excursion | |
| 141 (setq buffer-file-type (find-buffer-file-type (buffer-file-name)))) | |
| 142 nil) | |
| 143 | |
| 144 ;; Really should provide this capability at the drive letter granularity. | |
| 145 (defun using-unix-filesystems (flag) | |
| 146 (if flag | |
| 147 (progn | |
| 148 (add-hook 'write-file-hooks 'save-to-unix-hook) | |
| 149 (add-hook 'write-contents-hooks 'save-to-unix-hook) | |
| 150 (add-hook 'after-save-hook 'revert-from-unix-hook)) | |
| 151 (progn | |
| 152 (remove-hook 'write-file-hooks 'save-to-unix-hook) | |
| 153 (remove-hook 'write-contents-hooks 'save-to-unix-hook) | |
| 154 (remove-hook 'after-save-hook 'revert-from-unix-hook)))) | |
| 155 | |
| 126 ;;; Fix interface to (X-specific) mouse.el | 156 ;;; Fix interface to (X-specific) mouse.el |
| 127 (defalias 'window-frame 'ignore) | |
| 128 (defalias 'x-set-selection 'ignore) | 157 (defalias 'x-set-selection 'ignore) |
| 129 (fset 'x-get-selection '(lambda (&rest rest) "")) | 158 (fset 'x-get-selection '(lambda (&rest rest) "")) |
| 130 (fmakunbound 'font-menu-add-default) | 159 (fmakunbound 'font-menu-add-default) |
| 131 (global-unset-key [C-down-mouse-1]) | 160 (global-unset-key [C-down-mouse-1]) |
| 132 (global-unset-key [C-down-mouse-2]) | 161 (global-unset-key [C-down-mouse-2]) |