branch: master
commit b73fff8b6052191c33d3d0da2b78cccf7ba529de
Author: Ian Dunn <du...@gnu.org>
Commit: Ian Dunn <du...@gnu.org>
Added paced-repopulate-current-dictionary-async
* paced-async.el (paced-repopulate-current-dictionary-async): New defun.
---
paced-async.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/paced-async.el b/paced-async.el
index 0f239f9..707efd8 100644
--- a/paced-async.el
+++ b/paced-async.el
@@ -94,6 +94,18 @@ Note that this will empty the dictionary's contents."
(let ((dict (paced-named-dictionary key)))
(paced-repopulate-dictionary-async dict)))
+;;;###autoload
+(defun paced-repopulate-current-dictionary-async ()
+ "Repopulate current dictionary from its population commands, asynchronously.
+
+Population commands are stored in the field of the same name.
+
+Note that this will empty the dictionary's contents."
+ (interactive)
+ (if-let* ((dict (paced-current-dictionary)))
+ (paced-repopulate-dictionary-async dict)
+ (error "No current dictionary found")))
+
(provide 'paced-async)
;;; paced-async.el ends here
