;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:57 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/dos-fns.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@263 Convert a standard file's name to something suitable for the current OS. This function's standard definition is trivial; it just returns the argument. However, on some systems, the function is redefined with a definition that really does change some file names. (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$\314%\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 (#$ . 617)]) #@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\313\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 (#$ . 2017)]) (byte-code "\300\301KM\207" [original-make-auto-save-file-name make-auto-save-file-name] 2) #@241 Return file name to use for auto-saves of current buffer. Does not consider `auto-save-visited-file-name' as that variable is checked before calling this function. You can redefine this for customization. See also `auto-save-file-name-p'. (defalias 'make-auto-save-file-name #[nil "\301 \302\303\"\203\202\304!)\207" [filename original-make-auto-save-file-name string-match "^/\\w+@[-A-Za-z0-9._]+:" convert-standard-filename] 3 (#$ . 2878)]) (byte-code "\301B\301\207" [current-load-list msdos-shells] 2) (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 "\302\303\304\"\210\301B\305\301!\204\306\302\207" [current-load-list register-name-alist add-hook before-init-hook set-default-process-coding-system boundp ((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 (#$ . 4711) 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 (#$ . 4866) nil]) (provide 'dos-fns)