Re: How to stop org delete surrounding newline when adding headlines?

[Narendra Joshi <narendraj9@gmail.com>]

Hi,

I am getting Arithmetic Error with Emacs HEAD, while opening
`org-agenda'.
I think it's because of <Tue .. ++0d> the zero in time stamps. (See <2017-01-21 Sat ++0d>" )

Here is the trace:

Debugger entered--Lisp error: (arith-error)
  org-closest-date(#("<2017-01-21 Sat ++0d>" 0 21 (fontified nil org-category "main")) 736398 #("+0d" 0 3 (org-category "main" fontified nil)) nil t)
  org-time-string-to-absolute(#("<2017-01-21 Sat ++0d>" 0 21 (fontified nil org-category "main")) 736398 nil t #<buffer main.org> 38219)
  org-agenda-get-timestamps((#("  main:        5 d. ago:  TODO Write a blog post about something  :writing:" 0 26 (org-category "main" tags ("writing") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Write a blog post about something  :writing:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 5 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 8333 in main.org> warntime nil ts-date 736393 org-hd-marker #<marker at 8242 in main.org> priority 1005 ...) 26 64 (org-heading t org-category "main" fontified nil tags ("writing") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Write a blog post about something  :writing:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 5 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 8333 in main.org> warntime nil ts-date 736393 ...) 64 75 (org-heading t org-category "main" tags ("writing") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Write a blog post about something  :writing:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 5 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 8333 in main.org> warntime nil ts-date 736393 org-hd-marker #<marker at 8242 in main.org> ...)) #("  main:        2 d. ago:  TODO Learn about a culture every month  :culture:" 0 26 (org-category "main" tags ("culture") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Learn about a culture every month  :culture:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 2 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 12067 in main.org> warntime nil ts-date 736396 org-hd-marker #<marker at 11976 in main.org> priority 1002 ...) 26 64 (org-heading t org-category "main" fontified nil tags ("culture") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Learn about a culture every month  :culture:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 2 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 12067 in main.org> warntime nil ts-date 736396 ...) 64 75 (org-heading t org-category "main" tags ("culture") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Learn about a culture every month  :culture:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 2 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 12067 in main.org> warntime nil ts-date 736396 org-hd-marker #<marker at 11976 in main.org> ...)) #("  main:       In   1 d.:  TODO Workout on alternate days          :workout:" 0 26 (org-category "main" tags ("workout") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Workout on alternate days          :workout:" 0 30 (fontified nil org-category "main" org-heading t) 30 49 (org-heading t)) level "  " time "" extra "In   1 d.: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 30535 in main.org> warntime nil ts-date 736399 org-hd-marker #<marker at 30444 in main.org> priority 999 ...) 26 56 (org-heading t org-category "main" fontified nil tags ("workout") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Workout on alternate days          :workout:" 0 30 (fontified nil org-category "main" org-heading t) 30 49 (org-heading t)) level "  " time "" extra "In   1 d.: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 30535 in main.org> warntime nil ts-date 736399 ...) 56 75 (org-heading t org-category "main" tags ("workout") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Workout on alternate days          :workout:" 0 30 (fontified nil org-category "main" org-heading t) 30 49 (org-heading t)) level "  " time "" extra "In   1 d.: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 30535 in main.org> warntime nil ts-date 736399 org-hd-marker #<marker at 30444 in main.org> ...))))
  org-agenda-get-day-entries("/home/nj/miscellany/personal/org/main.org" (3 10 2017) :deadline :scheduled :timestamp :sexp)
  apply(org-agenda-get-day-entries "/home/nj/miscellany/personal/org/main.org" (3 10 2017) (:deadline :scheduled :timestamp :sexp))
  org-agenda-list(nil)
  funcall-interactively(org-agenda-list nil)
  call-interactively(org-agenda-list nil nil)
  #[1025 "\306.\211?\205.\0	\211.\306.\n\203.\0\307 \210.9\203(.\x04\310N\203(.\v\203(.\311\303!\202\244.\x04\312.!\262.\211\211\242\313=\262.\203C.\314.\x06\a\"\211\262.\204).\315.!\203s.\x04\203l.\316.\x03E\fB.\r\247\203l.\r\317V\203l.\r\f\233\211:\203k.\211\306\241\210\210\316.\x03\"\202\242.\320.\x06.\x06.\x06#.\x069\203\242.\x06.\321N\203\242.\x06.\322N\204\242.\323.\a\322\324#\210\325\326\327.	\211\321N\330#\"\210\262.\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function command-history history-length nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp execute-kbd-macro 0 call-interactively byte-obsolete-info command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning "command"] 13 2406715](org-agenda-list nil nil nil)
  ad-Advice-command-execute(#[1025 "\306.\211?\205.\0	\211.\306.\n\203.\0\307 \210.9\203(.\x04\310N\203(.\v\203(.\311\303!\202\244.\x04\312.!\262.\211\211\242\313=\262.\203C.\314.\x06\a\"\211\262.\204).\315.!\203s.\x04\203l.\316.\x03E\fB.\r\247\203l.\r\317V\203l.\r\f\233\211:\203k.\211\306\241\210\210\316.\x03\"\202\242.\320.\x06.\x06.\x06#.\x069\203\242.\x06.\321N\203\242.\x06.\322N\204\242.\323.\a\322\324#\210\325\326\327.	\211\321N\330#\"\210\262.\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function command-history history-length nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp execute-kbd-macro 0 call-interactively byte-obsolete-info command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning "command"] 13 2406715] org-agenda-list)
  apply(ad-Advice-command-execute #[1025 "\306.\211?\205.\0	\211.\306.\n\203.\0\307 \210.9\203(.\x04\310N\203(.\v\203(.\311\303!\202\244.\x04\312.!\262.\211\211\242\313=\262.\203C.\314.\x06\a\"\211\262.\204).\315.!\203s.\x04\203l.\316.\x03E\fB.\r\247\203l.\r\317V\203l.\r\f\233\211:\203k.\211\306\241\210\210\316.\x03\"\202\242.\320.\x06.\x06.\x06#.\x069\203\242.\x06.\321N\203\242.\x06.\322N\204\242.\323.\a\322\324#\210\325\326\327.	\211\321N\330#\"\210\262.\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function command-history history-length nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp execute-kbd-macro 0 call-interactively byte-obsolete-info command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning "command"] 13 2406715] org-agenda-list)
  command-execute(org-agenda-list)


-- 
Narendra Joshi