From 69c6da15484fafda01d84dc7ce12268bcfb0682d Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Fri, 11 Aug 2023 06:11:04 +0200 Subject: emacs: Make use of ‘(pure t)’ in ‘declare’ MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .config/emacs/config.org | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to '.config/emacs/config.org') diff --git a/.config/emacs/config.org b/.config/emacs/config.org index 4972c0a..91fed06 100644 --- a/.config/emacs/config.org +++ b/.config/emacs/config.org @@ -136,7 +136,7 @@ use an actual lambda. If I ever forget how to enter a lambda, it’s =C-x 8 RET "Convenience macro to create lambda functions that take no arguments with much short and concise syntax. Calling ‘λ’ with BODY is equivalent to calling ‘lambda’ with an empty argument list and BODY." - (declare (side-effect-free t)) + (declare (pure t) (side-effect-free t)) `(lambda () ,@body)) #+END_SRC @@ -151,7 +151,7 @@ here. (defun mm-mode-to-hook (mode) "Get the hook corresponding to MODE." - (declare (side-effect-free t)) + (declare (pure t) (side-effect-free t)) (intern (concat (symbol-name mode) "-hook"))) #+END_SRC @@ -168,7 +168,7 @@ grab one from the other. (defun mm-mode-to-ts-mode (mode) "Get the tree-sitter mode corresponding to MODE." - (declare (side-effect-free t)) + (declare (pure t) (side-effect-free t)) (intern (concat (string-remove-suffix "-mode" (symbol-name mode)) "-ts-mode"))) -- cgit v1.2.3