anchor.diff:  (define-key *dired-mode-keymap* (kbd "p") 'dired-previous-line)
   (define-key *dired-mode-keymap* (kbd "q") 'dired-quit)
   
  +(defun dired-cursor-column ()
  +  (get-bvar :dired-cursor-column :default 0))
  +
   (define-command dired-next-line (&optional (n 1)) ("p")
     (forward-line n)
  -  (move-to-column (get-bvar :dired-cursor-column)))
  +  (move-to-column (dired-cursor-column)))
   
   (define-command dired-previous-line (&optional (n 1)) ("p")
     (forward-line (- n))
  -  (move-to-column (get-bvar :dired-cursor-column)))
  +  (move-to-column (dired-cursor-column)))
   
   (define-command dired-quit () ()
     (quit-window))
  
positive.code:                                    (minibuf-read-file "Dired: "
                                                        (buffer-directory)
                                                        (buffer-directory)))))
    (dired-internal dirname))
  
  (defun get-file ()
    (let* ((point (get-bvar :start-point))
  
negative.code:   (let ((files))
      (save-excursion
       (goto-start-line)
       (beginning-of-line)
       (do ((file nil nil))
           ((eobp))
         (when (and (eql +mark+ (following-char))
  