fix issue during Emacs startup - Symbol's function definition is void: closure

This commit is contained in:
Jason Tian 2023-04-04 17:05:20 +08:00
parent 235a2881db
commit 2698975778
2 changed files with 6 additions and 4 deletions

View file

@ -45,7 +45,11 @@
))
(add-hook hook 'hl-todo-mode))
(add-hook 'org-mode-hook 'toc-org-mode)
(dolist (my-org-mode-hook-settings '(
toc-org-mode
my/modify-org-done-face
))
(add-hook 'org-mode-hook my-org-mode-hook-settings))
;; undo in non-file buffers
(add-hook 'evil-local-mode-hook 'turn-on-undo-tree-mode)

View file

@ -88,6 +88,7 @@
(defun my/modify-org-done-face (&optional disable)
"enable or disable(C-u) the strike style for `org-done' item."
;; https://emacs.stackexchange.com/questions/10595/how-to-strike-out-done-items-in-org-mode
(interactive "P")
;; `org-headline-done' is used to indicate that a headline is DONE. This face
;; is only used if `org-fontify-done-headline' is set.
@ -102,9 +103,6 @@
(set-face-attribute 'org-headline-done nil
:strike-through t
:foreground "white"))))
;; https://emacs.stackexchange.com/questions/10595/how-to-strike-out-done-items-in-org-mode
(eval-after-load "org"
(add-hook 'org-mode-hook 'my/modify-org-done-face))
(unless (display-graphic-p)
(yes-or-no-p "Please be informed that on Terminal Emacs, the strike-through might not work on the `org-fontify-done-headline' and `org-modern-horizontal-rule' in this configuration. Continue?")