;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue Jun  7 14:46:17 1994
;;; from file /gd/gnu/emacs/19.0/lisp/dos-fns.el
;;; emacs version 19.25.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/dos-fns.el' was compiled for Emacs 19"))

(byte-code "ÀÁÂÃ!ÄÅÂÆ!ÇÂÈ!ÂÉ!ÊËÌÂÍ!ÂÎ!ÂÏ!ÂÐ!ÂÑ!¯\"‡" [set-default mode-line-format purecopy "" mode-line-modified mode-line-buffer-identification "   " global-mode-string "   %[(" "%t:" mode-name mode-line-process minor-mode-alist "%n" ")%]--" (line-number-mode "L%l--") (-3 . "%p") "-%-"] 18)
(defvar file-name-buffer-file-type-alist (quote (("[:/].*config.sys$") ("\\.elc$" . t) ("\\.\\(obj\\|exe\\|com\\|lib\\|sys\\|chk\\|out\\|bin\\|ico\\|pif\\)$" . t) ("\\.\\(arc\\|zip\\|pak\\|lzh\\|zoo\\)$" . t) ("\\.\\(a\\|o\\|tar\\|z\\|gz\\|taz\\)$" . t) ("\\.tp[ulpw]$" . t) ("[:/]tags$" . t))) "\
*Alist for distinguishing text files from binary files.
Each element has the form (REGEXP . TYPE), where REGEXP is matched
against the file name, and TYPE is nil for text, t for binary.")
(defalias (quote find-buffer-file-type) #[(filename) "Á‰ÅÇ!„- \fƒ- É\f@@\"ƒ' \f@AÅ\fA‚ )ƒN \nÊ>ƒ< \n‚P \n9…P Ë\n!…P \n!‚P \f+‡" [file-name-buffer-file-type-alist nil code found alist t case-fold-search file-name-sans-versions filename string-match (nil t) fboundp default-buffer-file-type] 3])
(defalias 'find-file-binary #[(filename) "ÀÂ!)‡" [(("" . t)) file-name-buffer-file-type-alist find-file filename] 2 "\
Visit file FILENAME and treat it as binary." "FFind file binary: "])
(defalias 'find-file-text #[(filename) "ÀÂ!)‡" [(("")) file-name-buffer-file-type-alist find-file filename] 2 "\
Visit file FILENAME and treat it as a text file." "FFind file text: "])
(byte-code "ÀÁÂ\"ˆÃÄÁ\"‡" [defalias find-file-not-found-set-buffer-file-type #[nil "ŠpqˆÀÁ !)Ã‡" [find-buffer-file-type buffer-file-name buffer-file-type nil] 2] add-hook find-file-not-found-hooks] 3)
(defvar msdos-shells (quote ("command.com" "4dos.com" "ndos.com")) "\
*List of shells that use `/c' instead of `-c' and a backslashed command.")
(byte-code "ÀÂÃÄ\"ˆÂÅÆ\"ˆÂÇÈ\"ˆÂÉÊ\"ˆËÉÌÍ#ˆÂÎÏ\"ˆÂÐÏ\"ˆÑÒMˆÓÔ!ˆÕÖ!ˆÕ×!ˆÕØ!‡" [((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)) register-name-alist defalias make-register #[nil "ÀÁÂ\"‡" [make-vector 8 0] 3] register-value #[(regs name) "À	\n\"A‰:ƒ$ \f@HAÆUƒ Ç¦‚  Ç¥)‚0 §ƒ/ \fH‚0 È)‡" [assoc name register-name-alist where regs tem 0 256 nil] 4] set-register-value #[(regs name value) "§ƒX ÁYƒX Â\f\"A‰:ƒI @HÇÈ\"	@AÁUƒ8 ÊÇ	Ë\"\"‚C ÊÇ	È\"ÌÍ\"\"Iˆ*‚W §ƒW ÇÎ\"Iˆ)‡" [value 0 assoc name register-name-alist where regs logand 255 tem logior 65280 lsh 8 65535] 8] intdos #[(regs) "ÀÁ\n\"‡" [int86 33 regs] 3] put byte-optimizer byte-compile-inline-expand window-frame ignore x-set-selection x-get-selection (lambda (&rest rest) "") fmakunbound font-menu-add-default global-unset-key [C-down-mouse-1] [C-down-mouse-2] [C-down-mouse-3]] 4)