|
@@ -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"
|