summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el18
1 files changed, 12 insertions, 6 deletions
diff --git a/bog.el b/bog.el
index 0d353c7..20d1f32 100644
--- a/bog.el
+++ b/bog.el
@@ -320,13 +320,19 @@ word constituents."
(defun bog-citekeys-in-file (file)
"Return all citekeys in FILE."
- (let (refs
- case-fold-search)
- (with-temp-buffer
- (insert-file-contents file)
+ (with-temp-buffer
+ (insert-file-contents file)
+ (bog-citekeys-in-buffer)))
+
+(defun bog-citekeys-in-buffer ()
+ "Return all citekeys in current buffer."
+ (save-excursion
+ (let (refs
+ case-fold-search)
+ (goto-char (point-min))
(while (re-search-forward bog-citekey-format nil t)
- (push (match-string-no-properties 0) refs)))
- (-distinct refs)))
+ (push (match-string-no-properties 0) refs))
+ (-distinct refs))))
(defun bog-heading-citekeys-in-file (file)
"Return all citekeys in headings of FILE."