浏览代码

org-clock.el (org-clock-select-task): Kill temporary buffer

* org-clock.el (org-clock-select-task): Kill temporary buffer.

Thanks to Marcin Borkowski for this idea.
Bastien Guerry 10 年之前
父节点
当前提交
eb973f90a9
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      lisp/org-clock.el

+ 1 - 0
lisp/org-clock.el

@@ -581,6 +581,7 @@ of a different task.")
 	(fit-window-to-buffer nil nil (if (< chl 10) chl (+ 5 chl)))
 	(fit-window-to-buffer nil nil (if (< chl 10) chl (+ 5 chl)))
 	(message (or prompt "Select task for clocking:"))
 	(message (or prompt "Select task for clocking:"))
 	(setq cursor-type nil rpl (read-char-exclusive))
 	(setq cursor-type nil rpl (read-char-exclusive))
+	(kill-buffer)
 	(cond
 	(cond
 	 ((eq rpl ?q) nil)
 	 ((eq rpl ?q) nil)
 	 ((eq rpl ?x) nil)
 	 ((eq rpl ?x) nil)