From afd8278faa40999377169ab0b3922c1f7e715e3e Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Fri, 18 Aug 2023 00:39:43 +0200 Subject: emacs: s/cl(-dolist)/\1/g --- .config/emacs/config.org | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to '.config') diff --git a/.config/emacs/config.org b/.config/emacs/config.org index b66658a..3ce52c6 100644 --- a/.config/emacs/config.org +++ b/.config/emacs/config.org @@ -597,7 +597,7 @@ with a custom function that reads a list of mode-specific indentation settings. (defun mango-set-indentation-settings () "Apply the indentation settings specified by ‘mango-indentation-settings’." (interactive) - (cl-dolist (plist mango-indentation-settings) + (dolist (plist mango-indentation-settings) (let* ((mode (car plist)) (args (cdr plist)) (width (or (plist-get args :width) (default-value 'tab-width))) @@ -607,7 +607,7 @@ with a custom function that reads a list of mode-specific indentation settings. (λ (indent-tabs-mode (when spaces -1)) (setq-local tab-width width evil-shift-width width) - (cl-dolist (var extra) (set var width))))) + (dolist (var extra) (set var width))))) (add-hook (mango-mode-to-hook mode) callback 95) (add-hook (mango-mode-to-hook (mango-mode-to-ts-mode mode)) callback 95)))) @@ -832,7 +832,7 @@ want this /everywhere/. (show-paren-mode -1) - (cl-dolist (mode mango-highlight-matching-parenthesis-modes) + (dolist (mode mango-highlight-matching-parenthesis-modes) (add-hook (mango-mode-to-hook mode) #'show-paren-local-mode)) #+END_SRC @@ -1007,9 +1007,9 @@ file with a certain file extension. (require 'rust-ts-mode) (require 'yaml-ts-mode) - (cl-dolist (pair '(("\\.py\\'" . python-ts-mode) - ("\\.rs\\'" . rust-ts-mode) - ("\\.ya?ml\\'" . yaml-ts-mode))) + (dolist (pair '(("\\.py\\'" . python-ts-mode) + ("\\.rs\\'" . rust-ts-mode) + ("\\.ya?ml\\'" . yaml-ts-mode))) (add-to-list 'auto-mode-alist pair)) #+END_SRC @@ -1127,9 +1127,9 @@ directories just get created automatically. t t) (add-hook 'after-save-hook #'mango--remove-auto-directory-hooks t t))))) - (cl-dolist (command #'(find-file - find-alternate-file - write-file)) + (dolist (command #'(find-file + find-alternate-file + write-file)) (advice-add command :around #'mango--auto-create-directories)) (defun mango--delete-directories-if-appropriate () @@ -1138,7 +1138,7 @@ directories just get created automatically. containing the file for the current buffer automatically, then offer to delete it. Otherwise, do nothing. Also clean up related hooks." (when (not (file-exists-p buffer-file-name)) - (cl-dolist (dir-to-delete mango--dirs-to-delete) + (dolist (dir-to-delete mango--dirs-to-delete) (when (and (stringp dir-to-delete) (file-exists-p dir-to-delete)) (when (y-or-n-p (format "Also delete directory ‘%s’?" -- cgit v1.2.3