summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBasil L. Contovounesios <contovob@tcd.ie>2018-01-12 17:55:56 +0000
committerBasil L. Contovounesios <contovob@tcd.ie>2018-01-12 17:55:56 +0000
commita7d1289dd7d9ef0b8dee1632533fbf16930f50d5 (patch)
tree3f0a809181353a2a4aea0324db7221df37975b8b
parentda8e863c8997239706ee89a3150e13142d5bb233 (diff)
downloadbog-a7d1289dd7d9ef0b8dee1632533fbf16930f50d5.tar.gz
Minor optimisations
-rw-r--r--bog.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/bog.el b/bog.el
index f05fbca..755bcb9 100644
--- a/bog.el
+++ b/bog.el
@@ -747,7 +747,7 @@ Generate a file name with the form
"Return a list of citekeys for files in `bog-file-directory'."
(bog--with-citekey-cache 'files
(bog--maybe-sort
- (delq nil (delete-dups (mapcar #'bog-file-citekey
+ (delete-dups (delq nil (mapcar #'bog-file-citekey
(bog-all-citekey-files)))))))
(defun bog-file-citekey (file)
@@ -978,7 +978,7 @@ instead of citekeys from file names in `bog-bib-directory'."
(goto-char (point-min))
(org-mode)
(pop-to-buffer (current-buffer)))
- (let ((old-buf (get-buffer-create orphan-bufname)))
+ (let ((old-buf (get-buffer orphan-bufname)))
(when old-buf
(kill-buffer old-buf)))
(message "No orphans found"))))