anchor.diff:                                 to-pathname))
                to-pathname)))
       (when (subdirectory-p to-pathname from-pathname)
  -      (error "Cannot copy `~a' into its subdirectory `~a'"
  -             from-pathname to-pathname))
  +      (editor-error "Cannot copy `~a' into its subdirectory `~a'"
  +                    from-pathname to-pathname))
       (multiple-value-bind (to-dir-pathname made-directory-p)
           (ensure-directories-exist to-dir-pathname)
         (assert made-directory-p)
  
positive.code: (define-key *dired-mode-keymap* (kbd "p") 'dired-previous-line)
  (define-key *dired-mode-keymap* (kbd "q") 'dired-quit)
  
  (define-command dired-next-line (&optional (n 1)) ("p")
    (forward-line n)
    (move-to-column (get-bvar :dired-cursor-column)))
  
  (define-command dired-previous-line (&optional (n 1)) ("p")
    (forward-line (- n))
    (move-to-column (get-bvar :dired-cursor-column)))
  
  (define-command dired-quit () ()
    (quit-window))
  
negative.code:   (let ((files))
      (save-excursion
       (goto-start-line)
       (beginning-of-line)
       (do ((file nil nil))
           ((eobp))
         (when (and (eql +mark+ (following-char))
  