                                                                (point-min) (point))))
                                           ""))
                                       nb-flagged)
-                              'face 'diredp-mode-line-flagged))))
-                  (:eval (let ((this    0)
-                               (total   0)
-                               (o-pt    (line-beginning-position))
-                               (e-pt    (or (condition-case nil
-                                                (let ((diredp-wrap-around-flag  nil))
-                                                  (save-excursion
-                                                    (diredp-next-subdir 1)
-                                                    (line-beginning-position)))
-                                              (error nil))
-                                            (save-excursion (goto-char (point-max)) (line-beginning-position)))))
-                           (dired-goto-subdir (dired-current-directory))
-                           (while (and (<= (point) e-pt)
-                                       (< (point) (point-max))) ; Hack to work around an Emacs display-engine bug.
-                             (when (condition-case nil
-                                       (dired-get-filename nil diredp-count-.-and-..-flag)
-                                     (error nil))
-                               (when (<= (line-beginning-position) o-pt) (setq this  (1+ this)))
-                               (setq total  (1+ total)))
-                             (forward-line 1))
-                           (if (not (> this 0)) (format " %d" total) (format " %d/%d" this total))))))))))
+                              'face 'diredp-mode-line-flagged))))))))))
 
   (add-hook 'dired-after-readin-hook 'diredp-nb-marked-in-mode-name)
   ;; This one is needed for `find-dired', because it does not call `dired-readin'.

;; for selecting (marking) files.
(define-key dired-mode-map [S-mouse-1] 'diredp-mouse-mark-region-files)     ; `S-mouse-1'
(define-key dired-mode-map [mouse-2] 'dired-mouse-find-file-other-window)   ; `mouse-2'
;; But be aware that `dired-sort-menu.el' binds `S-mouse-2' to `dired-sort-menu-popup'.
(define-key dired-mode-map [S-down-mouse-2] 'dired-mouse-find-file)         ; `S-mouse-2'
(define-key dired-mode-map [S-mouse-2] 'ignore)
(define-key dired-mode-map [M-mouse-2] 'diredp-mouse-find-file-other-frame) ; `M-mouse-2'


;;    `diredp-mouse-do-shell-command', `diredp-mouse-do-symlink',
;;    `diredp-mouse-do-tag', `diredp-mouse-do-untag',
;;    `diredp-mouse-downcase', `diredp-mouse-ediff',
;;    `diredp-mouse-find-file',
;;    `diredp-mouse-find-line-file-other-window',
;;    `diredp-mouse-find-file-other-frame',
;;    `diredp-mouse-find-file-reuse-dir-buffer',
