;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Sun Jul 28 01:35:50 1996 ;;; from file /home/fsf/rms/e19/lisp/winnt.el ;;; emacs version 19.31.97.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.29"))) (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--") (column-number-mode "C%c--") (-3 . "%p") "-%-" t completion-ignore-case "/c" shell-command-switch add-hook shell-mode-hook (lambda nil (setq comint-completion-addsuffix (quote ("\\" . " ")))) ";" path-separator "NUL" grep-null-device (("^\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)[:( ]+\\([0-9]+\\)[:) ]" 1 3)) grep-regexp-alist] 19) #@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))) (#$ . -1234)) (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 (#$ . 2025) "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 (#$ . 2229) "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]) #@197 Read and write files without CR/LF translation, if FLAG is non-nil. This is in effect assuming the files are on a remote Unix file system. If FLAG is nil, resume using CR/LF translation as usual. (defalias 'using-unix-filesystems #[(flag) "ƒÁÂÃ\"ˆÁÄÅ\"‡ÆÂÃ\"ˆÆÄÅ\"‡" [flag add-hook write-file-hooks save-to-unix-hook after-save-hook revert-from-unix-hook remove-hook] 3 (#$ . 2854)]) (byte-code "ÀÁKM‡" [original-make-auto-save-file-name make-auto-save-file-name] 2) #@241 Return file name to use for auto-saves of current buffer. Does not consider `auto-save-visited-file-name' as that variable is checked before calling this function. You can redefine this for customization. See also `auto-save-file-name-p'. (defalias 'make-auto-save-file-name #[nil "À ÁÄÅ \n#ƒ Á”ÆIˆÁ•T‚ *‡" [original-make-auto-save-file-name 0 start name string-match "[?*]" 36] 4 (#$ . 3331)]) (defalias 'x-set-selection #[(type data) "„ÁÂÃ\f#‡" [type PRIMARY put x-selections data] 4]) (defalias 'x-get-selection #[(&optional type data-type) "„ÁÂN‡" [type PRIMARY x-selections] 2]) (byte-code "ÀÁ!ˆÂÃ!ˆÂÄ!ˆÂÅ!ˆÆÇ!‡" [fmakunbound font-menu-add-default global-unset-key [C-down-mouse-1] [C-down-mouse-2] [C-down-mouse-3] set-message-beep nil] 2)