;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\304>\203\305\306\nB\307\310\311\312\"\210\313\314\315\316\317DD\320\321\322\323\324\323\325&	\210\326\314\327\330#\207" [system-type path-separator minibuffer-history-case-insensitive-variables null-device (ms-dos windows-nt) ";" file-name-history "NUL" set-default buffer-file-coding-system undecided-dos custom-declare-variable file-name-buffer-file-type-alist funcall function #[0 "\300\207" [(("[:/].*config.sys$") ("\\.\\(obj\\|exe\\|com\\|lib\\|sys\\|bin\\|ico\\|pif\\|class\\)$" . t) ("\\.\\(dll\\|drv\\|386\\|vxd\\|fon\\|fnt\\|fot\\|ttf\\|grp\\)$" . t) ("\\.\\(bmp\\|wav\\|avi\\|mpg\\|jpg\\|tif\\|mov\\|au\\)$" . t) ("\\.\\(arc\\|zip\\|pak\\|lzh\\|zoo\\)$" . t) ("\\.\\(a\\|o\\|tar\\|z\\|gz\\|taz\\|jar\\)$" . t) ("\\.sx[dmicw]$" . t) ("\\.tp[ulpw]$" . t) ("[:/]tags$"))] 1 ""] "Alist used in the past for distinguishing text files from binary files.\nEach element has the form (REGEXP . TYPE), where REGEXP is matched\nagainst the file name, and TYPE is nil for text, t for binary.\n\nThis variable is deprecated, not used anywhere, and will soon be deleted." :type (repeat (cons regexp boolean)) :group dos-fns w32 make-obsolete-variable file-coding-system-alist "24.4"] 10)
#@1794 Choose a coding system for a file operation in COMMAND.
COMMAND is a list that specifies the operation, an I/O primitive, as its
CAR, and the arguments that might be given to that operation as its CDR.
If operation is `insert-file-contents', the coding system is chosen based
upon the filename (the CAR of the arguments beyond the operation), the contents
of `w32-untranslated-filesystem-list' and `file-name-buffer-file-type-alist',
and whether the file exists:

  If it matches in `w32-untranslated-filesystem-list':
    If the file exists:					`undecided'
    If the file does not exist:				`undecided-unix'
  Otherwise:
    If the file exists:					`undecided'
    If the file does not exist   default value of `buffer-file-coding-system'

Note that the CAR of arguments to `insert-file-contents' operation could
be a cons cell of the form (FILENAME . BUFFER), where BUFFER is a buffer
into which the file's contents were already read, but not yet decoded.

If operation is `write-region', the coding system is chosen based
upon the value of `buffer-file-coding-system'.  If
`buffer-file-coding-system' is non-nil, its value is used.
Otherwise, it is `undecided-dos'.

The most common situation is when DOS and Unix files are read and
written, and their names do not match in `w32-untranslated-filesystem-list'.
In these cases, the coding system initially will be `undecided'.
As the file is read in the DOS case, the coding system will be
changed to `undecided-dos' as CR/LFs are detected.  As the file
is read in the Unix case, the coding system will be changed to
`undecided-unix' as LFs are detected.  In both cases,
`buffer-file-coding-system' will be set to the appropriate coding
system, and the value of `buffer-file-coding-system' will be used
when writing the file.

(fn COMMAND)
(defalias 'find-buffer-file-type-coding-system #[257 "\211@\301\211\211\211\302\267\202jA@\262
:\203'\303A!\205!\304A!\262

@\262\305!\204=\211;\203C\305\306\307!\"!\203C\310\262\202L\311!\203L\310\262\203R\312\207\203X\313\207\314\300!\314\300!B\207\203h\211B\207\315\207\301\207" [buffer-file-coding-system nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (insert-file-contents 12 write-region 96)) bufferp buffer-name file-exists-p expand-file-name file-name-directory t w32-untranslated-file-p (undecided-unix . undecided-unix) (undecided . undecided) default-value (undecided-dos . undecided-dos)] 11 (#$ . 1290)])
(make-obsolete 'find-buffer-file-type-coding-system nil "24.4")
#@60 Visit file FILENAME and treat it as binary.

(fn FILENAME)
(defalias 'find-file-binary #[257 "\301\302
!)\207" [coding-system-for-read no-conversion find-file] 3 (#$ . 3840) "FFind file binary: "])
#@65 Visit file FILENAME and treat it as a text file.

(fn FILENAME)
(defalias 'find-file-text #[257 "\301\302
!)\207" [coding-system-for-read undecided-dos find-file] 3 (#$ . 4045) "FFind file text: "])
(defalias 'w32-find-file-not-found-set-buffer-file-coding-system #[0 "rpq\210	\204\n\204\303\304 !\203\305
\306\"\262
\211\307\262
)\207" [buffer-file-coding-system coding-system-for-read inhibit-eol-conversion w32-untranslated-file-p buffer-file-name coding-system-change-eol-conversion 0 nil] 4])
(byte-code "\300\301\302\"\210\303\304\305\306#\210\307\211\203-\211@\304
N\203&\305
N\204&\310\305\304N#\210
A\266\202\202\f\210\311\304\305\312#\207" [add-hook find-file-not-found-functions w32-find-file-not-found-set-buffer-file-coding-system defvaralias untranslated-filesystem-list w32-untranslated-filesystem-list nil (saved-value saved-variable-comment) put make-obsolete-variable "24.4"] 7)
#@189 List of filesystems that require no CR/LF translation when reading
and writing files.  Each filesystem in the list is a string naming
the directory prefix corresponding to the filesystem.
(defvar w32-untranslated-filesystem-list nil (#$ . 4964))
#@122 Return FILENAME in a canonicalized form for use with the functions
dealing with untranslated filesystems.

(fn FILENAME)
(defalias 'w32-untranslated-canonical-name #[257 "\302>\2030\303\304\305#\306
\305\307\310#)\266\203\204+\311
\305\307\310#)\266\203\203,\207\312
!\207\207" [system-type inhibit-changing-match-data (ms-dos windows-nt cygwin) mapconcat #[257 "\300\301X\203
\302X\203
\301Z\303\\\202
!\207" [char-to-string 65 90 97] 4 "\n\n(fn CHAR)"] nil "^.:\\'" t string-match "^/[^/:]+:" expand-file-name] 9 (#$ . 5217)])
#@116 Return t if FILENAME is on a filesystem that does not require
CR/LF translation, and nil otherwise.

(fn FILENAME)
(defalias 'w32-untranslated-file-p #[257 "\302
!\303\211\204-
\203-\304@P\303\305\306#)\266\203\203&\305\262
\202
A\262\202\207" [w32-untranslated-filesystem-list inhibit-changing-match-data w32-untranslated-canonical-name nil "^" t string-match] 11 (#$ . 5773)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias add-untranslated-filesystem w32-add-untranslated-filesystem nil make-obsolete "24.4"] 4)
#@271 Add FILESYSTEM to the list of filesystems that do not require
CR/LF translation.  FILESYSTEM is a string containing the directory
prefix corresponding to the filesystem.  For example, for a Unix
filesystem mounted on drive Z:, FILESYSTEM could be "Z:".

(fn FILESYSTEM)
(defalias 'w32-add-untranslated-filesystem #[257 "\301
!\211\235\203\207\211B\211\207" [w32-untranslated-filesystem-list w32-untranslated-canonical-name] 4 (#$ . 6329) "DUntranslated file system: "])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias remove-untranslated-filesystem w32-remove-untranslated-filesystem nil make-obsolete "24.4"] 4)
#@276 Remove FILESYSTEM from the list of filesystems that do not require
CR/LF translation.  FILESYSTEM is a string containing the directory
prefix corresponding to the filesystem.  For example, for a Unix
filesystem mounted on drive Z:, FILESYSTEM could be "Z:".

(fn FILESYSTEM)
(defalias 'w32-remove-untranslated-filesystem #[257 "\301\302!\"\211\207" [w32-untranslated-filesystem-list delete w32-untranslated-canonical-name] 4 (#$ . 6973) "fUntranslated file system: "])
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\210\310\302\311\312\313DD\314\315\316\317\320\317\321&	\207" [defvaralias direct-print-region-use-command-dot-com w32-direct-print-region-use-command-dot-com nil (saved-value saved-variable-comment) put make-obsolete-variable "24.4" custom-declare-variable funcall function #[0 "\300\207" [t] 1 ""] "If non-nil, use command.com to print on Windows 9x." :type boolean :group dos-fns w32] 10)
#@64 

(fn PRINTER START END LPR-PROG DELETE-TEXT BUF DISPLAY REST)
(defalias 'w32-direct-print-region-helper #[2056 "\306;\203\307\310\311\n#\202\312\313\314!\313\315!E\316
@!\204)\211A\262
\202\211@\262
\307\310\311\317\320\321	\"!#\322\323!\306D;\203]\324\325\306\326#)\266\203\204]\307\310\311\320\"#\262\327\330\"\216\331\332\n!\325\306\326#)\266\203\203\220\333\325\334%\210\335	\325\325\336\nP&\202^
\337\332\n!\325\306\326#)\266\203\203\354\340=\203\257\313\341!\203\263\342\343!\210	V\203\316\344\n\206\302`Sf\345\"\203\316	S\262\n\325\333\325\334%\210)\335	\325\325\346	P&\202^
G\334V\203
\333\325\334%\210\347C\"\262\350\335\n\325\325\n&\202^
\340=\203T
\313\341!\203T

\203T
\316!\351
8\262
\206/
\334\334=\203T
\333\325\334%\210\325.\335\352\325\325\353\354\355	\f#&)\202^
\333\306\334%*\207" [case-fold-search temporary-file-directory inhibit-changing-match-data system-type write-region-annotate-functions w32-direct-print-region-use-command-dot-com t subst-char-in-string 47 92 "c:/" getenv "windir" "TMPDIR" file-attributes make-temp-name expand-file-name "EP" get-buffer-create " *print-region-helper*" "^\\\\" nil string-match make-closure #[0 "\301\300!\205	\302\300!\207" [V0 file-exists-p delete-file] 2] "\\`nprint\\(\\.exe\\)?\\'" file-name-nondirectory write-region 0 call-process "P=" "\\`print\\(\\.exe\\)?\\'" windows-nt "winbootdir" error "Printing via print.exe is not supported on MS-DOS or Windows 9x" char-equal 12 "/D:" append apply 7 "command.com" "/c" format "copy /b %s %s" w32-quote-process-args] 22 (#$ . 7976)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias direct-print-region-function w32-direct-print-region-function nil make-obsolete "24.4"] 4)
#@305 DOS/Windows-specific function to print the region on a printer.
Writes the region to the device or file which is a value of
`printer-name' (which see), unless the value of `lpr-command'
indicates a specific program should be invoked.

(fn START END &optional LPR-PROG DELETE-TEXT BUF DISPLAY &rest REST)
(defalias 'w32-direct-print-region-function #[1666 "\211\204	\303\202\f\304
!\305
!\306	B\307\310!\203$\310J;\203$\310J\206*\n\206*\311 \312=\2044
\313H\314
\f\f\f\f\f\f\f&)\207" [coding-system-for-write write-region-annotate-functions printer-name undecided coding-system-base coding-system-eol-type #[514 "\300
\206`Sf\301\"?\205\211\302BC\207" [char-equal 12 "\f"] 5 "\n\n(fn START END)"] boundp dos-printer default-printer-name no-conversion 1 w32-direct-print-region-helper] 20 (#$ . 9794)])
(byte-code "\302>\203\303\304\305\306\307#\210\310\305\306\311#\207" [system-type lpr-headers-switches (ms-dos windows-nt) "(page headers are not supported)" defalias direct-ps-print-region-function w32-direct-ps-print-region-function nil make-obsolete "24.4"] 4)
#@322 DOS/Windows-specific function to print the region on a PostScript printer.
Writes the region to the device or file which is a value of
`ps-printer-name' (which see), unless the value of `ps-lpr-command'
indicates a specific program should be invoked.

(fn START END &optional LPR-PROG DELETE-TEXT BUF DISPLAY &rest REST)
(defalias 'w32-direct-ps-print-region-function #[1666 "\301\302!\203\302J;\203\302J\206\206\303 \304
							&\207" [ps-printer-name boundp dos-ps-printer default-printer-name w32-direct-print-region-helper] 17 (#$ . 10893)])
(provide 'dos-w32)