summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-01-19 21:23:40 -0500
committerKyle Meyer <kyle@kyleam.com>2015-01-19 21:23:40 -0500
commitaf1b288db110667544ddc57eb79f6bf56ec632cb (patch)
tree3399e277ca12f446d156e1ac1c4b7921d6324ccf /bog.el
parente787d178c2f9a875fe0a0fabbd3d25925eb12e9c (diff)
downloadbog-af1b288db110667544ddc57eb79f6bf56ec632cb.tar.gz
bog-list-orphan-citekeys: Raise buffer
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el7
1 files 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