Bug: "Not on a heading" seen on indenting headlines with an indented list as content [6.34]

[Martin Pohlack <mp26@os.inf.tu-dresden.de>]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

When indenting headlines via org-demote-subtree etc. the following
error is shown: Not on a heading.

The headline itself is indented, but not its content.

The following example file triggers the bug here:

---------->8---------->8---------->8---------->8---------->8----------
*** daksd lksa ndlksa
    * 
---------->8---------->8---------->8---------->8---------->8----------

After indentation the the buffer has the following content:
---------->8---------->8---------->8---------->8---------->8----------
***** daksd lksa ndlksa
    * 
---------->8---------->8---------->8---------->8---------->8----------

I would have expected the following:
---------->8---------->8---------->8---------->8---------->8----------
***** daksd lksa ndlksa
      * 
---------->8---------->8---------->8---------->8---------->8----------

This happens with the current git version (from 2010-01-11 10:00 MET).


Emacs  : GNU Emacs 23.1.1 (i686-pc-linux-gnu, GTK+ Version 2.14.7)
 of 2009-09-17 on monat400
Package: Org-mode version 6.34

current state:
==============
(setq
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-link-frame-setup '((vm . vm-visit-folder-other-frame)
                        (gnus . gnus-other-frame) (file . find-file))
 org-special-ctrl-a/e 'reversed
 org-agenda-show-inherited-tags nil
 org-hide-leading-stars t
 org-disputed-keys '(([(meta left)] . [(meta shift left)])
                     ([(meta right)] . [(meta shift right)]))
 org-agenda-skip-timestamp-if-done t
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-archive-location "::* Archiv"
 org-odd-levels-only t
 org-special-ctrl-k t
 org-agenda-restore-windows-after-quit t
 org-deadline-warning-days 7
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-agenda-skip-scheduled-if-done t
 org-stuck-projects '("+LEVEL>=2&-maybe/+PROJECT"
                      ("TODO" "NEXT" "INBOX" "WAITING" "TICKLER") nil "")
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-todo-keywords '((sequence "TODO(t)" "INBOX(i)" "|" "WAITING(w!)"
                      "MAYBE(m)" "TICKLER(k)" "DONE(d!)" "CANCELED(c!)"
                      "PROJECT(p)" "BLOCKED(b)" "CONTAINER(o)")
                     )
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-n-level-faces 1
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
 org-agenda-window-frame-fractions '(0.25 . 0.5)
 org-replace-disputed-keys t
 org-agenda-mouse-1-follows-link t
 org-mode-hook '(mrd-org-smartwrap-mode visual-line-mode
                 (lambda nil (local-set-key "\x03l" (quote org-store-link))
                  (local-set-key "\x03a" (quote org-agenda))
                  (local-set-key "\x03b" (quote org-iswitchb))
                  (local-set-key (quote [(control up)])
                   (quote outline-previous-visible-heading))
                  (local-set-key (quote [(control down)])
                   (quote outline-next-visible-heading))
                  (local-set-key (quote [(control meta left)])
                   (quote outline-up-heading))
                  (local-set-key (quote [(control meta right)])
                   (quote org-cycle))
                  (make-local-variable (quote filladapt-token-table))
                  (set (quote filladapt-token-table)
                   (quote
                    (("^" beginning-of-line) (">+" citation->)
                     ("\\(\\w\\|[0-9]\\)[^'`\"< 	\n]*>[ 	]*"
                      supercite-citation)
                     (";+" lisp-comment) ("# ABC" sh-comment)
                     ("%+" postscript-comment) ("///*" c++-comment)
                     ("@c[ 	]" texinfo-comment)
                     ("@comment[ 	]" texinfo-comment)
                     ("\\\\item[ 	]" bullet)
                     ("[0-9]+\\.[ 	]" bullet)
                     ("[0-9]+\\(\\.[0-9]+\\)+[ 	]" bullet)
                     ("[A-Za-z]\\.[ 	]" bullet)
                     ("(?[0-9]+)[ 	]" bullet)
                     ("(?[A-Za-z])[ 	]" bullet)
                     ("[0-9]+[A-Za-z]\\.[ 	]" bullet)
                     ("(?[0-9]+[A-Za-z])[ 	]" bullet)
                     ("[-~+#→]+[ 	]" bullet) ("[ 	]+[*][ 	]" bullet)
                     ("o[ 	]" bullet) ("[ 	]+" space) ("$" end-of-line)
                     ("[@\\]\\(param\\(?:\\s-*\\[\\(?:in\\|out\\|in,out\\)\\]\\)?\\s-+\\sw+\\|return\\)" bullet)
                     )
                    )
                   )
                  )
                 (lambda nil
                  (org-add-hook (quote change-major-mode-hook)
                   (quote org-show-block-all) (quote append) (quote local))
                  )
                 turn-on-auto-fill)
                      (nil :maxlevel . 5))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-refile-use-outline-path t
 org-agenda-start-on-weekday nil
 org-agenda-skip-deadline-if-done t
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp nil
 org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
 org-time-stamp-custom-formats '("<%Y-%m-%d>" . "<%Y-%m-%d %H:%M>")
 org-modules '(org-bbdb org-bibtex org-gnus org-id org-info org-jsinfo org-irc
               org-mew org-mhe org-rmail org-vm org-wl org-w3m)
 org-ellipsis "…"
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
                               org-beamer-auto-fragile-frames
                               org-beamer-place-default-actions-for-lists)
 )