;ELC   
;;; compiled by kwzh@hill.gnu.ai.mit.edu on Thu Jun 15 22:09:28 1995
;;; from file /gd/gnu/emacs/19.0/lisp/winnt.el
;;; emacs version 19.28.94.4.
;;; 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.28.90")))
    (error "`winnt.el' was compiled for Emacs 19.29 or later"))


(byte-code "À	ÂÃ#ˆÀ	ÄÅ#ˆÀ	ÆÇ#ˆÀ	ÈÉ#ˆÊËÌÍ!ÎÏÌÐ!ÑÌÒ!ÌÓ!ÔÕÖÌ×!ÌØ!ÌÙ!ÌÚ!ÌÛ!¯\"ˆÜÞà!â#ä%À‡" [define-key function-key-map [backspace] "" [delete] "" [M-backspace] [-134217601] [C-M-backspace] [C-M-delete] 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") "-%-" t completion-ignore-case "/c" shell-command-switch ";" path-separator "NUL" grep-null-device (("^\\(\\([a-zA-Z]:\\)?[^:( 	\n]+\\)[:( 	]+\\([0-9]+\\)[:) 	]" 1 3)) grep-regexp-alist] 18)
#@187 *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.
(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))) (#$ . -1103))
(defalias '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])
#@45 Visit file FILENAME and treat it as binary.
(defalias 'find-file-binary #[(filename) "ÀÂ!)‡" [(("" . t)) file-name-buffer-file-type-alist find-file filename] 2 (#$ . 1912) "FFind file binary: "])
#@50 Visit file FILENAME and treat it as a text file.
(defalias 'find-file-text #[(filename) "ÀÂ!)‡" [(("")) file-name-buffer-file-type-alist find-file filename] 2 (#$ . 2116) "FFind file text: "])
(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 (quote find-file-not-found-hooks) (quote find-file-not-found-set-buffer-file-type))
(defalias 'save-to-unix-hook #[nil "ŠÀ)Â‡" [t buffer-file-type nil] 1])
(defalias 'revert-from-unix-hook #[nil "ŠÀÁ !)Ã‡" [find-buffer-file-type buffer-file-name buffer-file-type nil] 2])
(defalias 'using-unix-filesystems #[(flag) "ƒ ÁÂÃ\"ˆÁÄÃ\"ˆÁÅÆ\"‡ÇÂÃ\"ˆÇÄÃ\"ˆÇÅÆ\"‡" [flag add-hook write-file-hooks save-to-unix-hook write-contents-hooks after-save-hook revert-from-unix-hook remove-hook] 3])
(byte-code "ÀÁÂ\"ˆÃÄMˆÅÆ!ˆÇÈ!ˆÇÉ!ˆÇÊ!ˆËÌ!‡" [defalias x-set-selection ignore 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] set-message-beep nil] 3)