;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Nov 10 23:59:23 1995 ;;; from file /home/fsf/rms/e19/lisp/dos-fns.el ;;; emacs version 19.29.1.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.28.90"))) (error "`dos-fns.el' was compiled for Emacs 19.29 or later")) (byte-code " !\nAB)\nÇ" [" %[(" mode-line-format tail purecopy "%t:" ";" path-separator "NUL" grep-null-device (("^\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)[:( ]+\\([0-9]+\\)[:) ]" 1 3)) grep-regexp-alist] 4) #@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))) (#$ . -696)) (defalias 'find-buffer-file-type #[(filename) "! -\f-\f@@\"'\f@A\fA) N\n><\nP\n9P\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 (#$ . 1504) "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 (#$ . 1708) "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")) (#$ . -2142)) (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 AU Ǧ ǥ)0 /\f H0)" [assoc name register-name-alist where regs tem 0 256 nil] 4]) (defalias 'set-register-value #[(regs name value) "XYX \f\"A:I @H\"  @ AU8 \"\"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 (#$ . 3142)]) #@40 Raise FRAME to the top of the desktop. (defalias 'raise-frame #[(frame) "" [nil] 1 (#$ . 3263)]) #@32 Select FRAME for input events. (defalias 'select-frame #[(frame &optional no-enter) " " [selected-frame] 1 (#$ . 3368)])