anchor.diff:                            :type list-of-strings
                             :documentation "Supported media types.
   Used for file filtering in `find-file'.")
  -   (find-file-function #'default-find-file-function)))
  +   (find-file-function #'default-find-file-function)
  +   (keymap-scheme
  +    (define-scheme "file-prompt-buffer"
  +      scheme:cua
  +      (list
  +       "return" 'open-found-file)))))
   
   (defun supported-media-or-directory (filename
                                        &optional (file-mode (or (find-submode (current-prompt-buffer)
  
positive.code:                           :key #'prompter:value)))
      (prompt
       :input (namestring default-directory)
       :default-modes '(file-mode)
       :prompt "Open file"
       :sources (list (make-instance 'file-source
                                     :filter-preprocessor #'supported-media-or-directory-filter)))))
  
negative.code:                                      :new-buffer-p new-buffer-p
                                       :supported-p (supported-media-or-directory file file-mode))))
                          (prompter:return-selection prompt-buffer))))
  
  #+linux
  (defvar *xdg-open-program* "xdg-open")
  