in reply to my other just-now post about dired which hasn't appeared FWR

[Emanuel Berg]

I found an in-house solution, namely calling `dired'
with, as arguments - now just hear :) - calling dired
with `dired-directory' and `dired-listing-switches' as
arguments :) :)

Will wonders never cease? I hope not!

Here is the modified code:

;; dired ls
(defvar dired-ls-human nil)
(defvar dired-base-ls-options "-AGlX --group-directories-first")
(setq dired-listing-switches dired-base-ls-options)

(defun dired-toggle-human ()
  (interactive)
  (if (setq dired-ls-human (not dired-ls-human))
      (setq dired-listing-switches (format "%s -h" dired-base-ls-options))
    (setq dired-listing-switches dired-base-ls-options) )
  (dired dired-directory dired-listing-switches) )

Full source:

    http://user.it.uu.se/~embe8573/conf/emacs-init/dired-my.el

-- 
underground experts united
http://user.it.uu.se/~embe8573