home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-nu.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.6 KB  |  36 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:47 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-num.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. (defconst dired-num-version (substring "!Revision: 1.2 !" 11 -2) "\
  14. Id: dired-num.el,v 1.2 1991/10/15 13:24:10 sk RelBeta ")
  15. (byte-code "└┴!ê┬├Mê─┼Mç" [require dired dired-number-of-marked-files #[(&optional arg) "è└ëëë½Ö¿½æ╞╟\"ê╚W½ä    ƒ¬╘    ¬╤└C¬═╔ └\n èebê╠ └═#¡é╬ ë\n??\n½ñ\nbê└    B\nbê╧yê\n└ëôê╠ └═#¡é╬ ë\n¼\\)\n½â    ¬é└C*,╨ ê)Gç" [nil results found case-fold-search buffer-read-only arg dired-repeat-over-lines #[nil "└    Bëç" [nil results] 2] 0 dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename] 5] dired-do-create-files-numeric #[(file-creator operation arg format start &optional arg) "S┬ ─$)ç" [start i dired-create-files-non-directory file-creator #[(x) "└    Të\"ç" [format i] 4] operation arg] 5]] 2)
  16. (fset 'dired-do-rename-numeric #[(format start &optional arg) "└┴┬ %ç" [dired-do-create-files-numeric dired-rename-file "Rename-numeric" arg format start] 6 "\
  17. Rename all marked (or next ARG) files using numbers.
  18. You are prompted for a format string, e.g \"part_%d_of_8\", and a starting
  19. number, e.g. 1.  If there are 8 marked files, this example will rename them to
  20.  
  21.     part_1_of_8
  22.     part_2_of_8
  23.     ...
  24.     part_8_of_8" (byte-code "└┴┬├ !\"!┼╞╟\" Eç" [read-string format "Rename numeric [%d files] (format string using %%d): " dired-number-of-marked-files current-prefix-arg read-minibuffer "Numbers start at: " "1"] 5)])
  25. (fset 'dired-do-create-files-list #[(file-creator operation arg format list &optional arg) "┬ ─$)ç" [list rest dired-create-files-non-directory file-creator #[(x) "└    @    A\"ç" [format rest] 4] operation arg] 5])
  26. (fset 'dired-do-rename-list #[(format list &optional arg) "└    !\nGU¼ä├─!ê┼╞╟    \n%ç" [dired-number-of-marked-files arg list error "Must have as many elements as there are files to rename" dired-do-create-files-list dired-rename-file "Rename-list" format] 6 "\
  27. Rename all marked (or next ARG) files using elements from LIST.
  28. You are prompted for a format string, e.g \"x_%s\", and the list,
  29. e.g. '(foo bar zod).  This example will rename the marked files to
  30.  
  31.     x_foo
  32.     x_bar
  33.     x_zod
  34.  
  35. It is an error if LIST has not as many elements as there are files." "sRename list (format using %%s): \nxList: \nP"])
  36.