emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Narendra Joshi <narendraj9@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: How to stop org delete surrounding newline when adding headlines?
Date: Fri, 10 Mar 2017 21:20:33 +0530	[thread overview]
Message-ID: <87d1dpi112.fsf@vicarie> (raw)
In-Reply-To: <CAJQX3Dw-0T7LK+1Vmb9N7mskQwCexfJw+LMgcPfAqvny5VKCfg@mail.gmail.com> (Shiyao Ma's message of "Thu, 9 Mar 2017 14:39:03 +0800")


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

  reply	other threads:[~2017-03-10 15:45 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-03-09  6:39 How to stop org delete surrounding newline when adding headlines? Shiyao Ma
2017-03-10 15:50 ` Narendra Joshi [this message]
2017-03-10 16:16   ` Nicolas Goaziou
2017-03-10 17:21 ` Nicolas Goaziou
2017-03-11  2:48   ` Shiyao Ma
2017-03-11 10:08     ` Nicolas Goaziou
2017-03-11 13:21       ` Shiyao Ma

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87d1dpi112.fsf@vicarie \
    --to=narendraj9@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).