;ELC ;;; compiled by kwzh@hill.gnu.ai.mit.edu on Thu Jun 15 22:08:12 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/dos-fns.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 "`dos-fns.el' was compiled for Emacs 19.29 or later")) (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") "-%-" ";" 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))) (#$ . -913)) (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 (#$ . 1721) "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 (#$ . 1925) "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)) #@74 *List of shells that use `/c' instead of `-c' and a backslashed command. (defvar msdos-shells (quote ("command.com" "4dos.com" "ndos.com")) (#$ . -2359)) (byte-code "ÀÁ\nBÁ‡" [((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 current-load-list] 2) (defalias 'make-register #[nil "ÀÁÂ\"‡" [make-vector 8 0] 3]) (defalias '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]) (defalias '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]) (defalias 'intdos #[(regs) "ÀÁ\n\"‡" [int86 33 regs] 3]) (put (quote intdos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Return the frame that WINDOW resides on. (defalias 'window-frame #[(window) "À ‡" [selected-frame] 1 (#$ . 3359)]) #@40 Raise FRAME to the top of the desktop. (defalias 'raise-frame #[(frame) "À‡" [nil] 1 (#$ . 3480)]) #@32 Select FRAME for input events. (defalias 'select-frame #[(frame &optional no-enter) "À ‡" [selected-frame] 1 (#$ . 3585)])