From af1b288db110667544ddc57eb79f6bf56ec632cb Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 19 Jan 2015 21:23:40 -0500
Subject: bog-list-orphan-citekeys: Raise buffer

---
 bog.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bog.el b/bog.el
index 339ab80..c77100c 100644
--- a/bog.el
+++ b/bog.el
@@ -371,8 +371,9 @@ With prefix FILE, include only orphan citekeys from that file."
   (let ((files (or (and file (list file))
                    (bog-notes)))
         (heading-cks (bog-all-heading-citekeys))
+        (bufname "*Bog orphan citekeys*")
         cks)
-    (with-current-buffer (get-buffer-create "*Bog orphan citekeys*")
+    (with-current-buffer (get-buffer-create bufname)
       (erase-buffer)
       (insert "\n")
       (-each files
@@ -386,7 +387,9 @@ With prefix FILE, include only orphan citekeys from that file."
             (insert (format "* %s\n\n" (file-name-nondirectory f)))
             (insert (concat cks "\n\n")))))
       (org-mode)
-      (show-all))))
+      (show-all)
+      (goto-char (point-min)))
+    (pop-to-buffer bufname)))
 
 
 ;;; Citekey-associated files
-- 
cgit v1.2.3