home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-rc.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.9 KB  |  26 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:52 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-rcs.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-rcs-version (substring "!Revision: 1.5 !" 11 -2) "\
  14. Id: dired-rcs.el,v 1.5 1991/11/06 13:06:22 sk RelBeta ")
  15. (require 'dired)
  16. (fset 'dired-rcs-mark-rcs-locked-files #[(&optional unflag-p) "└    ┬\"ç" [dired-rcs-mark-rcs-files unflag-p t] 3 "\
  17. Mark all files that are under RCS control and RCS-locked.
  18. With prefix argument, unflag all those files.
  19. Mentions RCS files for which a working file was not found in this buffer.
  20. Type \\[dired-why] to see them again." "P"])
  21. (fset 'dired-rcs-mark-rcs-files #[(&optional unflag-p locked) "└┴\n½â├¬ü─½â╞¬ü╟#ê\n½â╚¬é    ╩ëëëë      ╨╤╨╥\"\"êG ½½╘@!Aè╒!½å╓╫!ê¬Å╪┘\"ê┌!B)¬Q¼Ü└█ ½â╞¬ü╟▄ !\n½â▌¬ü╟%ꬡG ▐▀\"ê└α ½â╞¬ü╟▄ !  Z\n½â▌¬ü╟ &ê.ç" [message "%s %sRCS controlled files..." unflag-p "Unmarking" "Marking" locked "locked " "" 32 dired-marker-char nil total count failures wf rcs-files mapcar #[(dir) "└┴\n!!├Ü«Æ─½à╞\n!¬â╟\n!\"ëç" [file-name-nondirectory directory-file-name dir "RCS" append locked rcs-locked-files rcs-files] 3] car dired-subdir-alist rcs-working-file dired-goto-file dired-mark-file 1 dired-log "RCS working file not found: %s\n" dired-make-relative "%d %sRCS file%s %smarked." dired-plural-s "un" dired-log-summary "RCS working file not found %s" "%d %sRCS file%s: %d %smarked - %d not found %s."] 9 "\
  22. Mark all files that are under RCS control.
  23. With prefix argument, unflag all those files.
  24. Mentions RCS files for which a working file was not found in this buffer.
  25. Type \\[dired-why] to see them again." "P"])
  26.