diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-12-11 19:03:38 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-12-11 19:04:10 +0100 |
| commit | 94cdd2a528f9cbf7234d9837a3156cf5268f9b09 (patch) | |
| tree | 583b2700181800c853ce8eb6d908d084d21be8bc /cape-keyword.el | |
| parent | ae094a665438a5d65b52b3d2a538c17998770b78 (diff) | |
Remove cape--properties-table, move sort settings to *-properties
Diffstat (limited to 'cape-keyword.el')
| -rw-r--r-- | cape-keyword.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/cape-keyword.el b/cape-keyword.el index 2556a6b..35140c5 100644 --- a/cape-keyword.el +++ b/cape-keyword.el @@ -402,7 +402,8 @@ (defvar cape--keyword-properties (list :annotation-function (lambda (_) " Keyword") :company-kind (lambda (_) 'keyword) - :exclusive 'no) + :exclusive 'no + :category 'cape-keyword) "Completion extra properties for `cape-keyword'.") ;;;###autoload @@ -415,9 +416,7 @@ If INTERACTIVE is nil the function acts like a capf." (cape-interactive #'cape-keyword) (when-let (keywords (cape--keyword-list)) (let ((bounds (cape--bounds 'symbol))) - `(,(car bounds) ,(cdr bounds) - ,(cape--properties-table keywords :category 'cape-keyword) - ,@cape--keyword-properties))))) + `(,(car bounds) ,(cdr bounds) ,keywords ,@cape--keyword-properties))))) (provide 'cape-keyword) ;;; cape-keyword.el ends here |