home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / demacs.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.8 KB  |  14 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:42:00 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/demacs.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴┬\"ê├─!½ú└┼╞╟!╚╔╩╞╦!╠╞═!╬╧╨╤╥╞╙!╞╘!╞╒!»\"ê¬á└┼╞╟!╚╩╞╦!╠╞═!╓╧╨╤╥╞╙!╞╫!╞╒!»\"ê╪┌█Mê▄▌Mê▐▀MêαßMêΓπMêΣ%├µ!¼âτ&ΣΦMêΘΩMêδ,B,δφMêε∩Mç" [set-default file-type 0 boundp NEMACS mode-line-format purecopy "" mode-line-modified mode-line-nemacs-header mode-line-buffer-identification "   " global-mode-string "  %[(" ((kanji-flag "%c") "%t" ":") mode-name minor-mode-alist "%n" mode-line-process ")%]--" (-3 . "%p") "-%-" ("%c" "%t" ":") (-3 . "%p") (("text" . 0) ("binary" . 1)) file-type-alist file-type-internal #[(code) "└    ;½â    ¬è    9½à┬    !¬ü├╞╟ \"½â╚¬è╞╔ \"½â╩¬ü╚*ç" [t code symbol-name "" string case-fold-search string-match "t.*" 0 "b.*" 1] 3] set-file-type #[(code &optional buffer) "½Ñ9½å┴!¬¢;½å┬ \"A─!¼î┬┼╞ ╟╚╟% \"Aè    «üpqê\n)ç" [code file-type-internal assoc file-type-alist file-type-p completing-read "File Type : " nil t buffer file-type] 7 nil (byte-code "└┴\n├─├%Cç" [completing-read "File Type : " file-type-alist nil t] 6)] set-default-file-type #[(code) "½Ñ9½å┴!¬¢;½å┬ \"A─!¼î┬┼╞ ╟╚╟% \"A╔╩\"ç" [code file-type-internal assoc file-type-alist file-type-p completing-read "File Type : " nil t set-default file-type] 7 nil (byte-code "└┴\n├─├%Cç" [completing-read "File Type : " file-type-alist nil t] 6)] file-type-p #[(code) "º¡ê┴=«â┬=ç" [code 0 1] 2] invoke-find-file-type #[(filename) "è    !)ç" [find-file-type filename] 2] find-file-type-from-file-name find-file-type file-name-file-type-alist (("\\.elc$" . 1) ("\\.obj$" . 1) ("\\.exe$" . 1) ("\\.com$" . 1) ("\\.lib$" . 1) ("[:/].*config.sys" . 0) ("\\.sys$" . 1) ("\\.chk$" . 1) ("\\.dll$" . 1) ("\\.bmp$" . 1) ("\\.ico$" . 1) ("\\.res$" . 1) ("\\.pif$" . 1) ("\\.sym$" . 1) ("\\.scr$" . 1) ("\\.fon$" . 1) ("\\.fot$" . 1) ("\\.ttf$" . 1) ("\\.zip$" . 1)) #[(filename) "┴ë╞=╚    !     ¼ù ½ö╩ @@    \"½å @A╦ A¬f)\n½£\nº½â\n¬ù\n9¡ô╠\n!¡Ä\n    $¬é+ç" [file-name-file-type-alist nil code found alist system-type ms-dos case-fold-search file-name-sans-versions filename string-match t fboundp visit start end default-file-type] 5] define-file-name-file-type #[(filename code) "└    \n\"ë½å íê¬ê     Bë\nB )ç" [assoc filename file-name-file-type-alist place code] 4] find-file-not-found-set-file-type find-file-not-found-hooks #[nil "èpqê└┴ !)├ç" [find-file-type-from-file-name buffer-file-name file-type nil] 2] toggle-pass8-mode #[(arg) "¼ä    ?¬à┬!├V─┼ !ç" [arg pass8-mode prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 2 nil "P"]] 18)
  14.