Keep archive buffer after archiving something to it
This commit is contained in:
parent
c2d7c2f982
commit
343f3c4782
|
@ -1,5 +1,8 @@
|
||||||
2009-10-28 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-10-28 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org-archive.el (org-archive-subtree): Keep archive after
|
||||||
|
archiving something.
|
||||||
|
|
||||||
* org-id.el (org-id-update-id-locations): Add archive files if
|
* org-id.el (org-id-update-id-locations): Add archive files if
|
||||||
that is required by `org-id-extra-files'.
|
that is required by `org-id-extra-files'.
|
||||||
|
|
||||||
|
|
|
@ -304,12 +304,7 @@ this heading."
|
||||||
|
|
||||||
;; Save and kill the buffer, if it is not the same buffer.
|
;; Save and kill the buffer, if it is not the same buffer.
|
||||||
(when (not (eq this-buffer buffer))
|
(when (not (eq this-buffer buffer))
|
||||||
(save-buffer)
|
(save-buffer))
|
||||||
;; Check if it is OK to kill the buffer
|
|
||||||
(unless
|
|
||||||
(or visiting
|
|
||||||
(equal (marker-buffer org-clock-marker) (current-buffer)))
|
|
||||||
(kill-buffer buffer)))
|
|
||||||
))
|
))
|
||||||
;; Here we are back in the original buffer. Everything seems to have
|
;; Here we are back in the original buffer. Everything seems to have
|
||||||
;; worked. So now cut the tree and finish up.
|
;; worked. So now cut the tree and finish up.
|
||||||
|
|
Loading…
Reference in New Issue