From mboxrd@z Thu Jan 1 00:00:00 1970 From: Robert Irelan Subject: 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 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:43275) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ffCLo-0007vs-By for emacs-orgmode@gnu.org; Mon, 16 Jul 2018 18:52:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ffCLm-0007s9-7U for emacs-orgmode@gnu.org; Mon, 16 Jul 2018 18:52:16 -0400 Received: from mail-oi0-x22e.google.com ([2607:f8b0:4003:c06::22e]:46467) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ffCLl-0007ro-VP for emacs-orgmode@gnu.org; Mon, 16 Jul 2018 18:52:14 -0400 Received: by mail-oi0-x22e.google.com with SMTP id y207-v6so77979819oie.13 for ; Mon, 16 Jul 2018 15:52:13 -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: 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)) #(org-clock-in record nil) apply(# org-clock-in (record nil)) call-interactively@ido-cr+-record-current-command(# org-clock-in record nil) apply(call-interactively@ido-cr+-record-current-command # (org-clock-in record nil)) call-interactively(org-clock-in record nil) command-execute(org-clock-in record) #f(compiled-function (cmd) #)("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) #) :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) #(counsel-M-x nil nil) apply(# counsel-M-x (nil nil)) call-interactively@ido-cr+-record-current-command(# counsel-M-x nil nil) apply(call-interactively@ido-cr+-record-current-command # (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