branch: externals/hotfuzz
commit 0d89041ca494432d79e85b0454f21a75c6e21925
Author: Axel Forsman <[email protected]>
Commit: Axel Forsman <[email protected]>
Autoload hotfuzz--adjust-metadata
An all-completions operation will call the autoloaded function
hotfuzz-all-completions, and as such hotfuzz--adjust-metadata gets
defined before it is subsequently called. However, for try-completion
operations hotfuzz piggybacks on the built-in function
completion-flex-try-completion, and so will not be automatically
loaded. This commit fixes this by also autoloading
hotfuzz--adjust-metadata.
An alternative would have been defining an autoloaded alias for
completion-flex-try-completion, which, though exposing a redundant
symbol, would avoid autoloading a "private" function.
---
hotfuzz.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/hotfuzz.el b/hotfuzz.el
index bce35da1ba..1dfcbcf71b 100644
--- a/hotfuzz.el
+++ b/hotfuzz.el
@@ -168,6 +168,7 @@ list before passing it to `display-sort-function' or
(setcar all (propertize (car all) 'completion-sorted t)))
(if (string= prefix "") all (nconc all (length prefix))))))
+;;;###autoload
(defun hotfuzz--adjust-metadata (metadata)
"Adjust completion METADATA for hotfuzz sorting."
(let ((existing-dsf (completion-metadata-get metadata
'display-sort-function))
