dired でフォルダを開く時、新しいバッファを作成しない

http://www.bookshelf.jp/soft/meadow_25.html#SEC275

;;; フォルダを開く時, 新しいバッファを作成しない
;; バッファを作成したい時にはoやC-u ^を利用する
(defvar my-dired-before-buffer nil)
(defadvice dired-advertised-find-file
  (before kill-dired-buffer activate)
  (setq my-dired-before-buffer (current-buffer)))

(defadvice dired-advertised-find-file
  (after kill-dired-buffer-after activate)
  (if (eq major-mode 'dired-mode)
      (kill-buffer my-dired-before-buffer)))

(defadvice dired-up-directory
  (before kill-up-dired-buffer activate)
  (setq my-dired-before-buffer (current-buffer)))

(defadvice dired-up-directory
  (after kill-up-dired-buffer-after activate)
  (if (eq major-mode 'dired-mode)
      (kill-buffer my-dired-before-buffer)))

後ついでに以下の設定も追加。sorter.el

;;; s を何回か入力すると，拡張子やサイズによる並び換えもできる
(load "sorter")

;;; ディレクトリを先に表示する
(setq ls-lisp-dirs-first t)