From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carlos Noguera Subject: Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)] Date: Wed, 04 May 2016 10:59:13 +0000 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a114009da46f1230532021edb Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:32828) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1axuX6-0004Ng-29 for emacs-orgmode@gnu.org; Wed, 04 May 2016 07:00:03 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1axuWt-0002Mp-BV for emacs-orgmode@gnu.org; Wed, 04 May 2016 06:59:50 -0400 Received: from mail-lf0-x22a.google.com ([2a00:1450:4010:c07::22a]:33627) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1axuWr-0002Hy-JR for emacs-orgmode@gnu.org; Wed, 04 May 2016 06:59:43 -0400 Received: by mail-lf0-x22a.google.com with SMTP id y84so55353879lfc.0 for ; Wed, 04 May 2016 03:59:26 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org --001a114009da46f1230532021edb Content-Type: text/plain; charset=UTF-8 When clocking in under a headline that already has clock entries, the entries are not correclty bundled in a drawer, generating a: (I removed the bytecode because gmail didn't like it) Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil) byte-code("REMOVED" [beg end org-clock-into-drawer drawer find-unclosed org-clock-string line-beginning-position outline-next-heading org-clock-drawer-name "^[ ]*" " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward t org-element-at-point org-element-type clock org-element-property :status running beginning-of-line throw exit "^[ ]*:" regexp-quote ":[ ]*$" :contents-end nil 0 org-end-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n" org-indent-region org-flag-drawer mapconcat #[(p) "\212 b\210\302\212\303\304x\210\305\306!)\305\306!\" \307\310\311\307\312\311 ##*\207" [p s delete-and-extract-region " \n" nil line-beginning-position 2 replace-regexp-in-string "\\`[ \n ]+" "" "[ \n ]+\\'"] 7] "\n:END:\n" point-marker ":\n" -1 last open-clock-re element drawer-re cend org-log-states-order-reversed first ...] 4) org-clock-find-position(nil) byte-code("REMOVED" [org-clock-resolving-clocks-due-to-idleness org-clock-resolving-clocks org-clock-leftover-time leftover org--msg-extra target-pos org-clocking-p nil "" t org-resolve-clocks (64) org-clock-in (4) org-clock-select-task "Clock-in on task: " copy-marker error "Abort" (16) org-clock-mark-default-task org-back-to-heading marker-buffer marker-position 4 org-heading-components message "Clock continues in \"%s\"" throw abort org-clock-out org-at-heading-p point-at-bol 0 org-base-buffer run-hooks org-clock-in-prepare-hook org-clock-history-push functionp looking-at match-string 2 org-todo "[ ]*" "\\>" replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" match-string-no-properties "???" ...] 8) org-clock-in(nil) call-interactively(org-clock-in nil nil) command-execute(org-clock-in) that prevents the clock in I go from ** TODO a task CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29 CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00 C-c C-x C-i to ** TODO a task :CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00 CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29 :END: Any ideas? Carlos. Emacs : GNU Emacs 24.5.1 (i686-pc-cygwin) of 2015-06-23 on desktop-new Package: Org-mode version 8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/) current state: ============== (setq org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe) org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-archive-hook '(org-attach-archive-delete-maybe) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) org-return-follows-link t org-babel-pre-tangle-hook '(save-buffer) org-occur-hook '(org-first-headline-recenter) org-link-file-path-type 'relative org-metaup-hook '(org-babel-load-in-session-maybe) org-confirm-elisp-link-function 'yes-or-no-p org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-enforce-todo-dependencies t org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-babel-show-result-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-clock-into-drawer 3 org-metadown-hook '(org-babel-pop-to-session-maybe) org-agenda-files '("~/notes/onto-alliance.org" "~/notes/ODASE-src.org" "~/notes/notes.org") org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . default) (system . "open %s")) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-after-todo-state-change-hook '(org-clock-out-if-current) org-after-todo-statistics-hook '(org-summary-todo) org-confirm-shell-link-function 'yes-or-no-p ) --001a114009da46f1230532021edb Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable

When clocking in under a headline that= already has clock entries, the
entries are not correclty bundled= in a drawer, generating a: (I removed
the bytecode because gmail= didn't like it)

Debugger entered--Lisp error:= (wrong-type-argument char-or-string-p nil)
=C2=A0 byte-code(&quo= t;REMOVED" [beg end org-clock-into-drawer drawer find-unclosed org-clo= ck-string line-beginning-position outline-next-heading org-clock-drawer-nam= e "^[ ]*" " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " = *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward t org-element-at-p= oint org-element-type clock org-element-property :status running beginning-= of-line throw exit "^[ ]*:" regexp-quote ":[ ]*$" :contents-end nil 0 org-e= nd-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n&q= uot; org-indent-region org-flag-drawer mapconcat #[(p) "\212 b\210\302= \212\303\304x\210\305\306!)\305\306!\" \307\310\311\307\312\311 ##*\207" [p = s delete-and-extract-region "=C2=A0
\n" nil line-beginning-positi= on 2 replace-regexp-in-string "\\`[ \n
]+" "" "[ <= span class=3D"Apple-tab-span" style=3D"white-space:pre"> \n
]+\\'"] 7] "\n:END:\n" point-marker ":\n" -1= last open-clock-re element drawer-re cend org-log-states-order-reversed fi= rst ...] 4)
=C2=A0 org-clock-find-position(nil)
=C2=A0 = byte-code("REMOVED" [org-clock-resolving-clocks-due-to-idleness o= rg-clock-resolving-clocks org-clock-leftover-time leftover org--msg-extra t= arget-pos org-clocking-p nil "" t org-resolve-clocks (64) org-clo= ck-in (4) org-clock-select-task "Clock-in on task: " copy-marker = error "Abort" (16) org-clock-mark-default-task org-back-to-headin= g marker-buffer marker-position 4 org-heading-components message "Cloc= k continues in \"%s\"" throw abort org-clock-out org-at-head= ing-p point-at-bol 0 org-base-buffer run-hooks org-clock-in-prepare-hook or= g-clock-history-push functionp looking-at match-string 2 org-todo "[ <= span class=3D"Apple-tab-span" style=3D"white-space:pre"> ]*" &q= uot;\\>" replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]= \\]" "\\1" match-string-no-properties "???" ...] 8= )
=C2=A0 org-clock-in(nil)
=C2=A0 call-interactively(or= g-clock-in nil nil)
=C2=A0 command-execute(org-clock-in)

that prevents the clock in
I go from
<= br>
** TODO a task
CLOCK: [2016-04-29 Fri 13:14]--[2016= -04-29 Fri 14:43] =3D> =C2=A01:29
CLOCK: [2016-05-04 Wed 12:44= ]--[2016-05-04 Wed 12:44] =3D> =C2=A00:00

C-c C= -x C-i

to

** TODO a task<= /div>
:CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] =3D> = =C2=A00:00
CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] = =3D> =C2=A01:29
:END:


= Any ideas?


Carlos.


Emacs =C2=A0: GNU Emacs 24.5.1 (i686-pc-cygwin)
=C2=A0of 2015-06-23 on desktop-new
Package: Org-mode versi= on 8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)=

current state:
=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D
(setq
=C2=A0org-ctrl-c-ctrl-c-hook &= #39;(org-babel-hash-at-point
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-babel-execute-s= afely-maybe)
=C2=A0org-tab-first-hook '(org-hide-block-toggle= -maybe
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 org-babel-hide-result-toggle-maybe
=C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-b= abel-header-arg-expand)
=C2=A0org-archive-hook '(org-attach-a= rchive-delete-maybe)
=C2=A0org-cycle-hook '(org-cycle-hide-ar= chived-subtrees org-cycle-hide-drawers
=C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-cycle-show-empty-lines
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-optimiz= e-window-after-visibility-change)
=C2=A0org-agenda-before-write-h= ook '(org-agenda-add-entry-text)
=C2=A0org-speed-command-hook= '(org-speed-command-default-hook
=C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-babel-s= peed-command-hook)
=C2=A0org-blocker-hook '(org-block-todo-fr= om-children-or-siblings-or-parent)
=C2=A0org-return-follows-link = t
=C2=A0org-babel-pre-tangle-hook '(save-buffer)
= =C2=A0org-occur-hook '(org-first-headline-recenter)
=C2=A0org= -link-file-path-type 'relative
=C2=A0org-metaup-hook '(or= g-babel-load-in-session-maybe)
=C2=A0org-confirm-elisp-link-funct= ion 'yes-or-no-p
=C2=A0org-clock-out-hook '(org-clock-rem= ove-empty-clock-drawer)
=C2=A0org-enforce-todo-dependencies t
=C2=A0org-mode-hook '(#[nil "\300\301\302\303\304$\207"= ;
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0[org-add-hook change-major-mode-hook org-show-block-all
=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 append l= ocal]
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A05]
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0#[nil "\300\301\302\303\304$\207"
=C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0[org-add-hook ch= ange-major-mode-hook
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-babel-show-result-all append local]
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A05]<= /div>
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0org= -babel-result-hide-spec org-babel-hide-all-hashes)
=C2=A0org-cloc= k-into-drawer 3
=C2=A0org-metadown-hook '(org-babel-pop-to-se= ssion-maybe)
=C2=A0org-agenda-files '("~/notes/onto-alliance.org" "~/notes/ODA= SE-src.org"
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 "~/notes/notes.org<= /a>")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0org-src-mode-configure-edit-buffer)

--001a114009da46f1230532021edb--