* org-capture.el (org-capture-get-indirect-buffer): Fix XEmacs

compatibility issue when creating an indirect buffer.

TINYCHANGE
This commit is contained in:
Michael Sperber 2011-10-26 19:43:07 +02:00 committed by Bastien Guerry
parent cc4a75462f
commit d493a0eced
1 changed files with 4 additions and 2 deletions

View File

@ -1213,8 +1213,10 @@ Use PREFIX as a prefix for the name of the indirect buffer."
(setq bname (concat prefix "-" (number-to-string (incf n)) "-" base)))
(condition-case nil
(make-indirect-buffer buffer bname 'clone)
(error (make-indirect-buffer buffer bname)))))
(error
(let ((buf (make-indirect-buffer buffer bname)))
(with-current-buffer buf (org-mode))
buf)))))
(defun org-capture-verify-tree (tree)
"Throw error if TREE is not a valid tree"