From 874bb06cd67a92fdf0f420221d6954e72e614bb5 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 5 Jun 2014 01:06:16 -0400 Subject: Simplify bog-citekey-p --- bog.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'bog.el') diff --git a/bog.el b/bog.el index e5f1493..9577161 100644 --- a/bog.el +++ b/bog.el @@ -263,9 +263,7 @@ year, and the first meaningful word in the title)." prop))) (defun bog-citekey-p (text) - "Indicate if all of TEXT matches `bog-citekey-format'." - (string-match bog-citekey-format text) - (when (equal (length text) (match-end 0)) + (when (string-match-p (format "^%s$" bog-citekey-format) text) t)) (defun bog-all-citekeys () -- cgit v1.2.3