From 9c4ae54b1fadd2644aeafdc85bbbd8084b7a9f45 Mon Sep 17 00:00:00 2001 From: Kyle Meyer 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(-) 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