bog-citekey-p: Return string-match-p result directly

1 files changed, 2 insertions, 3 deletions

diff --git a/bog.el b/bog.el
index 5f7fee0..b2709ee 100644
--- a/bog.el
+++ b/bog.el
@@ -287,9 +287,8 @@ be preceded by a characters in `bog-allowed-before-citekey'."
          it)))
 
 (defun bog-citekey-p (text)
-  "Does TEXT match `bog-citekey-format'?"
-  (and (string-match-p (format "^%s$" bog-citekey-format) text)
-       t))
+  "Return non-nil if TEXT matches `bog-citekey-format'."
+  (string-match-p (format "^%s$" bog-citekey-format) text))
 
 (defvar bog--all-citekeys nil)
 (defun bog-all-citekeys ()