ui/pretty-code: don't error on non-existent symbol

Users may want to customize the symbol list entirely, rather than modify
in place.
This commit is contained in:
Henrik Lissner 2018-09-30 16:19:17 -04:00
parent 05160a6526
commit aaa21698e9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -99,11 +99,8 @@ Pretty symbols can be unset for emacs-lisp-mode with:
(:merge (setq merge (pop rest)))
(:alist (setq results (append (pop rest) results)))
(_
(unless (plist-member +pretty-code-symbols key)
(user-error "Invalid keyword in set-pretty-symbols!: %s" key))
(let* ((sym (pop rest))
(char (plist-get +pretty-code-symbols key)))
(push (cons sym char) results)))))
(when-let* ((char (plist-get +pretty-code-symbols key)))
(push (cons (pop rest) char) results)))))
(unless merge
(delq (assq mode +pretty-code-symbols-alist)
+pretty-code-symbols-alist))