[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] How to stop org delete surrounding newline when adding headlines
|
From: |
Narendra Joshi |
|
Subject: |
Re: [O] How to stop org delete surrounding newline when adding headlines? |
|
Date: |
Fri, 10 Mar 2017 21:20:33 +0530 |
|
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux) |
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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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:address@hidden:]+:\\)\\)?[ ]*$" 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. \211.\306.\n\203. \307
\210.9\203(.\310N\203(. \203(.\311\303!\202\244.\312.!\262.\211\211\242\313=\262.\203C.\314.\"\211\262.\204).\315.!\203s.\203l.\316.E\fB.
\247\203l.
\317V\203l.
\f\233\211:\203k.\211\306\241\210\210\316.\"\202\242.\320...#.9\203\242..\321N\203\242..\322N\204\242.\323.\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. \211.\306.\n\203. \307
\210.9\203(.\310N\203(. \203(.\311\303!\202\244.\312.!\262.\211\211\242\313=\262.\203C.\314.\"\211\262.\204).\315.!\203s.\203l.\316.E\fB.
\247\203l.
\317V\203l.
\f\233\211:\203k.\211\306\241\210\210\316.\"\202\242.\320...#.9\203\242..\321N\203\242..\322N\204\242.\323.\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.
\211.\306.\n\203. \307
\210.9\203(.\310N\203(. \203(.\311\303!\202\244.\312.!\262.\211\211\242\313=\262.\203C.\314.\"\211\262.\204).\315.!\203s.\203l.\316.E\fB.
\247\203l.
\317V\203l.
\f\233\211:\203k.\211\306\241\210\210\316.\"\202\242.\320...#.9\203\242..\321N\203\242..\322N\204\242.\323.\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