Hi Carsten,

*Problem*: `org-odd-levels-only' is not honored in a remember buffer for
creating child entries.

I have been using the clean outline view using the `org-odd-levels-only'
setting (actually via the per file #+STARTUP: odd setting) to simulate
the indented view of the outline (info "(org)Clean View")

This works perfectly in the main buffer for the org files - where
creating a child entry using M-S-Right (`org-demote-subtree') indents
the entry by an odd number of stars so that the indentation is preserved
and the outline hierarchy is correct.

However, in a org-remember buffer, trying to use the same function to
create a child entry after the main headline does not honor this
setting, and uses the default behavior of incrementing the stars' count
by 1.

I.e, instead of this happening in the remember buffer:

* TODO Parent Entry
*** TODO The child entry /after M-S-Right/

what actually ends up happening is:

* TODO Parent Entry
** TODO The child entry /after M-S-Right/
  +---- Notice the missing third star which should have been created

This causes problems in the actual org-buffer later on after the remember
note is filed - as org-mode seems to get confused on the outline levels.

I have added the org-mode settings using the `org-submit-bug-report'
with some trimming of private settings that probably are not relevant
(e.g. the `org-agenda-custom-commands').

-  Anupam Sengupta

Org-mode variable and customization dump follows  >>>>>>>>>

Emacs  : GNU Emacs (i386-apple-darwin9.7.0, NS apple-appkit-949.46)
Package: Org-mode version 6.30c

current state:
 org-empty-line-terminates-plain-lists t
 org-log-done t
 org-remember-default-headline "INBOX"
 org-remember-interactive-interface 'outline-path-completion
 org-todo-keyword-faces '(("MEETING" . hi-blue) ("WAITING" . hi-pink) 
("DELEGATED" . hi-pink) ("STARTED" . hi-green))
 org-special-ctrl-a/e t
 org-agenda-files '("~/org/work.gpg" "~/org/personal.gpg")
 org-blocker-hook '(org-block-todo-from-checkboxes 
 org-tag-faces '(("ISSUE" . org-warning) ("Slipped" . org-warning) ("HEADING" . 
shadow) ("INFO" . shadow) ("ATTACH" . org-clock-overlay)
                 ("Project" . shadow))
 org-publish-timestamp-directory "~/org/.org-timestamps/"
 org-agenda-tags-column -90
 org-hide-leading-stars t
 org-checklist-export-function 'org-export-as-ascii
 org-agenda-skip-timestamp-if-done t
 org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
 org-track-ordered-property-with-tag t
 org-combined-agenda-icalendar-file "~/org/OrgMode.ics"
 org-agenda-default-appointment-duration 60
 org-todo-state-tags-triggers '(("PROJECT" ("Project" . t)) ("TODO" 
("Project")) ("MEETING" ("Project")))
 org-special-ctrl-k t
 org-remember-mode-hook '(delete-other-windows)
 org-agenda-restore-windows-after-quit t
 org-deadline-warning-days 3
 org-protocol-protocol-alist '(("org-mac-remember" :protocol "mac-remember" 
:function org-mac-protocol-remember :kill-client t))
 org-agenda-skip-scheduled-if-done t
 org-export-preprocess-hook '(org-eval-replace-snippts 
 org-tags-exclude-from-inheritance '("HEADING" "Project")
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-finalize-agenda-hook '(my-org-agenda-to-appt)
 org-confirm-shell-link-function 'yes-or-no-p
 org-toc-info-mode t
 org-clock-persist t
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-icalendar-include-sexps nil
 org-registry-file "~/.emacs.d/data/org-registry.el"
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
 org-publish-project-alist '(("org-notes" :base-directory "~/org/" 
:base-extension "gpg" :publishing-directory "~/public_html" :recursive
                              nil :publishing-function org-publish-org-to-html 
:headline-levels 4 :auto-preamble t)
 org-fontify-done-headline t
 org-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote 
                  (when (memq (quote context-menu) org-mouse-features)
                   (define-key org-mouse-map (if (featurep (quote xemacs)) 
[button3] [mouse-3]) nil)
                   (define-key org-mode-map [mouse-3] (quote 
                  (define-key org-mode-map [down-mouse-1] (quote 
                  (when (memq (quote context-menu) org-mouse-features)
                   (define-key org-mouse-map [C-drag-mouse-1] (quote 
                   (define-key org-mouse-map [C-down-mouse-1] (quote 
                  (when (memq (quote yank-link) org-mouse-features) (define-key 
org-mode-map [S-mouse-2] (quote org-mouse-yank-link))
                   (define-key org-mode-map [drag-mouse-3] (quote 
                  (when (memq (quote move-tree) org-mouse-features) (define-key 
org-mouse-map [drag-mouse-3] (quote org-mouse-move-tree))
                   (define-key org-mouse-map [down-mouse-3] (quote 
                  (when (memq (quote activate-stars) org-mouse-features)
                   (font-lock-add-keywords nil
                    (\` (((\, outline-regexp) 0 (\` (face org-link mouse-face 
highlight keymap (\, org-mouse-map))) (quote prepend)))) t)
                  (when (memq (quote activate-bullets) org-mouse-features)
                   (font-lock-add-keywords nil
                     (("^[      ]*\\([-+*]\\|[0-9]+[.)]\\) +"
                       (1 (\` (face org-link keymap (\, org-mouse-map) 
mouse-face highlight)) (quote prepend)))
                  (when (memq (quote activate-checkboxes) org-mouse-features)
                   (font-lock-add-keywords nil
                     (("^[      ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
                       (2 (\` (face bold keymap (\, org-mouse-map) mouse-face 
highlight)) t))
                  (defadvice org-open-at-point (around org-mouse-open-at-point 
                   (let ((context (org-context)))
                    (cond ((assq :headline-stars context) (org-cycle)) ((assq 
:checkbox context) (org-toggle-checkbox))
                     ((assq :item-bullet context) (let 
((org-cycle-include-plain-lists t)) (org-cycle))) (t ad-do-it))
                 #[nil "\303\304\305  !L\210*\306\n\307\310#\207"
                   [value var yas/keymap yas/trigger-key [tab] 
make-local-variable define-key [tab] yas/next-field-group] 4]
                 org-clock-load #[nil "\300\301!\207" [imenu-add-to-menubar 
"Headings"] 2] turn-on-auto-fill
                 #[nil "\300\301\302\303\304$\207" [org-add-hook 
change-major-mode-hook org-show-block-all append local] 5])
 org-font-lock-hook '(org-eval-handle-snippets)
 org-agenda-ndays 1
 org-refile-targets '((nil :maxlevel . 3))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-log-into-drawer t
 org-clock-modeline-total 'current
 org-agenda-mode-hook '((lambda nil (setq org-mouse-context-menu-function 
(quote org-mouse-agenda-context-menu))
                         (define-key org-agenda-keymap (if (featurep (quote 
xemacs)) [button3] [mouse-3])
                          (quote org-mouse-show-context-menu))
                         (define-key org-agenda-keymap [down-mouse-3] (quote 
                         (define-key org-agenda-keymap (if (featurep (quote 
xemacs)) [(control mouse-4)] [C-mouse-4])
                          (quote org-agenda-earlier))
                         (define-key org-agenda-keymap (if (featurep (quote 
xemacs)) [(control mouse-5)] [C-mouse-5])
                          (quote org-agenda-later))
                         (define-key org-agenda-keymap [drag-mouse-3]
                           (lambda (event) (interactive "e")
                            (case (org-mouse-get-gesture event) (:left 
(org-agenda-earlier 1)) (:right (org-agenda-later 1))))
 org-footnote-auto-adjust t
 org-agenda-skip-deadline-if-done t
 org-enforce-todo-dependencies t
 org-occur-hook '(org-first-headline-recenter)
 org-tags-column -99
 org-modules '(org-bbdb org-bibtex org-gnus org-info org-jsinfo org-mac-message 
org-protocol org-mouse org-bookmark org-checklist org-eval
               org-expiry org-panel org-registry org2rem org-toc 
 org-remember-templates '(("Next Work Action" 110 "* TODO %^{Heading} %^g\n  
SCHEDULED: %^{Scheduled for}t\n  %?%i\n  %a" "~/org/work.gpg"
                           "INBOX" nil)
                          ("Next Personal Action" 112 "* TODO %^{Heading} %^g\n 
 SCHEDULED: %^{Scheduled For}t\n  %?%i\n  %a"
                           "~/org/personal.gpg" "INBOX" nil))
 org-icalendar-include-todo t
 org-ellipsis 'org-warning
 org-enforce-todo-checkbox-dependencies t
 org-expiry-handler-function 'org-toggle-archive-tag

Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.

Reply via email to