 ;; If at root on a Windows drive, go up to a list of available drives.
 ;;
 ;;;###autoload
-(defun dired-up-directory (&optional other-window)
+(defun dired-up-directory (&optional other-window) ; Bound to `^'
   "Run Dired on parent directory of current directory.
 Find the parent directory either in this buffer or another buffer.
 Creates a buffer if necessary.

(define-key diredp-menu-bar-immediate-menu [diredp-describe-file]
  '(menu-item "Describe" diredp-describe-file
    :help "Describe the file or directory at cursor"))
(when (fboundp 'image-dired-dired-display-external) ; Emacs 22+
  (define-key diredp-menu-bar-immediate-menu [image-dired-dired-display-external]
    '(menu-item "Display Image Externally" image-dired-dired-display-external
      :help "Display image in external viewer"))
  (define-key diredp-menu-bar-immediate-menu [image-dired-dired-display-image]
    '(menu-item "Display Image" image-dired-dired-display-image
      :help "Display image in a separate window"))
  (define-key diredp-menu-bar-immediate-menu [separator-image] '("--")))
(define-key diredp-menu-bar-immediate-menu [chown]
  '(menu-item "Change Owner..." diredp-chown-this-file
    :visible (not (memq system-type '(ms-dos windows-nt)))

                       (dired-get-marked-files t 1))))

;;;###autoload
(defun diredp-mouse-do-symlink (event)  ; Not bound
  "Make symbolic link to this file."
  (interactive "e")
  (let ((mouse-pos  (event-start event)))
