1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / thread-self / root / usr / share / emacs / 24.3 / lisp /
Filename : dos-w32.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/dos-w32.el
;;; in Emacs version 24.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\303\304	B\305\306\307\310\311\312\313\314\315\314\316&	\207" [path-separator minibuffer-history-case-insensitive-variables null-device ";" file-name-history "NUL" custom-declare-variable file-name-buffer-file-type-alist '(("[:/].*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$")) "Alist 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." :type (repeat (cons regexp boolean)) :group dos-fns w32] 10)
(defalias 'find-buffer-file-type-match #[(filename) "\305\306\307\f!	\204$�\n\203$�\310\n@@\f\"\203�\n@\nA\202\n�	+\207" [file-name-buffer-file-type-alist found alist case-fold-search filename nil t file-name-sans-versions string-match] 3])
(defalias 'find-buffer-file-type #[(filename) "\303!\304\211\204�\305\306!\202+�\nA\211\307>\203�	\202+�	9\205+�\310	!\205+�	!*\207" [filename code match find-buffer-file-type-match nil default-value buffer-file-type (nil t) fboundp] 3])
(set-default 'buffer-file-coding-system 'undecided-dos)
#@2084 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 `untranslated-filesystem-list' and `file-name-buffer-file-type-alist',
and whether the file exists:

  If it matches in `untranslated-filesystem-list':
    If the file exists:					`undecided'
    If the file does not exist:				`undecided-unix'
  If it matches in `file-name-buffer-file-type-alist':
    If the match is t (for binary):			`no-conversion'
    If the match is nil (for dos-text):			`undecided-dos'
  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' and `buffer-file-type'. If
`buffer-file-coding-system' is non-nil, its value is used.  If it is
nil and `buffer-file-type' is t, the coding system is `no-conversion'.
Otherwise, it is `undecided-dos'.

The two most common situations are when DOS and Unix files are read
and written, and their names do not match in
`untranslated-filesystem-list' and `file-name-buffer-file-type-alist'.
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.
(defalias 'find-buffer-file-type-coding-system #[(command) "@\306\211\211\211\211\211\211\307=\203\221�A@\211:\203/�\310\nA!\205+�\311\nA!\n@\312\n!\211\204f�\313\n!\203C�\314\202f�\315\n!\204Y�	;\203^�\315\316	\317\n!\"!\203^�\314\202f�\320\n!\203f�\314\203o�\321\202\256�
\203w�\322\202\256�\203�\323\202\256�\f\203\207�\324\202\256�\325\326!\325\326!B\202\256�\327=\205\256�\203\244�\211B\202\256�\203\255�\330\202\256�\331.\207" [command target-buf target undecided-unix undecided text nil insert-file-contents bufferp buffer-name find-buffer-file-type find-buffer-file-type-match t file-exists-p expand-file-name file-name-directory untranslated-file-p (no-conversion . no-conversion) (undecided-dos . undecided-dos) (undecided-unix . undecided-unix) (undecided . undecided) default-value buffer-file-coding-system write-region (no-conversion . no-conversion) (undecided-dos . undecided-dos) binary op buffer-file-type] 8 (#$ . 1970)])
(modify-coding-system-alist 'file "" 'find-buffer-file-type-coding-system)
#@45 Visit file FILENAME and treat it as binary.
(defalias 'find-file-binary #[(filename) "\302\303	!)\207" [file-name-buffer-file-type-alist filename (("" . t)) find-file] 2 (#$ . 5107) "FFind file binary: "])
#@50 Visit file FILENAME and treat it as a text file.
(defalias 'find-file-text #[(filename) "\302\303	!)\207" [file-name-buffer-file-type-alist filename (("")) find-file] 2 (#$ . 5320) "FFind file text: "])
(defalias 'find-file-not-found-set-buffer-file-coding-system #[nil "rpq\210\n\204�\204�\304\305 !\203�\306	\307\"\211*\310\207" [buffer-file-coding-system coding coding-system-for-read inhibit-eol-conversion untranslated-file-p buffer-file-name coding-system-change-eol-conversion 0 nil] 4])
(add-hook 'find-file-not-found-functions 'find-file-not-found-set-buffer-file-coding-system)
#@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 untranslated-filesystem-list nil (#$ . 5924))
#@107 Return FILENAME in a canonicalized form for use with the functions
dealing with untranslated filesystems.
(defalias 'untranslated-canonical-name #[(filename) "\303>\203%�\304\305\306\n\304#\307\310	\"\204�\307\311	\"\203 �	\202#�\312	!)\207\n\207" [system-type name filename (ms-dos windows-nt cygwin) nil mapconcat #[(char) "\301X\203�\302X\203�\303\301Z\304\\!\207\303!\207" [char 65 90 char-to-string 97] 3] string-match "^.:$" "^/[^/:]+:" expand-file-name] 4 (#$ . 6173)])
#@101 Return t if FILENAME is on a filesystem that does not require
CR/LF translation, and nil otherwise.
(defalias 'untranslated-file-p #[(filename) "\305!	\306\n\204&�\203&�\307\310@P\f\"\203 �\311\211\202	�A\202�\n+\207" [filename untranslated-filesystem-list found ufs-list fs untranslated-canonical-name nil string-match "^" t] 4 (#$ . 6667)])
#@254 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:".
(defalias 'add-untranslated-filesystem #[(filesystem) "\303!\211\n\235\203�\n\202�	\nB\211)\207" [filesystem fs untranslated-filesystem-list untranslated-canonical-name] 3 (#$ . 7027) "DUntranslated file system: "])
#@259 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:".
(defalias 'remove-untranslated-filesystem #[(filesystem) "\302\303!	\"\211\207" [filesystem untranslated-filesystem-list delete untranslated-canonical-name] 3 (#$ . 7508) "fUntranslated file system: "])
#@53 If non-nil, use command.com to print on Windows 9x.
(custom-declare-variable 'direct-print-region-use-command-dot-com t '(#$ . 7977) :type 'boolean :group 'dos-fns :group 'w32)
(defalias 'direct-print-region-helper #[(printer start end lpr-prog _delete-text _buf _display rest) "\306	;\203�\307\310\311	#\202�	\312\313\314!\313\315!E\316\n@!\204'�\nA\202�\n@)\307\310\311\317\320\321\f\"!#\322\323!\306D-	;\203R�\324\325	\"\204R�\307\310\311\320	\"#\326\216\324\327\330.!\"\203x�\331/0
\332\333%\210\334.\332-\332
\335	P&\2029\324\336\330.!\"\203\310�1\337=\203\217�\313\340!\203\223�\341\342!\2100/V\203\252�\3430Sf\344\"\203\252�0S0\3322\331/0
\332\333%\210)\334.\332-\332\345	P
&\2029.G\333V\203\361�\331/0
\332\333%\210\3463
C\"3\347\334.\332-\3323&\20291\337=\2030\313\340!\20304\2030\350\316	!8\206\f\333\333=\2030\331/0
\332\333%\210\3325\334\351\332-\332\352\353\354
	#&)\2029\331/0	\306\333%.\207" [case-fold-search printer safe-dirs safe-dir temporary-file-directory tempfile 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*" string-match "^\\\\" ((byte-code "\301!\203\n�\302!\210\301\207" [tempfile file-exists-p delete-file] 2)) "^nprint\\(\\.exe\\)?$" file-name-nondirectory write-region nil 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" errbuf lpr-prog start end system-type write-region-annotate-functions rest direct-print-region-use-command-dot-com w32-quote-process-args] 10])
#@235 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.
(defalias 'direct-print-region-function #[(start end &optional lpr-prog delete-text buf display &rest rest) "\211\204\n�\306\202
�\307	!\310\n!\311\fB\312\313!\203'�\313J;\203'�\313J\206-�
\206-�\314 \315=\2049�\316H\317&-\207" [coding-system-for-write coding coding-base eol-type write-region-annotate-functions printer-name undecided coding-system-base coding-system-eol-type #[(_start end) "\301Sf\302\"?\205�\303BC\207" [end char-equal 12 "\f"] 3] boundp dos-printer default-printer-name no-conversion 1 direct-print-region-helper printer start end lpr-prog delete-text buf display rest] 10 (#$ . 9717)])
(byte-code "\302\303\302\207" [print-region-function lpr-headers-switches direct-print-region-function "(page headers are not supported)"] 1)
#@252 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.
(defalias 'direct-ps-print-region-function #[(start end &optional lpr-prog delete-text buf display &rest rest) "\306\307!\203�\307J;\203�\307J\206�\206�\310 \311	\n\f
\n\f&)\207" [ps-printer-name printer start end lpr-prog delete-text boundp dos-ps-printer default-printer-name direct-print-region-helper buf display rest] 9 (#$ . 10741)])
(byte-code "\301\302\303!\207" [ps-print-region-function direct-ps-print-region-function provide dos-w32] 2)