;ELC   
;;; Compiled by rms@psilocin.ai.mit.edu on Wed Jul  8 20:18:17 1998
;;; from file /gd/gnu/emacs/lisp/dos-fns.el
;;; in Emacs version 20.2.97.2
;;; with bytecomp version 2.47
;;; 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) "\306 \204 ;\203 \307!\310\235\203 \207\311!\312\307!!\211\211GSH\313\313\n\314H\315U\2035 \n\314\316I\210\317\320\n\"\211\203F \n\f\316I\210\2025 \317\321\n\"\204\\ \317\322\n\323#\211\203\\ \n\f\315I\210\317\321\n\"\206e \nG\324V\203u \n\314\324O\325\n\324\313OQ\317\321\n\"\206 \nGS\nG\326\\V\203\220 \n\314\326\\O\317\321\nT#\203\250 \317\321\nT#\n\f\316I\210\202\220 \327\232\203\265 \n\211GSI\210	\nP-\207" [filename dir string lastchar i firstdot msdos-long-file-names file-name-nondirectory ("" "." "..") file-name-directory copy-sequence nil 0 46 95 string-match "[^-a-zA-Z0-9_.%~^$!#&{}@`'()\200-\376]" "\\." "[-_]" 1 8 "." 4 126] 6 (#$ . 603)])
(byte-code "\302B\303\301!\204\f \304\301B\302\207" [current-load-list register-name-alist msdos-shells 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))] 2)
(defalias 'make-register #[nil "\300\301\302\"\207" [make-vector 8 0] 3])
(defalias 'register-value #[(regs name) "\305	\"A\211:\203$ \n@H\nA\306U\203 \f\307\246\202  \f\307\245)\2020 \n\247\203/ \nH\2020 \310)\207" [name register-name-alist where regs tem assoc 0 256 nil] 4])
(defalias 'set-register-value #[(regs name value) "\247\203R \306Y\203R \307	\n\"A\211:\203D \f@H\310\311\"\f@A\306U\2034 \312\310\313\"\"\202> \312\310\311\"\314\315\"\"I\210*\202Q \247\203Q \f\310\316\"I\210)\f\207" [value name register-name-alist where regs tem 0 assoc logand 255 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 (#$ . 2628) 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 (#$ . 2783) nil])
(provide 'dos-fns)