branch: elpa/helm commit 7f3fcf19b6e3b30a5df17a8bcc3ad4273f04d39c Author: Thierry Volpiatto <thie...@posteo.net> Commit: Thierry Volpiatto <thie...@posteo.net>
Normalize affixation function names --- helm-mode.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/helm-mode.el b/helm-mode.el index 9b30e15e46..e327ce2215 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -965,14 +965,14 @@ that use `helm-comp-read'. See `helm-M-x' for example." ;; (defvar helm-completing-read-extra-metadata '((buffer . (metadata - (affixation-function . helm-completing-read-buffer-affix) + (affixation-function . helm-completing-read-buffer-affixation) (category . buffer) (flags . (helm-completing-read--buffer-lgst-mode)))) (symbol-help . (metadata - (affixation-function . helm--symbol-completion-table-affixation) + (affixation-function . helm-symbol-completion-table-affixation) (category . symbol-help))) (package . (metadata - (affixation-function . helm-completion-package-affix) + (affixation-function . helm-completion-package-affixation) (category . package)))) "Extra metadata for completing-read. @@ -1009,7 +1009,7 @@ we allow here specifying the category of the completion provided by a specific command. The command should be specified as a string and the category as a symbol.") (defvar helm-completing-read--buffer-lgst-mode nil) -(defun helm-completing-read-buffer-affix (completions) +(defun helm-completing-read-buffer-affixation (completions) (let ((len-mode (or helm-completing-read--buffer-lgst-mode (cl-loop for bname in completions maximize (with-current-buffer bname @@ -1052,7 +1052,7 @@ command. The command should be specified as a string and the category as a symb (propertize " " 'display prefix) (propertize " " 'display suffix)))))) -(defun helm--symbol-completion-table-affixation (_completions) +(defun helm-symbol-completion-table-affixation (_completions) "Override `help--symbol-completion-table-affixation'. Normally affixation functions use COMPLETIONS as arg, and return a list of @@ -1109,7 +1109,7 @@ is used." (propertize " " 'display it)) ""))))) -(defun helm-completion-package-affix (_completions) +(defun helm-completion-package-affixation (_completions) (lambda (comp) (let* ((sym (intern-soft comp)) (id (package-get-descriptor sym))