| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/dos-w32.elc |
;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\332 2\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\332 5\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)