Мне нужно проверить, нажата ли клавиша Shift. Точнее, я бы хотел установить dired переключатели в зависимости от того, нажат ли Shift.
(defadvice find-file-noselect (around find-file-noselect-set-switches activate)
(let ((switches dired-listing-switches))
;; check if shift is pressed and set or not an "R" switch
(setq dired-listing-switches "-lhRA")
ad-do-it
(setq dired-listing-switches switches)))
Конечно, у меня могут быть разные ярлыки для разных переключателей dired, но я хотел бы динамически менять переключатели при выборе каталога для dired.