home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-cw.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.2 KB  |  19 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:23 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-cwd.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-cwd-version (substring "!Revision: 1.2 !" 11 -2) "\
  14. !Id: dired-cwd.el,v 1.2 1991/10/08 15:31:28 sk RelBeta !")
  15. (fset 'dired-cwd-make-magic #[(function) "└    !½ä┬├!ê─┼╞    !P!╟    ╩╦╠═╬╧╨    D╤FEE╥    !¼å        KMê    M*ç" [commandp function error "Cannot make interactive functions work for tree dired" intern "dired-cwd-wrap-real-" symbol-name nil new-function save-name lambda (&rest dired-cwd-args) let ((default-directory (if (fboundp 'default-directory) (default-directory) default-directory))) apply 'funcall quote dired-cwd-args fboundp] 8 "\
  16. Modify COMMAND so that it's working directory is the current dired directory.
  17. This works by binding `default-directory' to `(default-directory)'s value.
  18. See also function `default-directory'." "aMake work with tree dired (function): "])
  19.