Hi,
I am an inexperienced org-mode user, so my apologies if this bug report
falls short, or is submitted to the wrong forum.
I've been experiencing an annoying bug/break since upgrading to OrgMode
7.5. I'm running it on GNU Emacs 22.3.1 (i386-apple-darwin9, Carbon
Version 1.6.0).
When I am using a relative timer, I can usually hit M-Ret at the end of
the current item, to create a new time-stamped item (I'm using [X] for
point):
- 0:02:04 :: foo[X]
This leads to a new timestamp item:
- 0:02:04 :: foo
- 0:02:06 ::
But when the text of the second note gets to be too long, Emacs wraps
the text to the next line (I have the Fill minor mode active). Trying to
use M-Ret from the end of the second line of the second item leads to
the attached break/backtrace:
- 0:02:04 :: foo
- 0:02:06 :: bar bar bar bar bar bar bar bar bar bar bar bar bar bar
bar[X]
Any ideas on how to fix this bug/break? Do I merely need to upgrade my
version of GNU Emacs?
Thank you for your time & help,
~Tomer
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
<=(13 nil)
(cond ((>= ... lim-down) (throw ... ...)) ((get-text-property ... ...)
(goto-char ...)) ((and ... ...) (throw ... ...)) ((looking-at "^[
]*#\\+begin_") (re-search-forward "^[ ]*#\\+end_") (forward-line 1))
((looking-at drawers-re) (re-search-forward "^[ ]*:END:" nil t) (forward-line
1)) ((and inlinetask-re ...) (org-inlinetask-goto-end)) ((looking-at "^[ ]*$")
(forward-line 1)) ((looking-at item-re) (push ... itm-lst-2) (push ...
end-lst-2) (forward-line 1)) ((eq org-list-ending-method ...) (forward-line 1))
((<= ind ...) (throw ... ...)) ((<= ind ...) (push ... end-lst-2) (forward-line
1)) (t (forward-line 1)))
(let ((ind ...)) (cond (... ...) (... ...) (... ...) (... ... ...) (... ...
...) (... ...) (... ...) (... ... ... ...) (... ...) (... ...) (... ... ...) (t
...)))
(while t (let (...) (cond ... ... ... ... ... ... ... ... ... ... ... ...)))
(catch (quote exit) (while t (let ... ...)))
(let* ((case-fold-search t) (context ...) (lim-up ...) (lim-down ...)
(text-min-ind 10000) (item-re ...) (drawers-re ...) (inlinetask-re ...)
(beg-cell ...) ind itm-lst itm-lst-2 end-lst end-lst-2 struct (assoc-at-point
...) (end-before-blank ...)) (save-excursion (catch ... ...)) (catch (quote
exit) (while t ...)) (setq struct (append itm-lst ...)) (setq end-lst (append
end-lst ...)) (let (...) (mapc ... struct)) (org-list-struct-assoc-end struct
end-lst) struct)
(save-excursion (beginning-of-line) (let* (... ... ... ... ... ... ... ...
... ind itm-lst itm-lst-2 end-lst end-lst-2 struct ... ...) (save-excursion
...) (catch ... ...) (setq struct ...) (setq end-lst ...) (let ... ...)
(org-list-struct-assoc-end struct end-lst) struct))
org-list-struct()
(let* ((struct ...) (prevs ...) (s ...)) (setq struct (org-list-insert-item
... struct prevs nil s)) (org-list-write-struct struct (org-list-parents-alist
struct)) (looking-at org-list-full-item-re) (goto-char (match-end 0)))
(cond ((and itemp ...) (let* ... ... ... ... ...)) (itemp (error "This is not
a timer list")) (t (beginning-of-line) (org-indent-line-function) (insert "- ")
(org-timer ...) (insert ":: ")))
(let ((itemp ...)) (cond (... ...) (itemp ...) (t ... ... ... ... ...)))
org-timer-item()
(progn (org-timer-item) t)
(if (save-excursion (goto-char itemp) (org-at-item-timer-p)) (progn
(org-timer-item) t) (goto-char itemp) (let* (... ... ... ...) (setq struct ...)
(org-list-write-struct struct ...) (when checkp ...) (looking-at
org-list-full-item-re) (goto-char ...) t))
(if (or (not itemp) (save-excursion ... ...)) nil (if (save-excursion ...
...) (progn ... t) (goto-char itemp) (let* ... ... ... ... ... ... t)))
(unless (or (not itemp) (save-excursion ... ...)) (if (save-excursion ...
...) (progn ... t) (goto-char itemp) (let* ... ... ... ... ... ... t)))
(let ((itemp ...) (pos ...)) (unless (or ... ...) (if ... ... ... ...)))
org-insert-item()
(not (org-insert-item))
(or force-heading (not (org-insert-item)))
(if (or force-heading (not ...)) (progn (let* ... ... ... ... ... ... ... ...
...)))
(when (or force-heading (not ...)) (let* (... ... ... ... ... ... pos
hide-previous previous-pos) (cond ... ... ...) (insert head) (just-one-space)
(setq pos ...) (end-of-line 1) (unless ... ... ...) (when ... ...) (run-hooks
...)))
(if (or (= ... 0) (and ... ...)) (progn (insert "\n* ") (run-hooks ...))
(when (or force-heading ...) (let* ... ... ... ... ... ... ... ... ...)))
org-insert-heading(nil)
call-interactively(org-insert-heading)
(cond ((run-hook-with-args-until-success ...)) ((org-at-table-p)
(call-interactively ...)) (t (call-interactively ...)))
org-meta-return(nil)
call-interactively(org-meta-return)
recursive-edit()
byte-code("Æ @Ç=! ÈÉÊ\"ËÉ!A@)¢Ì=! ÈÍÊ\"Î!Ï Ð !\fc Ñed\"
VW ebÒ
¥y`dbÒ
¥
Zy`|)ÓcebÔÕÖ \"× ÔØ!ÙÊÔØ!Ú +Ù" [unread-command-char
debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1
debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string
kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output]
4)
debug(error (wrong-type-argument number-or-marker-p nil))
byte-code("Æ`Ç\" ÈÉ \\` Y! ÊËÈ\n BB\"æ Æ`Ì\"3 Í`ÌÎ
$bæ \fÏ=M Ð
!M ÊËÈ`BB\"æ ÐÑ!] ÒÓ!Ôyæ Ð!p ÒÕÎÖ#Ôyæ Ð! ×
æ ÐØ! Ôyæ Ð!ª !B`BBÔyæ \fÙ=¶ Ôyæ AXÍ ÊËÈ\n
BB\"æ @A@Xã `BBÔyæ Ôy) " [ind lim-down end-before-blank
end-lst-2 org-list-ending-method org-list-end-re get-text-property
original-indentation 0 org-get-indentation throw exit org-example
next-single-property-change nil indent looking-at "^[ ]*#\\+begin_"
re-search-forward "^[ ]*#\\+end_" 1 "^[ ]*:END:" t
org-inlinetask-goto-end "^[ ]*$" regexp drawers-re inlinetask-re item-re
assoc-at-point itm-lst-2 beg-cell] 5)
org-list-struct()
org-timer-item()
org-insert-item()
org-insert-heading(nil)
call-interactively(org-insert-heading)
org-meta-return(nil)
call-interactively(org-meta-return)