From 9c4ae54b1fadd2644aeafdc85bbbd8084b7a9f45 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 9 Dec 2014 00:13:06 -0500
Subject: bog-citekey-p: Return string-match-p result directly

---
 bog.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'bog.el')

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 ()
-- 
cgit v1.2.3