;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:48:17 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/dos-fns.el ;;; in Emacs version 23.4 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@400 Convert a standard file's name to something suitable for the current OS. This means to guarantee valid names and perhaps to canonicalize certain patterns. On Windows and DOS, replace invalid characters. On DOS, make sure to obey the 8.3 limitations. On Windows, turn Cygwin names into native names, and also turn slashes into backslashes if the shell requires it (see `w32-shell-dos-semantics'). (defalias 'convert-standard-filename #[(filename) ";\203\f\306\307\"\203\207G SH\310>\203&\311\312 SO!\313P\202=\314\315 W\203D\315H\316=\203D\306\317\"\204D\312\320O\202G\321!\211GS\322\323!!\211\211GSH#\314\211$%\324 \203w\306\325 \"\211$\203 $\326I\210\202d \327\235\204 \312H\330U\203\212 \312\331I\210\306\332 \"\204\251 G\333V\203\251\306\334 \335#\211$\203\251 $\330I\210\306\336 \"\211$\203\274 $\331I\210\202\251\306\332 \"\206\305 G\333V\203\325 \312\333O\337 \333\314OQ\306\332 \"\206\337 GS% G%\340\\V\203\363 \312%\340\\O\306\332 %T#\203\306\332 %T#$ $\331I\210\202\363#\341>\203 \211GS#I\210 ;\2036 \fH\342>\2036\311 \312\fO!\313P\2029\311 ! P.)\207" [filename flen file-name-handler-alist dir dlen-m-1 string string-match "\\`\\([a-zA-Z]:\\)?[/\\]?\\'" (47 92) convert-standard-filename 0 "/" nil 1 58 "[/\\]" 2 file-name-directory copy-sequence file-name-nondirectory msdos-long-file-names "[?*:<>|\"-]" 33 ("" "." "..") 46 95 "\\." 8 "[-_]" 5 "[^-a-zA-Z0-9_.%~^$!#&{}@`'()\200-\376]" "." 4 (126 35) (47 92) lastchar i firstdot] 6 (#$ . 536)]) #@38 Truncate FILENAME to DOS 8+3 limits. (defalias 'dos-8+3-filename #[(filename) ";\203\fG\306W\203\207G SH\307>\203&\310\311 SO!\312P\202\320\313\314 W\203D\314H\315=\203D\316\317\"\204D\311\320O\202G\321!\211GS\322\323!!\211G SH\313\211\316\324 \"\211\203\226\325\\V\203 \311\325\\O\326V\203\242 \311\326O\327 T\313OQ\202\242\326V\203\242 \311\326O\330\232\203\261 \211GSI\210 ;\203\311 \fH\331>\203\311\310 \311\fO!\312P\202\314\310 ! P.)\207" [filename flen file-name-handler-alist dir dlen-m-1 string 5 (47 92) dos-8+3-filename 0 "/" nil 1 58 string-match "[/\\]" 2 file-name-directory copy-sequence file-name-nondirectory "\\." 4 8 "." 126 (47 92) strlen lastchar i firstdot] 6 (#$ . 2073)]) #@367 Return a variant of FILE-NAME that is valid on MS-DOS filesystems. This function is for those rare cases where `convert-standard-filename' does not do a job that is good enough, e.g. if you need to preserve the file-name extension. It recognizes only certain specific file names that are used in Emacs Lisp sources; any other file name will be returned unaltered. (defalias 'dosified-file-name #[(file-name) "\301\230\203\302\207\207" [file-name ".dir-locals.el" "_dir-locals.el"] 2 (#$ . 2842)]) (defalias 'set-default-process-coding-system #[nil "\301\302!\203\n\303\202 \304\211\207" [default-process-coding-system default-value enable-multibyte-characters (undecided-dos . undecided-dos) (raw-text-dos . raw-text-dos)] 2]) (add-hook 'before-init-hook 'set-default-process-coding-system) (defalias 'dos-reevaluate-defcustoms #[nil "\300\207" [nil] 1]) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\301\207" [current-load-list add-hook before-init-hook dos-reevaluate-defcustoms register-name-alist default-boundp set-default ((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) (cflag . 6) (flags . 7) (al 0 . 0) (bl 1 . 0) (cl 2 . 0) (dl 3 . 0) (ah 0 . 1) (bh 1 . 1) (ch 2 . 1) (dh 3 . 1))] 3) (defalias 'make-register #[nil "\300\301\302\"\207" [make-vector 8 0] 3]) (defalias 'register-value #[(regs name) "\305 \"A\211:\203$ \n@H\306\nA!\203\f\307\246\202 \f\307\245)\2020\n\247\203/ \nH\2020\310)\207" [name register-name-alist where regs tem assoc zerop 256 nil] 4]) (defalias 'set-register-value #[(regs name value) "\247\203R\306Y\203R\307 \n\"A\211:\203D\f @H\310\311\"\f @\312 A!\2034\313\310 \314\"\"\202>\313\310 \311\"\315\316\"\"I\210*\202Q \247\203Q\f \310\317\"I\210)\f\207" [value name register-name-alist where regs tem 0 assoc logand 255 zerop logior 65280 lsh 8 65535] 8]) (defalias 'intdos #[(regs) "\301\302\"\207" [regs int86 33] 3]) (put 'intdos 'byte-optimizer 'byte-compile-inline-expand) #@42 Changes the number of screen rows to 25. (defalias 'mode25 #[nil "\300\301 \302\303#\207" [set-frame-size selected-frame 80 25] 4 (#$ . 4829) nil]) #@227 Changes the number of rows to 43 or 50. Emacs always tries to set the screen height to 50 rows first. If this fails, it will try to set it to 43 rows, on the assumption that your video hardware might not support 50-line mode. (defalias 'mode4350 #[nil "\300\301 \302\303#\210\304\301 !\303=?\205\300\301 \302\305#\207" [set-frame-size selected-frame 80 50 frame-height 43] 4 (#$ . 4984) nil]) (provide 'dos-fns)