From c3001f77aaef2d233ab7a1f3e7bf9120140c5ac7 Mon Sep 17 00:00:00 2001
From: Akira Baruah <akira.baruah@gmail.com>
Date: Thu, 19 Nov 2020 00:10:18 -0800
Subject: [PATCH] core-lib: Add docstring for add-hook-trigger!

---
 core/core-lib.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/core/core-lib.el b/core/core-lib.el
index 30d152f6a..429e866ce 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -488,7 +488,12 @@ advised)."
               (add-hook sym #',fn ,append))))))
 
 (defmacro add-hook-trigger! (hook-var &rest targets)
-  "TODO"
+  "Configure HOOK-VAR to be invoked exactly once after init whenever any of the
+TARGETS are invoked. Once HOOK-VAR gets triggered, it resets to nil.
+
+HOOK-VAR is a quoted hook.
+
+TARGETS is a list of quoted hooks and/or sharp-quoted functions."
   `(let ((fn (intern (format "%s-h" ,hook-var))))
      (fset
       fn (lambda (&rest _)