anchor.diff:          (to-pathname
            (minibuf-read-file "Destination Filename: "
                               (get-dest-directory))))
  -    (copy-files copy-files to-pathname)))
  +    (copy-files copy-files to-pathname)
  +    (update-all)))
   
   (define-key *dired-mode-keymap* (kbd "R") 'dired-rename-files)
   (define-command dired-rename-files () ()
  
positive.code:          (minibuf-read-file "Destination Filename: "
                              (get-dest-directory))))
      (and (copy-files copy-files to-pathname)
           (delete-files copy-files))))
  
  (define-key *dired-mode-keymap* (kbd "+") 'dired-mkdir)
  (define-command dired-mkdir (buffer-name) ("smkdir:")
  
negative.code:             (apply #'vector (reverse files))))
      (goto-start-line)))
  
  (defun update-all ()
    (dolist (buffer (buffer-list))
      (when (eq 'dired-mode (buffer-major-mode buffer))
        (save-excursion
         (set-buffer buffer nil)
         (update)))))
  
  (defun dired-find-directory (dirname)
    (check-switch-minibuffer-window)
    (let ((buffer (get-buffer-create (princ-to-string dirname))))
  