bog-citekey-p: Use string, not line, bounds

1 files changed, 1 insertions, 1 deletions

diff --git a/bog.el b/bog.el
index 9d61c23..59b90d4 100644
--- a/bog.el
+++ b/bog.el
@@ -357,7 +357,7 @@ word constituents."
 (defun bog-citekey-p (text)
   "Return non-nil if TEXT matches `bog-citekey-format'."
   (let (case-fold-search)
-    (string-match-p (format "^%s$" bog-citekey-format) text)))
+    (string-match-p (format "\\`%s\\'" bog-citekey-format) text)))
 
 (defun bog-all-citekeys ()
   "Return all citekeys in notes."