   (grep (diredp-do-grep-1 (list (dired-get-filename t)))))
 
 ;;;###autoload
-(defun diredp-mouse-do-compress (event)
+(defun diredp-mouse-do-compress (event) ; Not bound
   "Compress or uncompress this file."
   (interactive "e")
   (let ((mouse-pos         (event-start event))

                           dired-mode-map (current-global-map))
(substitute-key-definition 'previous-line 'dired-previous-line ; `C-p', `up'
                           dired-mode-map (current-global-map))

;; Tags - same keys as in `*Bookmark List*'.
(define-key dired-mode-map "T"       nil) ; For Emacs20
(define-key dired-mode-map "T>+"     'diredp-do-tag) ; `T > +'
(define-key dired-mode-map "T>-"     'diredp-do-untag) ; `T > -'
(define-key dired-mode-map "T>0"     'diredp-do-remove-all-tags) ; `T > 0'

  (dired-previous-line 1))

;;;###autoload
(defun diredp-mouse-do-load (event)     ; Not bound
  "Load this Emacs Lisp file."
  (interactive "e")
  (let ((mouse-pos         (event-start event))
