;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:38 2007 ;;; from file /home/cyd/emacs/lisp/dos-fns.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dos-fns.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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 (#$ . 562)]) #@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 (#$ . 2099)]) (defalias 'set-default-process-coding-system #[nil "\203\302\202 \303\211\207" [default-enable-multibyte-characters default-process-coding-system (undecided-dos . undecided-dos) (raw-text-dos . raw-text-dos)] 2]) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\301\207" [current-load-list add-hook before-init-hook set-default-process-coding-system 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 (#$ . 4210) 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 (#$ . 4365) nil]) (provide 'dos-fns)