Current File : //usr/local/share/emacs/27.2/lisp/dos-w32.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\304>\203 \305\306\nB\307\310\311\312\"\210\313\314\315\316\317\320\321\322\321\323& \210\324\314\325\326#\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 '(("[:/].*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 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)
#@1780 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.
(defalias 'find-buffer-file-type-coding-system #[(command) "@\306\211\211\211 \211 \307\267\202v A@\211:\203) \310\nA!\205% \311\nA!\n@\312\n!\204? ;\203D \312\313 \314\n!\"!\203D \315\202L \316\n!\203L \315 \203T \317\202w \f\203\\ \320\202w \321\322!\321\322!B\202w \203r \211B\202w \323\202w \306-\207" [command target-buf target undecided-unix undecided op nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (insert-file-contents 17 write-region 102)) 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 buffer-file-coding-system (undecided-dos . undecided-dos)] 6 (#$ . 1565)])
(make-obsolete 'find-buffer-file-type-coding-system nil "24.4")
#@45 Visit file FILENAME and treat it as binary.
(defalias 'find-file-binary #[(filename) "\302\303 !)\207" [coding-system-for-read filename no-conversion find-file] 2 (#$ . 4167) "FFind file binary: "])
#@50 Visit file FILENAME and treat it as a text file.
(defalias 'find-file-text #[(filename) "\302\303 !)\207" [coding-system-for-read filename undecided-dos find-file] 2 (#$ . 4373) "FFind file text: "])
(defalias 'w32-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 w32-untranslated-file-p buffer-file-name coding-system-change-eol-conversion 0 nil] 4])
(byte-code "\302\303\304\"\210\305\306\307\310#\210\311\310\211\2031 @\306N\203* \307N\204* \312\307\306N#\210 A\211\204 *\313\306\307\314#\207" [prop --dolist-tail-- 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"] 6)
#@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 (#$ . 5312))
#@107 Return FILENAME in a canonicalized form for use with the functions
dealing with untranslated filesystems.
(defalias 'w32-untranslated-canonical-name #[(filename) "\304>\2035 \305\306 \307#\310\n\307\311\312#)\266\203\204, \313\n\307\311\312#)\266\203\2030 \n\2023 \314\n!)\207 \207" [system-type filename name inhibit-changing-match-data (ms-dos windows-nt cygwin) mapconcat #[(char) "\301\302X\203 \303X\203 \302Z\304\\\202 !\207" [char char-to-string 65 90 97] 3] nil "^.:\\'" t string-match "^/[^/:]+:" expand-file-name] 7 (#$ . 5565)])
#@101 Return t if FILENAME is on a filesystem that does not require
CR/LF translation, and nil otherwise.
(defalias 'w32-untranslated-file-p #[(filename) "\306! \307 \n\204/ \203/ \310 @P\f\307\311 \312#)\266\203\203) \311\211\202 A\202 \n+\207" [filename w32-untranslated-filesystem-list found ufs-list fs inhibit-changing-match-data w32-untranslated-canonical-name nil "^" t string-match] 8 (#$ . 6129)])
(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)
#@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 'w32-add-untranslated-filesystem #[(filesystem) "\303!\211\n\235\203 \n\202 \nB\211)\207" [filesystem fs w32-untranslated-filesystem-list w32-untranslated-canonical-name] 3 (#$ . 6704) "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)
#@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 'w32-remove-untranslated-filesystem #[(filesystem) "\302\303! \"\211\207" [filesystem w32-untranslated-filesystem-list delete w32-untranslated-canonical-name] 3 (#$ . 7358) "fUntranslated file system: "])
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\210\312\304\313\314\315\316\317\320\317\321& \207" [prop --dolist-tail-- 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 t "If non-nil, use command.com to print on Windows 9x." :type boolean :group dos-fns w32] 11)
(defalias 'w32-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 - ;\203\\ \324 \325\306 .\326#)\266\203\204\\ \307\310\311\320 \"#\327\216\330\331/!\325\306 .\326#)\266\203\203\214 \33201
\325\333%\210\334/\325-\325
\335 P&\202^\336\331/!\325\306 .\326#)\266\203\203\352 2\337=\203\255 \313\340!\203\261 \341\342!\21010V\203\314 \3431\206\300 `Sf\344\"\203\314 1S1\325 3\33201
\325\333%\210)\334/\325-\325\345 P
&\202^/G\333V\203\33201
\325\333%\210\3464
C\"4\347\334/\325-\3254&\202^2\337=\203U\313\340!\203U5\203U\316 !\3508\262\2061\333\333=\203U\33201
\325\333%\210\325 6\334\351\325-\325\352\353\354
#&)\202^\33201 \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*" "^\\\\" nil string-match #[nil "\301!\205 \302!\207" [tempfile 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" errbuf inhibit-changing-match-data lpr-prog start end system-type write-region-annotate-functions rest w32-direct-print-region-use-command-dot-com w32-quote-process-args] 10])
(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)
#@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 'w32-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) "\301\206 `Sf\302\"?\205 \303BC\207" [end char-equal 12 "\f"] 3] boundp dos-printer default-printer-name no-conversion 1 w32-direct-print-region-helper printer start end lpr-prog delete-text buf display rest] 10 (#$ . 10155)])
(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)
#@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 'w32-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 w32-direct-print-region-helper buf display rest] 9 (#$ . 11319)])
(provide 'dos-w32)
Mini Shell