From e3a0ad0b3311c2dbbd20f032b0865e42a918cce2 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 16 Oct 2018 17:32:41 -0400 Subject: [PATCH] set-pretty-symbols!: rename rest -> plist A more sensibile name. --- modules/ui/pretty-code/autoload.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/modules/ui/pretty-code/autoload.el b/modules/ui/pretty-code/autoload.el index 7d8ef4614..83d0f5b8d 100644 --- a/modules/ui/pretty-code/autoload.el +++ b/modules/ui/pretty-code/autoload.el @@ -58,7 +58,7 @@ correct width of the symbols instead of the width measured by `char-width'." (cons (car ligature-alist) acc))) ;;;###autodef -(defun set-pretty-symbols! (modes &rest rest) +(defun set-pretty-symbols! (modes &rest plist) "Associates string patterns with icons in certain major-modes. MODES is a major mode symbol or a list of them. @@ -88,17 +88,17 @@ Pretty symbols can be unset for emacs-lisp-mode with: (set-pretty-symbols! 'emacs-lisp-mode nil)" (declare (indent defun)) - (if (null (car-safe rest)) + (if (null (car-safe plist)) (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))) + (while plist + (pcase (setq key (pop plist)) + (:merge (setq merge (pop plist))) + (:alist (setq results (append (pop plist) results))) (_ (when-let* ((char (plist-get +pretty-code-symbols key))) - (push (cons (pop rest) char) results))))) + (push (cons (pop plist) char) results))))) (dolist (mode (doom-enlist modes)) (unless merge (delq (assq mode +pretty-code-symbols-alist)