如何在emacs的php-mode上自动加载hs-minor-mode？

Question

对于我最喜欢的模式，我使用以下代码片段在启动时加载hs-minor-mode：

(add-hook '____-mode-hook 'hs-minor-mode)

到目前为止，它已经在css-mode、perl-mode、sh-mode (bash)和lisp-mode上工作。但由于某种原因，即使我可以手动加载，它也无法在php模式下加载。

下面是我的php模式设置：

(defun php-overload-keys ()
 (let ((map php-mode-map))
  (define-key map "\t" 'dumb-indent-relative)
  (define-key map "\177" 'backward-delete-char)
  (define-key map "," nil)
  (define-key map ";" nil)
  (define-key map ":" nil)
  (define-key map "*" nil)
  (define-key map "{" nil)
  (define-key map "}" nil)
  (define-key map "(" nil)
  (define-key map ")" nil)
  (define-key map "/" nil)
  (use-local-map map)))

(add-hook 'php-mode-hook 'php-overload-keys)
(add-hook 'php-mode-hook 'hs-minor-mode)

我做错什么了吗？我尝试在函数中包装hs-minor-mode，但它仍然不能加载。然而，我的重载密钥却可以。怎么回事？

Answer 1

模式函数通常接受一个数字参数来启用/禁用它们，如果没有提供参数，则充当切换，因此作为一般规则，您应该使用：

(add-hook 'php-mode-hook (lambda () (hs-minor-mode 1)))

Answer 2

总的来说，我建议

(add-hook 'prog-mode-hook #'(lambda () (hs-minor-mode t)))

因为hideshow不是某种特定于PHP的模式。