- ;; This really should rerun the find command, but I don't
- ;; have time for that.
- (use-local-map (append (make-sparse-keymap) (current-local-map)))
- (define-key (current-local-map) "g" 'undefined)
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map (current-local-map))
+ (define-key map "\C-c\C-k" 'kill-find)
+ (use-local-map map))
+ (make-local-variable 'dired-sort-inhibit)
+ (setq dired-sort-inhibit t)
+ (set (make-local-variable 'revert-buffer-function)
+ `(lambda (ignore-auto noconfirm)
+ (find-dired ,dir ,find-args)))