annotate lisp/dos-win32.el @ 17331:f91b4d582897

(Vhighlight_wrong_size_font, Vclip_large_size_font): New variables. (syms_of_fontset): Declare them as Lisp variables.
author Kenichi Handa <handa@m17n.org>
date Mon, 07 Apr 1997 07:12:13 +0000
parents 6cb35dee25f5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15254
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; dos-win32.el --- Functions shared among MS-DOS and Win32 (NT/95) platforms
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1996 Free Software Foundation, Inc.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 ;; Maintainer: Geoff Voelker (voelker@cs.washington.edu)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Keywords: internal
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; Parts of this code are duplicated functions taken from dos-fns.el
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;; and winnt.el.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 ;;; Code:
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;;; Add %t: into the mode line format just after the open-paren.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 (let ((tail (member " %[(" mode-line-format)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 (setcdr tail (cons (purecopy "%t:")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 (cdr tail))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; Use ";" instead of ":" as a path separator (from files.el).
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 (setq path-separator ";")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ;; Set the null device (for compile.el).
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 (setq grep-null-device "NUL")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 ;; Set the grep regexp to match entries with drive letters.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 (setq grep-regexp-alist
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 ;; For distinguishing file types based upon suffixes.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 (defvar file-name-buffer-file-type-alist
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 '(
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 ("[:/].*config.sys$" . nil) ; config.sys text
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 ("\\.elc$" . t) ; emacs stuff
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 ("\\.\\(obj\\|exe\\|com\\|lib\\|sys\\|chk\\|out\\|bin\\|ico\\|pif\\)$" . t)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 ; MS-Dos stuff
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 ("\\.\\(arc\\|zip\\|pak\\|lzh\\|zoo\\)$" . t)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 ; Packers
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 ("\\.\\(a\\|o\\|tar\\|z\\|gz\\|taz\\)$" . t)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 ; Unix stuff
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 ("\\.tp[ulpw]$" . t)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 ; Borland Pascal stuff
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 ("[:/]tags$" . t)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 ; Emacs TAGS file
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62 )
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 "*Alist for distinguishing text files from binary files.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64 Each element has the form (REGEXP . TYPE), where REGEXP is matched
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 against the file name, and TYPE is nil for text, t for binary.")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67 (defun find-buffer-file-type (filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68 ;; First check if file is on an untranslated filesystem, then on the alist.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 (if (untranslated-file-p filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
70 t ; for binary
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 (let ((alist file-name-buffer-file-type-alist)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 (found nil)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 (code nil))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74 (let ((case-fold-search t))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 (setq filename (file-name-sans-versions filename))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 (while (and (not found) alist)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77 (if (string-match (car (car alist)) filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78 (setq code (cdr (car alist))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79 found t))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80 (setq alist (cdr alist))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 (if found
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82 (cond ((memq code '(nil t)) code)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 ((and (symbolp code) (fboundp code))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84 (funcall code filename)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85 default-buffer-file-type))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 (defun find-file-binary (filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 "Visit file FILENAME and treat it as binary."
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 (interactive "FFind file binary: ")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90 (let ((file-name-buffer-file-type-alist '(("" . t))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91 (find-file filename)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
93 (defun find-file-text (filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
94 "Visit file FILENAME and treat it as a text file."
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95 (interactive "FFind file text: ")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96 (let ((file-name-buffer-file-type-alist '(("" . nil))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
97 (find-file filename)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
98
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
99 (defun find-file-not-found-set-buffer-file-type ()
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
100 (save-excursion
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
101 (set-buffer (current-buffer))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
102 (setq buffer-file-type (find-buffer-file-type (buffer-file-name))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103 nil)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
104
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 ;;; To set the default file type on new files.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106 (add-hook 'find-file-not-found-hooks 'find-file-not-found-set-buffer-file-type)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 ;;; To accomodate filesystems that do not require CR/LF translation.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 (defvar untranslated-filesystem-list nil
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 "List of filesystems that require no CR/LF translation during file I/O.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112 Each element in the list is a string naming the directory prefix
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113 corresponding to the filesystem.")
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 (defun untranslated-canonical-name (filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 "Return FILENAME in a canonicalized form.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
117 This is for use with the functions dealing with untranslated filesystems."
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118 (if (memq system-type '(ms-dos windows-nt))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119 ;; The canonical form for DOS/NT/Win95 is with A-Z downcased and all
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120 ;; directory separators changed to directory-sep-char.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 (let ((name nil))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 (setq name (mapconcat
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 '(lambda (char)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 (if (and (<= ?A char) (<= char ?Z))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125 (char-to-string (+ (- char ?A) ?a))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 (char-to-string char)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 filename nil))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 ;; Use expand-file-name to canonicalize directory separators, except
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 ;; with bare drive letters (which would have the cwd appended).
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
130 (if (string-match "^.:$" name)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 name
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132 (expand-file-name name)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133 filename))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
134
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135 (defun untranslated-file-p (filename)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 "Test whether CR/LF translation should be disabled for FILENAME.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 Return t if FILENAME is on a filesystem that does not require
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138 CR/LF translation, and nil otherwise."
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
139 (let ((fs (untranslated-canonical-name filename))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140 (ufs-list untranslated-filesystem-list)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
141 (found nil))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142 (while (and (not found) ufs-list)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 (if (string-match (concat "^" (regexp-quote (car ufs-list))) fs)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 (setq found t)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145 (setq ufs-list (cdr ufs-list))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146 found))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148 (defun add-untranslated-filesystem (filesystem)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 "Record that FILESYSTEM does not require CR/LF translation.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 FILESYSTEM is a string containing the directory prefix corresponding to
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 the filesystem. For example, for a Unix filesystem mounted on drive Z:,
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 FILESYSTEM could be \"Z:\"."
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 (let ((fs (untranslated-canonical-name filesystem)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 (if (member fs untranslated-filesystem-list)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155 untranslated-filesystem-list
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 (setq untranslated-filesystem-list
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 (cons fs untranslated-filesystem-list)))))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 (defun remove-untranslated-filesystem (filesystem)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160 "Record that FILESYSTEM requires CR/LF translation.
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161 FILESYSTEM is a string containing the directory prefix corresponding to
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 the filesystem. For example, for a Unix filesystem mounted on drive Z:,
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 FILESYSTEM could be \"Z:\"."
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 (setq untranslated-filesystem-list
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 (delete (untranslated-canonical-name filesystem)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166 untranslated-filesystem-list)))
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
168 (provide 'dos-win32)
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
169
6cb35dee25f5 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
170 ;;; dos-win32.el ends here