home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-gu.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.2 KB  |  31 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:28 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-guess.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-92.
  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. (defvar dired-guess-have-gnutar "gnutar" "\
  14. *If non-nil, name of GNU tar (e.g. \"tar\" or \"gnutar\").
  15. GNU tar's `z' switch is used for compressed tar files.
  16. If you don't have GNU tar, set this to nil: a pipe is then used.")
  17. (byte-code "└┴!¼à\n«ü├└ç" [boundp dired-guess-tar dired-guess-have-gnutar "tar"] 2)
  18. (defvar dired-auto-shell-command-alist (byte-code "└┴┬├─┼╞╚PB╔\n½å╦P¬à╠═QB╬\n½ç╧╨Q¬ü╤B»    ç" [(".Z" . "uncompress") (".Z.uu" . "uudecode * | uncompress") (".uu" . "uudecode") (".hqx" . "mcvert") (".sh" . "sh") (".shar" . "unshar") ".tar" dired-guess-tar " xvf" ".tar.Z" dired-guess-have-gnutar " xvfz" "zcat * | " " xvf -" ".tar.Z.uu" "uudecode * | " " xvfz -" "uudecode * | zcat | tar xvf -"] 12) "\
  19. *Alist of file extensions and their suggested commands.
  20. See also variable `dired-auto-shell-use-last-extension'.")
  21. (defvar dired-auto-shell-use-last-extension nil "\
  22. *If non-nil, uses only the last extension of the filename.
  23.   For example, foo.tar.Z would use the guess for the .Z extension.
  24. If nil, use all the extensions.  For example, foo.tar.Z would guess
  25.   for the .tar.Z extension.")
  26. (fset 'dired-read-shell-command #[(prompt arg files) "└┴┬ ─┼╟ \"\" &ç" [dired-mark-pop-up nil shell files dired-guess-shell-command format prompt dired-mark-prompt arg] 10 "\
  27. Read a dired shell command using generic minibuffer history.
  28. This command tries to guess a command from the filename(s)
  29. from the variable `dired-auto-shell-command-alist' (which see)."])
  30. (fset 'dired-guess-shell-command #[(prompt files) "A?¡ÿ┴@\n½ç├─@\"¬à├┼@\"╞O\"A╔╩!¼ë╦ \"ê¬ï½ç═╬╧#ê╨╬ \")ç" [files assoc dired-auto-shell-use-last-extension string-match ".[^.]*$" "\\." nil dired-auto-shell-command-alist defalt featurep gmhist read-string prompt put dired-shell-command-history default read-with-history-in] 5])
  31.