* Bug: (org-clock-in 4) fails from non-Org buffer due to nil org-complex-heading-regexp [9.1.13 (9.1.13-elpaplus @ ~/.emacs.d/elpa/org-plus-contrib-20180702/)]
@ 2018-07-16 22:52 Robert Irelan
2018-07-17 8:55 ` Nicolas Goaziou
0 siblings, 1 reply; 2+ messages in thread
From: Robert Irelan @ 2018-07-16 22:52 UTC (permalink / raw)
To: Org-mode
How to reproduce:
1. Clock into default task.
2. Switch to non-Org buffer (I used `*scratch*`).
3. Type C-u M-x org-clock-info
4. Type d to clock into default task (which is located in a buffer
that's part of my agenda).
Clocking in will then fail with the attached backtrace. It appears that
this is happening due to a missing value for the variable
`org-complex-heading-regexp`. Clocking in from an Org mode buffer
works. I'd expect that org-clock-in would attempt to temporarily switch
to that buffer to correctly set these buffer-local variables.
Backtrace:
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
looking-at(nil)
org-heading-components()
org-clock-in((4))
funcall-interactively(org-clock-in (4))
#<subr call-interactively>(org-clock-in record nil)
apply(#<subr call-interactively> org-clock-in (record nil))
call-interactively@ido-cr+-record-current-command(#<subr
call-interactively> org-clock-in record nil)
apply(call-interactively@ido-cr+-record-current-command #<subr
call-interactively> (org-clock-in record nil))
call-interactively(org-clock-in record nil)
command-execute(org-clock-in record)
#f(compiled-function (cmd) #<bytecode 0x136de5d>)("org-clock-in")
ivy-call()
ivy-read("C-u M-x " ("bh/punch-in" "org-clock-in"
"toggle-debug-on-error" "org-reload" ...) :predicate nil
:require-match t :history counsel-M-x-history :action
#f(compiled-function (cmd) #<bytecode 0x136de5d>) :sort nil :keymap
(keymap (67108908 . counsel--info-lookup-symbol) (67108910 .
counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
counsel-M-x()
funcall-interactively(counsel-M-x)
#<subr call-interactively>(counsel-M-x nil nil)
apply(#<subr call-interactively> counsel-M-x (nil nil))
call-interactively@ido-cr+-record-current-command(#<subr
call-interactively> counsel-M-x nil nil)
apply(call-interactively@ido-cr+-record-current-command #<subr
call-interactively> (counsel-M-x nil nil))
call-interactively(counsel-M-x nil nil)
command-execute(counsel-M-x)
Emacs : GNU Emacs 26.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.22.24), modified by Debian
Package: Org mode version 9.1.13 (9.1.13-elpaplus @
~/.emacs.d/elpa/org-plus-contrib-20180702/)
current state:
==============
(setq
org-ref-notes-directory "~/Documents/org/home-org"
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-refile-target-verify-function 'bh/verify-refile-target
org-after-todo-state-change-hook
'(org-buganizer-after-todo-state-change-hook org-clock-out-if-current)
org-columns-default-format "%60ITEM(Task) %10Effort(Effort){:}
%10CLOCKSUM %10CLOCKSUM_T"
org-drill-adjust-intervals-for-early-and-late-repetitions-p t
org-agenda-sticky t
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-protocol-default-template-key "p"
org-global-properties '(("Effort_ALL" . "0:05 0:10 0:15 0:30 0:45
1:00 2:00 3:00 4:00 5:00 6:00 8:00")
("SYTLE_ALL" . "habit"))
org-clock-out-hook '(org-clock-remove-empty-clock-drawer bh/clock-out-maybe)
org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
org-pretty-entities t
org-enforce-todo-dependencies t
org-drill-right-cloze-delimiter "|!"
org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
(insert (format "cite:%s\n"
(org-entry-get (point) "Custom_ID"))))
)
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-special-ctrl-a/e t
org-agenda-files "~/.emacs.d/agenda_files"
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-clock-report-include-clocking-task t
org-log-redeadline 'time
org-ref-pdf-directory "~/Documents/org/home-org/lib/"
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-id-link-to-org-use-id t
org-mode-hook '(org-ref-org-menu org-clock-load
#[0 "\300\301\302\303\304$\207" [add-hook
change-major-mode-hook org-show-block-all append local] 5]
#[0 "\300\301\302\303\304$\207"
[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-eldoc-load)
org-clock-persist t
org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-outline-path-complete-in-steps nil
org-archive-hook '(org-attach-archive-delete-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-startup-indented t
org-clock-history-length 23
org-ref-clean-bibtex-key-function '(lambda (key)
(replace-regexp-in-string ":" "" key))
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-clock-frame-title-format '("" "%b - " org-mode-line-string)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
org-adapt-indentation nil
org-log-reschedule 'time
org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
org-agenda-text-search-extra-files '(agenda-archives
"~/Documents/org/home-org/notes.org")
org-babel-pre-tangle-hook '(save-buffer)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-ref-bibliography-notes "~/Documents/org/home-org/index.org"
org-ref-clean-bibtex-entry-hook '(org-ref-bibtex-format-url-if-doi
orcb-key-comma org-ref-replace-nonascii orcb-&
orcb-% org-ref-title-case-article
orcb-clean-year orcb-key orcb-clean-doi
orcb-clean-pages orcb-check-journal
org-ref-sort-bibtex-entry)
org-log-done 'time
org-agenda-skip-deadline-prewarning-if-scheduled t
org-link-abbrev-alist '(("BUG" . "http://b/%s") ("CL" . "http://cl/%s"))
org-ref-insert-label-function 'org-ref-helm-insert-label-link
org-font-lock-hook '(org-inlinetask-fontify)
org-ref-open-pdf-function 'org-ref-open-pdf-at-point
org-clock-in-resume t
org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
org-clock-x11idle-program-name "/usr/bin/xprintidle"
org-agenda-span 1
org-ref-open-notes-function '(lambda nil (org-show-entry)
(outline-show-branches) (outline-show-children)
(org-cycle (quote (64))) (recenter-top-bottom 0))
org-occur-hook '(org-first-headline-recenter)
org-export-before-processing-hook '(gsc/drill-cloze-removal)
org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
org-ref-insert-link-function 'org-ref-helm-insert-cite-link
org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
org-pomodoro-tick-hook '(my-org-pomodoro-tick-current-task-reminder)
org-pomodoro-ticking-sound
"~/.emacs.d/elpa/org-pomodoro-20171108.1314/resources/tick.wav"
org-ctrl-c-ctrl-c-hook '(air-org-set-tags-ctrl-c-ctrl-c-hook)
org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t))
("WAITING" ("WAITING" . t))
("HOLD" ("WAITING") ("HOLD" . t))
(done ("WAITING") ("HOLD"))
("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
("DONE" ("WAITING") ("CANCELLED") ("HOLD")))
org-indirect-buffer-display 'current-window
org-cycle-hook '(org-inlinetask-hide-tasks
org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
(sequence "WAITING(w@/!)" "HOLD(h@/!)" "|"
"CANCELLED(c@/!)" "PHONE" "MEETING"))
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-capture-before-finalize-hook '(org-gcal--capture-post)
org-ref-default-bibliography '("~/Documents/org/home-org/index.bib")
org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
org-pomodoro-break-finished-hook '(my-org-pomodoro-break-finished-notify-hook)
org-refile-allow-creating-parent-nodes 'confirm
org-export-async-init-file "~/.emacs.d/org-async-init.el"
org-refile-use-outline-path 'buffer-name
org-clock-sound "~/.emacs.d/Japanese Temple Bell
Small-SoundBible.com-113624364.wav"
org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification)
org-confirm-shell-link-function 'yes-or-no-p
org-stuck-projects '("TODO={TODO\\|NEXT}-HOLD-CANCELLED-REFILE"
("NEXT" "HOLD") nil "")
org-agenda-skip-scheduled-if-done t
org-latex-format-headline-function 'org-latex-format-headline-default-function
org-drill-learn-fraction 0.3
org-pomodoro-long-break-finished-hook
'(my-org-pomodoro-long-break-finished-punch-out)
org-pomodoro-finished-sound
"~/.emacs.d/elpa/org-pomodoro-20171108.1314/resources/bell.wav"
org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
("NEXT" :foreground "blue" :weight bold)
("DONE" :foreground "forest green" :weight bold)
("WAITING" :foreground "orange" :weight
bold) ("HOLD" :foreground "magenta" :weight bold)
("CANCELLED" :foreground "forest green" :weight bold)
("MEETING" :foreground "forest green" :weight bold)
("PHONE" :foreground "forest green" :weight bold))
org-clock-idle-time 15
org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-extend-today-until 4
org-pomodoro-start-sound
"~/.emacs.d/elpa/org-pomodoro-20171108.1314/resources/bell.wav"
org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
org-clock-in-switch-to-state 'bh/clock-in-to-next
org-agenda-auto-exclude-function 'my-org-auto-exclude-function
org-html-format-headline-function 'org-html-format-headline-default-function
org-clock-in-prepare-hook '(my-org-mode-ask-effort)
org-clock-out-remove-zero-time-clocks t
org-pomodoro-finished-hook '(my-org-pomodoro-finished-create-break-end-alarm
my-org-pomodoro-finished-clock-in-break-hook
my-org-pomodoro-finished-caffeinate
my-org-pomodoro-finished-lock-screen
my-org-pomodoro-finished-notify-hook)
org-ref-cite-onclick-function 'org-ref-cite-click-helm
org-use-sub-superscripts '{}
org-agenda-custom-commands '(("A" "Archivable tasks" tags "-REFILE"
((org-agenda-skip-function (function
bh/skip-non-archivable-tasks))
(org-tags-match-list-sublevels nil)
(org-agenda-archives-mode nil))
)
("D" "Like d but include all TODOs (slow)"
((tags "PRIORITY=\"A\""
((org-agenda-skip-function
(quote (org-agenda-skip-entry-if
(quote todo) (quote done))))
(org-agenda-overriding-header
"High-priority unfinished tasks:"))
)
(agenda "" ((org-agenda-ndays 1)
(org-agenda-overriding-header "Schedule")))
(alltodo ""
((org-agenda-skip-function
(quote
(or
(air-org-skip-subtree-if-habit) (air-org-skip-subtree-if-priority 65)
(org-agenda-skip-if nil (quote
(scheduled deadline))))
)
)
(org-agenda-overriding-header "ALL
normal priority tasks:"))
)
)
((org-agenda-compact-blocks t)))
("d" "Daily agenda with high-priority
items isolated (slow)"
((tags "PRIORITY=\"A\""
((org-agenda-skip-function
(quote (org-agenda-skip-entry-if
(quote todo) (quote done))))
(org-agenda-overriding-header
"High-priority unfinished tasks:"))
)
(agenda "" ((org-agenda-ndays 1)
(org-agenda-overriding-header "Schedule"))))
((org-agenda-compact-blocks t)))
("R" "Week in review" agenda ""
((org-agenda-span (quote week)
(org-agenda-start-on-weekday 0)
(org-agenda-overriding-header "Week in Review")
(org-agenda-files
(let ((org-agenda-files
org-timeline-files) (org-agenda-files nil (quote ifmode)))))
(org-agenda-start-with-log-mode t)
(org-agenda-log-mode-items (quote
(clock state closed)))
(org-agenda-archives-mode t))
)
)
("Q/" "Archive occur"
(lambda (unused)
(let*
((tmp
(if (boundp (quote
org-agenda-text-search-extra-files))
org-agenda-text-search-extra-files
(quote nil))
)
(org-agenda-text-search-extra-files
(cond ((null tmp) (quote (agenda-archives)))
((equal (car tmp) (quote
agenda-archives)) tmp)
(t (cons (quote agenda-archives) tmp)))
)
)
(call-interactively (quote
org-occur-in-agenda-files)))
)
"")
("Q" . "Custom queries")
("u" "Unscheduled TODOs" todo ""
((org-agenda-skip-function
(quote
(org-agenda-skip-entry-if (quote
scheduled) (quote deadline) (quote regexp) "\n]+>")
)
)
(org-agenda-overriding-header
"Unscheduled TODO entries: ")
(org-agenda-sorting-strategy (quote
(time-down))))
)
("n" "Agenda and all TODOs" ((agenda "")
(alltodo)))
("n" "Agenda and all TODOs" ((agenda "")
(alltodo ""))))
org-ref-notes-function 'org-ref-notes-function-one-file
org-clock-clocked-in-display 'frame-title
org-drill-add-random-noise-to-intervals-p t
org-pomodoro-short-break-finished-hook
'(my-org-pomodoro-short-break-finished-punch-in)
org-pomodoro-short-break-sound
"~/.emacs.d/elpa/org-pomodoro-20171108.1314/resources/bell.wav"
org-agenda-skip-deadline-if-done t
org-drill-left-cloze-delimiter "!|"
org-drill-scope 'agenda-with-archives
org-agenda-todo-ignore-scheduled 'future
org-agenda-start-on-weekday nil
org-pomodoro-long-break-sound
"~/.emacs.d/elpa/org-pomodoro-20171108.1314/resources/bell_multiple.wav"
org-list-allow-alphabetical t
org-clock-persist-query-resume nil
)
--
Robert Irelan
rirelan@gmail.com
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Bug: (org-clock-in 4) fails from non-Org buffer due to nil org-complex-heading-regexp [9.1.13 (9.1.13-elpaplus @ ~/.emacs.d/elpa/org-plus-contrib-20180702/)]
2018-07-16 22:52 Bug: (org-clock-in 4) fails from non-Org buffer due to nil org-complex-heading-regexp [9.1.13 (9.1.13-elpaplus @ ~/.emacs.d/elpa/org-plus-contrib-20180702/)] Robert Irelan
@ 2018-07-17 8:55 ` Nicolas Goaziou
0 siblings, 0 replies; 2+ messages in thread
From: Nicolas Goaziou @ 2018-07-17 8:55 UTC (permalink / raw)
To: Robert Irelan; +Cc: Org-mode
Hello,
Robert Irelan <rirelan@gmail.com> writes:
> How to reproduce:
>
> 1. Clock into default task.
> 2. Switch to non-Org buffer (I used `*scratch*`).
> 3. Type C-u M-x org-clock-info
> 4. Type d to clock into default task (which is located in a buffer
> that's part of my agenda).
>
> Clocking in will then fail with the attached backtrace. It appears that
> this is happening due to a missing value for the variable
> `org-complex-heading-regexp`. Clocking in from an Org mode buffer
> works. I'd expect that org-clock-in would attempt to temporarily switch
> to that buffer to correctly set these buffer-local variables.
>
> Backtrace:
>
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> looking-at(nil)
> org-heading-components()
> org-clock-in((4))
Fixed. Thank you.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2018-07-17 8:56 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-07-16 22:52 Bug: (org-clock-in 4) fails from non-Org buffer due to nil org-complex-heading-regexp [9.1.13 (9.1.13-elpaplus @ ~/.emacs.d/elpa/org-plus-contrib-20180702/)] Robert Irelan
2018-07-17 8:55 ` 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).