From d6113ea3b19508feb3b9a7e7b6c22977f920a541 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 22 Nov 2014 03:08:31 -0500
Subject: Generate docstring for citekey selection functions

---
 bog.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/bog.el b/bog.el
index 1891eec..5d20cfe 100644
--- a/bog.el
+++ b/bog.el
@@ -194,6 +194,10 @@ be called with no arguments. If CONTEXT-METHOD returns nil or if
 NO-CONTEXT is non-nil, the user will be prompted with citekeys
 gathered by COLLECTION-METHOD."
   `(defun ,(intern (concat "bog-citekey-from-" name)) (no-context)
+     ,(format "Select citekey with `%s', falling back on `%s'.
+If NO-CONTEXT is non-nil, immediately fall back."
+              (symbol-name context-method)
+              (symbol-name collection-method))
       (or (and no-context (bog-select-citekey (,collection-method)))
           (,context-method)
           (bog-select-citekey (,collection-method)))))
-- 
cgit v1.2.3