[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia c6aad5160a 1/2: Use hashed symbols
From: |
ELPA Syncer |
Subject: |
[elpa] externals/marginalia c6aad5160a 1/2: Use hashed symbols |
Date: |
Sat, 16 Mar 2024 09:59:12 -0400 (EDT) |
branch: externals/marginalia
commit c6aad5160ac9209d007cbe0cc34158c6ae87b90f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Use hashed symbols
---
marginalia.el | 56 ++++++++++++++++++++++++++++----------------------------
1 file changed, 28 insertions(+), 28 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index ed480a37c5..b836f57848 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -87,30 +87,30 @@ displayed instead."
(defcustom marginalia-annotator-registry
(mapcar
(lambda (x) (append x '(builtin none)))
- '((command marginalia-annotate-command marginalia-annotate-binding)
- (embark-keybinding marginalia-annotate-embark-keybinding)
- (customize-group marginalia-annotate-customize-group)
- (variable marginalia-annotate-variable)
- (function marginalia-annotate-function)
- (face marginalia-annotate-face)
- (color marginalia-annotate-color)
- (unicode-name marginalia-annotate-char)
- (minor-mode marginalia-annotate-minor-mode)
- (symbol marginalia-annotate-symbol)
- (environment-variable marginalia-annotate-environment-variable)
- (input-method marginalia-annotate-input-method)
- (coding-system marginalia-annotate-coding-system)
- (charset marginalia-annotate-charset)
- (package marginalia-annotate-package)
- (imenu marginalia-annotate-imenu)
- (bookmark marginalia-annotate-bookmark)
- (file marginalia-annotate-file)
- (project-file marginalia-annotate-project-file)
- (buffer marginalia-annotate-buffer)
- (library marginalia-annotate-library)
- (theme marginalia-annotate-theme)
- (tab marginalia-annotate-tab)
- (multi-category marginalia-annotate-multi-category)))
+ `((command ,#'marginalia-annotate-command ,#'marginalia-annotate-binding)
+ (embark-keybinding ,#'marginalia-annotate-embark-keybinding)
+ (customize-group ,#'marginalia-annotate-customize-group)
+ (variable ,#'marginalia-annotate-variable)
+ (function ,#'marginalia-annotate-function)
+ (face ,#'marginalia-annotate-face)
+ (color ,#'marginalia-annotate-color)
+ (unicode-name ,#'marginalia-annotate-char)
+ (minor-mode ,#'marginalia-annotate-minor-mode)
+ (symbol ,#'marginalia-annotate-symbol)
+ (environment-variable ,#'marginalia-annotate-environment-variable)
+ (input-method ,#'marginalia-annotate-input-method)
+ (coding-system ,#'marginalia-annotate-coding-system)
+ (charset ,#'marginalia-annotate-charset)
+ (package ,#'marginalia-annotate-package)
+ (imenu ,#'marginalia-annotate-imenu)
+ (bookmark ,#'marginalia-annotate-bookmark)
+ (file ,#'marginalia-annotate-file)
+ (project-file ,#'marginalia-annotate-project-file)
+ (buffer ,#'marginalia-annotate-buffer)
+ (library ,#'marginalia-annotate-library)
+ (theme ,#'marginalia-annotate-theme)
+ (tab ,#'marginalia-annotate-tab)
+ (multi-category ,#'marginalia-annotate-multi-category)))
"Annotator function registry.
Associates completion categories with annotation functions.
Each annotation function must return a string,
@@ -118,10 +118,10 @@ which is appended to the completion candidate."
:type '(alist :key-type symbol :value-type (repeat symbol)))
(defcustom marginalia-classifiers
- '(marginalia-classify-by-command-name
- marginalia-classify-original-category
- marginalia-classify-by-prompt
- marginalia-classify-symbol)
+ (list #'marginalia-classify-by-command-name
+ #'marginalia-classify-original-category
+ #'marginalia-classify-by-prompt
+ #'marginalia-classify-symbol)
"List of functions to determine current completion category.
Each function should take no arguments and return a symbol
indicating the category, or nil to indicate it could not