From: Tomer Altman <taltman@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Unable to use M-Ret from line-wrapped relative time items
Date: Wed, 13 Apr 2011 10:59:08 -0700 [thread overview]
Message-ID: <io4o98$c1m$1@dough.gmane.org> (raw)
[-- Attachment #1: Type: text/plain, Size: 1020 bytes --]
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
[-- Attachment #2: m-ret-timestamp-entry.txt --]
[-- Type: text/plain, Size: 5150 bytes --]
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("Æ\x10 @Ç=!\0ÈÉÊ\"ËÉ!\x1aA@)¢Ì=!\0ÈÍÊ\"Î\v!Ï Ð !\fc\0Ñed\"\rVW\0ebÒ\r¥y`\x1e^[dbÒ\r¥\rZy\x0e^[`|)ÓcebÔÕÖ \"× ÔØ!ÙÊ\x1e\x1c\x1e\x1dÔØ!Ú +Ù" [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("Æ`Ç\"\b\0ÈÉ \\\x18` Y!\0ÊËÈ\n B\vB\x13\"æ\0Æ`Ì\"3\0Í`ÌÎ $bæ\0\fÏ=M\0Ð\r!M\0ÊËÈ`B\vB\x13\"æ\0ÐÑ!]\0ÒÓ!Ôyæ\0Ð\x0e\x1a!p\0ÒÕÎÖ#Ôyæ\0\x0e^[\0Ð\x0e^[!\0× æ\0ÐØ!\0Ôyæ\0Ð\x0e\x1c!ª\0\x0e\x1d\b!\x0e\x1eB\x16\x1e\b`B\vB\x13Ôyæ\0\fÙ=¶\0Ôyæ\0\b\x0e\x1fAXÍ\0ÊËÈ\n B\vB\x13\"æ\0\b\x0e\x1e@A@Xã\0\b`B\vB\x13Ôyæ\0Ôy)\0\0" [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)
next reply other threads:[~2011-04-13 18:05 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-04-13 17:59 Tomer Altman [this message]
2011-04-16 1:35 ` Unable to use M-Ret from line-wrapped relative time items Tomer Altman
2011-04-16 2:23 ` Bernt Hansen
2011-04-16 5:50 ` Christian Moe
2011-04-16 7:28 ` Nicolas Goaziou
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='io4o98$c1m$1@dough.gmane.org' \
--to=taltman@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).