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
* 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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.