diff options
author | Michael Sperber <sperber@deinprogramm.de> | 2011-10-22 19:46:07 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-10-26 19:49:51 +0200 |
commit | 2d296c12eae655c87fe9f5056c042ff3c532e0aa (patch) | |
tree | 6c4793b8038336556d6d5710180b2033a0802637 | |
parent | d493a0eced66ce59f8809bded0fa9284a49a8c8e (diff) | |
download | org-mode-2d296c12eae655c87fe9f5056c042ff3c532e0aa.tar.gz |
org-capture and XEmacs, indenting too far
Robert Pluim <rpluim@gmail.com> writes:
> Hi, I'm using XEmacs 21.5 (beta29) "garbanzo" d27c1ee1943b+ [Lucid]
> (i686-pc-cygwin, Mule) of Mon Oct 18 2010 on RPluim, with the following
> org-capture-templates
>
> (("t" "Todo" entry (file+headline "~/org/notes.org" "Tasks") "* TODO %?"))
>
> The problem is that for some reason the resulting TODO heading is has 2
> extra spaces, and is placed at too deep a level, giving:
>
> * Tasks
> *** TODO a task
>
> I've tested this on a fairly recent emacs24 build, and everything works
> fine there, so this is probably something XEmacs specific. Can anyone
> suggest any way to track this down (I'd bisect, but I've yet to find a
> 'good' version)?
I finally got around to looking into this: The reason is that, in
org-capture mode, `outline-level' is bound to outline.el's function,
which is off by one compared to org-mode's. I used this patch to fix
it:
Could somebody review and maybe apply this?
-rw-r--r-- | lisp/org-capture.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el index d4ae1bc..1b95073 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -848,6 +848,7 @@ it. When it is a variable, retrieve the value. Return whatever we get." (goto-char (org-capture-get :pos)) (org-set-local 'org-capture-target-marker (move-marker (make-marker) (point))) + (org-set-local 'outline-level 'org-outline-level) (let* ((template (org-capture-get :template)) (type (org-capture-get :type))) (case type |