emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: (org-clock-in 4) fails from non-Org buffer due to nil org-compl


From: Robert Irelan
Subject: [O] 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/)]
Date: Mon, 16 Jul 2018 15:52:01 -0700

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))
  address@hidden(#<subr
call-interactively> org-clock-in record nil)
  apply(address@hidden #<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))
  address@hidden(#<subr
call-interactively> counsel-M-x nil nil)
  apply(address@hidden #<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
address@hidden



reply via email to

[Prev in Thread] Current Thread [Next in Thread]