diff --git a/modules/ui/pretty-code/autoload.el b/modules/ui/pretty-code/autoload.el index 22bb3536b..7d8ef4614 100644 --- a/modules/ui/pretty-code/autoload.el +++ b/modules/ui/pretty-code/autoload.el @@ -88,19 +88,18 @@ Pretty symbols can be unset for emacs-lisp-mode with: (set-pretty-symbols! 'emacs-lisp-mode nil)" (declare (indent defun)) - (dolist (mode (doom-enlist modes)) - (if (null (car-safe rest)) - (delq (assq mode +pretty-code-symbols-alist) - +pretty-code-symbols-alist) - (let (results merge key) - (while rest - (setq key (pop rest)) - (pcase key - (:merge (setq merge (pop rest))) - (:alist (setq results (append (pop rest) results))) - (_ - (when-let* ((char (plist-get +pretty-code-symbols key))) - (push (cons (pop rest) char) results))))) + (if (null (car-safe rest)) + (delq (assq mode +pretty-code-symbols-alist) + +pretty-code-symbols-alist) + (let (results merge key) + (while rest + (pcase (setq key (pop rest)) + (:merge (setq merge (pop rest))) + (:alist (setq results (append (pop rest) results))) + (_ + (when-let* ((char (plist-get +pretty-code-symbols key))) + (push (cons (pop rest) char) results))))) + (dolist (mode (doom-enlist modes)) (unless merge (delq (assq mode +pretty-code-symbols-alist) +pretty-code-symbols-alist))