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

Reply via email to