summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-01-24 18:26:31 -0500
committerKyle Meyer <kyle@kyleam.com>2016-01-24 18:26:31 -0500
commit3385764001936ae7c73331131bf7a06a398deb13 (patch)
tree035a2dc0b4ffd3fc7f422afbd50b5480cbff5c5a
parenta030378aaec54931910aa2756698821c3613fb1e (diff)
downloadbog-3385764001936ae7c73331131bf7a06a398deb13.tar.gz
Explicitly bind nil-value for case-fold-search
-rw-r--r--bog.el24
1 files 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)