diff options
author | Michael Sperber <sperber@deinprogramm.de> | 2011-10-26 19:43:07 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-10-26 19:43:07 +0200 |
commit | d493a0eced66ce59f8809bded0fa9284a49a8c8e (patch) | |
tree | 5110a840687c45c41144572212551b7f952bc9e4 | |
parent | cc4a75462fe703c7a2ca0bc1916a3367afcdff59 (diff) | |
download | org-mode-d493a0ec.tar.gz |
* org-capture.el (org-capture-get-indirect-buffer): Fix XEmacs
compatibility issue when creating an indirect buffer.
TINYCHANGE
-rw-r--r-- | lisp/org-capture.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el index e1b8a4f..d4ae1bc 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -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" |