Skip to content

Commit ade2563

Browse files
committed
fix(hideshow): fail silently when the mode don't support hs-minor-mode
1 parent 690b4b5 commit ade2563

File tree

1 file changed

+6
-1
lines changed

1 file changed

+6
-1
lines changed

core/me-builtin.el

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,8 @@
88

99
;;; Code:
1010

11+
(require 'me-lib)
12+
1113
(use-package emacs
1214
:hook (after-save . +save--guess-file-mode-h)
1315
:hook (minibuffer-setup . cursor-intangible-mode) ; See the `minibuffer-prompt-properties' below
@@ -541,12 +543,15 @@ or file path may exist now."
541543
(c-ts-mode-indent-style 'k&r))
542544

543545
(use-package hideshow
544-
:hook ((prog-mode conf-mode nxml-mode) . hs-minor-mode) ; Hide/show code blocks, a.k.a. code folding
546+
:hook ((prog-mode conf-mode nxml-mode) . +hs-minor-mode-maybe) ; Hide/show code blocks, a.k.a. code folding
545547
:custom
546548
(hs-hide-comments-when-hiding-all nil)
547549
:bind (:map hs-minor-mode-map
548550
("C-c f" . #'hs-toggle-hiding)
549551
("C-c F" . #'+hs-toggle-all))
552+
:init
553+
(defun +hs-minor-mode-maybe () ; Fail sailently
554+
(condition-case err (hs-minor-mode 1) (error (+log! "`hs-minor-mode': %s" (error-message-string err)))))
550555
:config
551556
(defvar-local +hs-toggle-all-show nil)
552557
(defun +hs-toggle-all ()

0 commit comments

Comments
 (0)