From a7d1289dd7d9ef0b8dee1632533fbf16930f50d5 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Fri, 12 Jan 2018 17:55:56 +0000 Subject: Minor optimisations --- bog.el | 4 ++-- 1 file 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")))) -- cgit v1.2.3