home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-cd.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  4.1 KB  |  53 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:21 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-cd.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-cd-same-subdir nil "\
  14. *If non-nil, and selected file(s) (by marks, numeric arg, \\[universal-argument]) are in same
  15. subdir, causes dired shell command to run in that subdir.  Filenames provided
  16. to shell commands are stripped of their directory components.  Does not
  17. affect behavior of on-each, for that see variable dired-cd-on-each.")
  18. (defvar dired-cd-on-each nil "\
  19. *If non-nil, on-each causes each dired shell command to run in the 
  20. file's directory.  Filenames provided to shell commands are stripped of 
  21. their directory components.  Also see variable dired-cd-same-subdir.")
  22. (fset 'dired-do-shell-command #[(&optional arg in-background) "┴Ü├─\n?¡ü\"½â╟¬ü╚\n½ä    ¼î\n½ï\n¼ê╦!½â╠¬ü═╬\n½â╧¬ü═╨░╥\n?¡ü#╘\n$╓\"-ç" [arg 0 on-each dired-mark-get-files t file-list in-background "& " "! " dired-cd-on-each dired-cd-same-subdir dired-files-same-directory "cd <dir>; " "" "on " "each " "%s: " prompt dired-read-shell-command command dired-cd-wrap-it result dired-run-shell-command] 5 "\
  23. Run a shell command on the marked files.
  24. If there is output, it goes to a separate buffer.
  25. The list of marked files is appended to the command string unless asterisks
  26.   `*' indicate the place(s) where the list should go.
  27. If no files are marked or a specific numeric prefix arg is given, uses
  28.   next ARG files.  With a zero argument, run command on each marked file
  29.   separately: `cmd * foo' results in `cmd F1 foo; ...; cmd Fn foo'.
  30.   As always, a raw arg (\\[universal-argument]) means the current file.
  31. The option variables dired-cd-same-subdir and dired-cd-on-each
  32.   permit the command(s) to run in the files' directories if appropriate,
  33.   and thus determine where output files are created.  Default is top
  34.   directory.  The prompt mentions the file(s) or the marker, the cd subdir,
  35.   and the on-each flags when they apply.
  36. No automatic redisplay is attempted, as the file names may have
  37.   changed.  Type \\[dired-do-redisplay] to redisplay the marked files." "P"])
  38. (fset 'dired-cd-wrap-it #[(command files on-each &optional raw) "½Ö┴├┼╞╚#     ½å    ╩P¬é    +ç ¡à╠├\"┴ë½û┴ܼÉ╧╨\"╤╥!╚Q╙$P*ç" [on-each "" cwd nil in-subshell mapconcat #[(file) "└┴ ½¼┼╞!«ü└!╚!\n    ÿ¼û\n    \n½â╦¬ü└╠═    !╬R╧\n ╨C$P*ç" ["" nil d cd dired-cd-on-each directory-file-name file-name-directory file file-name-nondirectory cwd in-subshell "); " "(cd " shell-quote "; " t dired-shell-stuff-it command on-each raw] 6] files "; " cmd ")" dired-cd-same-subdir dired-files-same-directory cd same-dir mapcar file-name-nondirectory "cd " shell-quote dired-shell-stuff-it command raw] 7 "\
  39. Args COMMAND FILES ON-EACH &optional RAW-ARG, like dired-shell-stuff-it.
  40. Calls dired-shell-stuff-it, but wraps the resulting command(s)
  41. with \"cd <dir>\" commands when appropriate.  Note: when ON-EACH is non-nil, 
  42. dired-shell-stuff-it is called once for each file in FILES.
  43. See documentation of variables dired-cd-same-subdir and dired-cd-on-each 
  44. for wrap conditions."])
  45. (fset 'dired-files-same-directory #[(file-list &optional absolute) "└    @!├─┼    \">?¡ÿ╞½ê\n½ï╚\n!½å\n«ç╔¬ä\n\nP!)ç" [file-name-directory file-list dir nil mapcar #[(file) "┴\n!ÿç" [dir file-name-directory file] 3] directory-file-name absolute file-name-absolute-p "" default-directory] 4 "\
  46. If all files in LIST are in the same directory return it, otherwise nil.
  47. Returned name has no trailing slash.  \"Same\" means file-name-directory of
  48. the files are string=.  File names in LIST must all be absolute or all be
  49. relative.  Implicitly, relative file names are in default-directory.  If
  50. optional ABS is non-nil, the returned name will be absolute, otherwise the
  51. returned name will be absolute or relative as per the files in LIST."])
  52. (provide 'dired-cd)
  53.