From 3385764001936ae7c73331131bf7a06a398deb13 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 24 Jan 2016 18:26:31 -0500
Subject: Explicitly bind nil-value for case-fold-search

---
 bog.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/bog.el b/bog.el
index 90149b3..2691c4b 100644
--- a/bog.el
+++ b/bog.el
@@ -267,7 +267,7 @@ treated as word characters.")
 
 (defun bog-citekey-p (text)
   "Return non-nil if TEXT matches `bog-citekey-format'."
-  (let (case-fold-search)
+  (let ((case-fold-search nil))
     (string-match-p (format "\\`%s\\'" bog-citekey-format) text)))
 
 (defun bog-citekey-at-point ()
@@ -278,7 +278,7 @@ word constituents."
   (save-excursion
     (with-syntax-table bog-citekey-syntax-table
       (skip-syntax-backward "w")
-      (let (case-fold-search)
+      (let ((case-fold-search nil))
         (and (looking-at bog-citekey-format)
              (match-string-no-properties 0))))))
 
@@ -403,8 +403,8 @@ Otherwise, prompt for CATEGORY."
 (defun bog-citekeys-in-buffer ()
   "Return all citekeys in current buffer."
   (save-excursion
-    (let (citekeys
-          case-fold-search)
+    (let ((case-fold-search nil)
+          citekeys)
       (goto-char (point-min))
       (while (re-search-forward bog-citekey-format nil t)
         (push (match-string-no-properties 0) citekeys))
@@ -417,8 +417,8 @@ Otherwise, prompt for CATEGORY."
 
 (defun bog-non-heading-citekeys-in-file (file)
   "Return all non-heading citekeys in FILE."
-  (let (citekeys
-        case-fold-search)
+  (let ((case-fold-search nil)
+        citekeys)
     (with-temp-buffer
       (let ((default-directory (file-name-directory file)))
         (insert-file-contents file)
@@ -595,7 +595,7 @@ determined by `bog-subdirectory-group'."
 (defun bog--get-subdir (citekey)
   "Return subdirectory for citekey file.
 Subdirectory is determined by `bog-subdirectory-group'."
-  (let (case-fold-search)
+  (let ((case-fold-search nil))
     (and bog-subdirectory-group
          (string-match bog-citekey-format citekey)
          (match-string-no-properties bog-subdirectory-group
@@ -708,7 +708,7 @@ Generate a file name with the form
 (defun bog-file-citekey (file)
   "Return leading citekey part from base name of FILE."
   (let ((fname (file-name-base file))
-        case-fold-search)
+        (case-fold-search nil))
     (and (string-match (concat "^" bog-citekey-format) fname)
          (match-string 0 fname))))
 
@@ -949,7 +949,7 @@ If the citekey prompt is slow to appear, consider enabling the
 (defun bog--citekey-groups-with-delim (citekey delim)
   "Return expression groups CITEKEY, seperated by DELIM.
 Groups are specified by `bog-citekey-web-search-groups'."
-  (let (case-fold-search)
+  (let ((case-fold-search nil))
     (string-match bog-citekey-format citekey)
     (mapconcat (lambda (g) (match-string-no-properties g citekey))
                bog-citekey-web-search-groups delim)))
@@ -1246,7 +1246,7 @@ With argument ARG, do it ARG times."
       (bog-previous-non-heading-citekey (- arg))
     (with-syntax-table bog-citekey-syntax-table
       (skip-syntax-forward "w")
-      (let (case-fold-search)
+      (let ((case-fold-search nil))
         (while (and (> arg 0)
                     (re-search-forward bog-citekey-format nil t))
           (unless (org-at-heading-p)
@@ -1260,7 +1260,7 @@ With argument ARG, do it ARG times."
   (interactive "p")
   (setq arg (or arg 1))
   (with-syntax-table bog-citekey-syntax-table
-    (let (case-fold-search)
+    (let ((case-fold-search nil))
       (while (and (> arg 0)
                   (re-search-backward bog-citekey-format nil t))
         (unless (org-at-heading-p)
@@ -1286,7 +1286,7 @@ Topic headings are determined by `bog-topic-heading-level'."
 
 (defun bog-fontify-non-heading-citekeys (limit)
   "Highlight non-heading citekey in an Org buffer."
-  (let (case-fold-search)
+  (let ((case-fold-search nil))
     (while (re-search-forward bog-citekey-format limit t)
       (unless (save-match-data (org-at-heading-p))
         (add-text-properties (match-beginning 0) (match-end 0)
-- 
cgit v1.2.3