如何为dired启用hl-line模式？

Question

我试着让hl线模式只适用于dired模式，但它不起作用。启用全局-hl模式是可行的，但它是每个缓冲区，而不是我不想要的。

(defun hl-mode-for-dired ()
  (setq hl-line-mode 1)
)

(add-hook 'dired-mode-hook 'hl-mode-for-dired)

如果我试图执行elisp，我将在emacs日志中得到这个错误输出。另一个问题是，为什么错误输出会如此混乱？

hl-mode-for-dired diredp-nb-marked-in-mode-name #[nil "ÁÀ!ÂÃÄ!Ä " 
[font-lock-defaults make-local-variable (... t nil nil beginning-of-line) 
fboundp font-lock-refresh-defaults] 2] #[nil "ÆÇ\"    È=ÉÇÊ#ÆË\"$   
È=*ÉËÌ#)ÍÎÏÐÑ!QAA²AA² AA²ÉÒ Ó\"Ô#ÉÒÓ\"Õ#ÉÒÓ
\"Ö#," [dired-mode-map now bdjc bdj sep map lookup-key "J" 
undefined define-key bmkp-dired-jump "
" ...] 6] #[nil "ÁÀ!Â" [bookmark-make-record-function make-local-variable 
bmkp-make-dired-record] 2] dired-extra-startup)

Answer 1

这就是你所需要的：

(add-hook 'dired-after-readin-hook 'hl-line-mode)

hl-line-mode是一个本地钩子。global-hl-line-mode是一个全球性的钩子。您只需要用于Dired缓冲区，这意味着您需要hl-line-mode。

哦，用这个关掉它：

(remove-hook 'dired-after-readin-hook 'hl-line-mode)