kill-dired-buffers

[Kevin A. Burton]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1


Wrote this last week.  It has been really nice to have ever since and I thought
I would share!

(defun kill-dired-buffers()
  "Kill all dired buffers."
  (interactive)

  (save-excursion
    (let((count 0))

      (dolist(buffer (buffer-list))

        (set-buffer buffer)

        (when (equal major-mode 'dired-mode)

          (setq count (1+ count))
          
          (kill-buffer buffer)))

      (message "Killed %i dired buffer(s)." count ))))

- -- 
Kevin A. Burton ( address@hidden, address@hidden, address@hidden )
             Location - San Francisco, CA, Cell - 415.595.9965
        Jabber - address@hidden,  Web - http://relativity.yi.org/

When I was a child, my mother said to me, If you become a soldier you'll be a
general. If you become a monk you'll end up as the Pope. Instead, I became a
painter and wound up as Picasso.
    - Pablo Picasso (1881-1973)

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Get my public key at: http://relativity.yi.org/pgpkey.txt

iD8DBQE8MmX6AwM6xb2dfE0RAjyNAJ91rc9h3ODhUk+wljwKUdDDoG2uQQCdH5W6
9v9MebrV9LoampByQ7rnUBI=
=FJzZ
-----END PGP SIGNATURE-----