Re: 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>]

Hi Carsten and Matthew,

I think the problem is related to mrd-org-smartwrap-mode, but I cannot
further pinpoint it.

Here is a small startup file for reproducing (init.mrd.el):
---------->8---------->8---------->8---------->8---------->8----------
; path to current org-mode here
(add-to-list 'load-path "~/.emacs.d/lisp/")
(add-to-list 'load-path "~/.emacs.d/lisp/org-mode/")

(require 'org)
(require 'org-docbook)
(require 'mrd-org-smartwrap)
(add-hook 'org-mode-hook 'mrd-org-smartwrap-mode)
---------->8---------->8---------->8---------->8---------->8----------

Example file that triggers the bug (test.org):
---------->8---------->8---------->8---------->8---------->8----------
* test für list childs
  *
---------->8---------->8---------->8---------->8---------->8----------

emacs -q --no-site-file -l init.mrd.el test.org

Cheers,
Martin

Carsten Dominik wrote:
> Hi Martin,
> 
> I am unable to reproduce this.
> 
> Could you please try to create a minimal setup with a minimum  
> configuration?
> 
> Thanks.
> 
> - Carsten
> 
> On Jan 11, 2010, at 10:16 AM, Martin Pohlack wrote:
> 
>> 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)
>> )
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
> 
> - Carsten