;ELC   
;;; compiled by cthomp@willow on Mon Aug  9 12:14:27 1993
;;; from file /era/era-0.80/editor/lisp/dired/dired-cwd.el
;;; emacs version 19.8 (beta6) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(defconst dired-cwd-version (substring "!Revision: 1.2 !" 11 -2) "\
!Id: dired-cwd.el,v 1.2 1991/10/08 15:31:28 sk RelBeta !")
(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 "\
Modify COMMAND so that it's working directory is the current dired directory.
This works by binding `default-directory' to `(default-directory)'s value.
See also function `default-directory'." "aMake work with tree dired (function): "])