emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Unable to use M-Ret from line-wrapped relative time items
@ 2011-04-13 17:59 Tomer Altman
  2011-04-16  1:35 ` Tomer Altman
                   ` (2 more replies)
  0 siblings, 3 replies; 5+ messages in thread
From: Tomer Altman @ 2011-04-13 17:59 UTC (permalink / raw)
  To: emacs-orgmode

[-- 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!ˆÏ ˆÐ	!ˆ\fƒc\0Ñed\"\rVƒW\0ebˆÒ\r¥yˆ`\x1e^[dbˆÒ\r¥\rZyˆ\x0e^[`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊ\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)

^ permalink raw reply	[flat|nested] 5+ messages in thread
end of thread, other threads:[~2011-04-16  7:28 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-04-13 17:59 Unable to use M-Ret from line-wrapped relative time items Tomer Altman
2011-04-16  1:35 ` Tomer Altman
2011-04-16  2:23   ` Bernt Hansen
2011-04-16  5:50 ` Christian Moe
2011-04-16  7:28 ` Nicolas Goaziou

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).