Unroll `dolist' in "lst:setup-yasnippet" and "lst:setup-pulse"

This commit is contained in:
Gerard Vermeulen 2024-06-14 21:02:31 +02:00
parent 7ac3b2321f
commit 5efb7c71e3

View File

@ -5753,19 +5753,16 @@ formatter for Python]].
:CUSTOM_ID: sec:smart-snippets
:END:
#+caption[Enable =yas-global-mode=]:
#+caption: Enable =yas-global-mode=.
#+name: lst:enable-yas-global-mode
#+caption[Setup =yasnippet=]:
#+caption: Setup =yasnippet=.
#+name: lst:setup-yasnippet
#+begin_src emacs-lisp -n :results silent
(when (ensure-package-installation 'yasnippet)
;; Set `yas-alias-to-yas/prefix-p' before loading `yasnippet'.
(setopt yas-alias-to-yas/prefix-p nil)
(when (fboundp 'yas-minor-mode)
(dolist (symbol '(LaTeX-mode-hook
org-mode-hook
python-mode-hook
python-ts-mode-hook))
(add-hook symbol #'yas-minor-mode))))
(add-hook 'LaTeX-mode-hook #'yas-minor-mode)
(add-hook 'org-mode-hook #'yas-minor-mode)
(add-hook 'python-mode-hook #'yas-minor-mode))
#+end_src
* [[info:emacs#Display][Display (info)]]
@ -5878,11 +5875,10 @@ point movements visually.
(pulse-delay 0.1))
(pulse-momentary-highlight-one-line (point))))
(dolist (command '(scroll-up-command
scroll-down-command
recenter-top-bottom
other-window))
(advice-add command :after #'flash-line-around-point))
(advice-add 'scroll-up-command :after #'flash-line-around-point)
(advice-add 'scroll-down-command :after #'flash-line-around-point)
(advice-add 'recenter-top-bottom :after #'flash-line-around-point)
(advice-add 'other-window :after #'flash-line-around-point)
#+end_src
* Applications