关于emacs的dired toggle显示隐藏文件的问题

jetking

默认的emacs的dired显示隐藏文件，文件多了找起来很不方便，于是我想写一个elisp实现切换显示隐藏文件的功能。但是目前出现了一些问题，大家帮我看看
[PHP]
(defun ryan-toggle-show-files ()
  (interactive)
  (if (equal 'dired-listing-switches "-al")           ;如果原先是显示全部的
      (setq-default dired-listing-switches "-l")    ;就设为不显示隐藏文件
  (setq-default dired-listing-switches "-al"))     ;反之，就设为显示全部
(revert-buffer)                                                ;刷新缓冲
)

(add-hook 'dired-mode-hook
          (lambda()
            (define-key dired-mode-map "C-c C-s" 'ryan-toggle-show-files)) ;绑定键
)
[/PHP]

我想问的是，没有错误信息，但功能没有实现，所以请大家帮个忙了。