From mboxrd@z Thu Jan 1 00:00:00 1970 From: Yichao Woo Subject: Re: Bug: clock table report hang when using :tags [8.2.10 (release_8.2.10 @ c:/Program Files/emacs/share/emacs/24.5/lisp/org/)] Date: Tue, 16 Aug 2016 09:46:27 +0800 Message-ID: References: <87h9awb7pc.fsf@saiph.selenimh> <87k2fiukuk.fsf@saiph.selenimh> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a1142e6b87ec2b3053a2684c8 Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44859) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bZTSg-0002bS-6n for emacs-orgmode@gnu.org; Mon, 15 Aug 2016 21:46:43 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bZTSa-0002w5-K9 for emacs-orgmode@gnu.org; Mon, 15 Aug 2016 21:46:38 -0400 Received: from mail-oi0-x22d.google.com ([2607:f8b0:4003:c06::22d]:34538) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bZTSa-0002vp-7H for emacs-orgmode@gnu.org; Mon, 15 Aug 2016 21:46:32 -0400 Received: by mail-oi0-x22d.google.com with SMTP id l203so81748098oib.1 for ; Mon, 15 Aug 2016 18:46:30 -0700 (PDT) In-Reply-To: <87k2fiukuk.fsf@saiph.selenimh> 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: Yichao Woo , emacs-orgmode@gnu.org --001a1142e6b87ec2b3053a2684c8 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Here is the Error trace I got with Org uncompiled Debugger entered--Lisp error: (quit) (save-restriction (widen) (end-of-line) (if (re-search-backward org-outline-regexp-bol nil t) (1- (- (match-end 0) (match-beginning 0))) 0)) (save-excursion (save-restriction (widen) (end-of-line) (if (re-search-backward org-outline-regexp-bol nil t) (1- (- (match-end 0) (match-beginning 0))) 0))) org-outline-level() outline-up-heading(1 t) (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion t)) (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion t))) (unwind-protect (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion t))) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion t))) (set-match-data save-match-data-internal (quote evaporate)))) (save-excursion (let ((save-match-data-internal (match-data))) (unwind-protect (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion t))) (set-match-data save-match-data-internal (quote evaporate))))) (if headline-filter (save-excursion (let ((save-match-data-internal (match-data))) (unwind-protect (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion t))) (set-match-data save-match-data-internal (quote evaporate)))))) (progn (if headline-included (let* ((l 0) (--cl-var-- level)) (while (<=3D l --cl-var--) (aset ltimes l (+ (aref ltimes l) t1)) (setq l (+ l 1))) nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time) (if headline-filter (save-excursion (let ((save-match-data-internal (match-data))) (unwind-protect (progn (while (> ... 1) (outline-up-heading 1 t) (put-text-property ... ... :org-clock-force-headline-inclusion t))) (set-match-data save-match-data-internal (quote evaporate))))))) (if (or headline-included headline-forced) (progn (if headline-included (let* ((l 0) (--cl-var-- level)) (while (<=3D l --cl-var--) (aset ltimes l (+ (aref ltimes l) t1)) (setq l (+ l 1))) nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time) (if headline-filter (save-excursion (let ((save-match-data-internal (match-data))) (unwind-protect (progn (while ... ... ...)) (set-match-data save-match-data-internal (quote evaporate)))))))) (progn (if (or headline-included headline-forced) (progn (if headline-included (let* ((l 0) (--cl-var-- level)) (while (<=3D l --cl-var--) (aset ltimes l (+ ... t1)) (setq l (+ l 1))) nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time) (if headline-filter (save-excursion (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))))))) (setq t1 0) (let* ((l level) (--cl-var-- (1- lmax))) (while (<=3D l --cl-var--) (aset ltimes l 0) (setq l (+ l 1))) nil)) (if (or (> t1 0) (> (aref ltimes level) 0)) (progn (if (or headline-included headline-forced) (progn (if headline-included (let* ((l 0) (--cl-var-- level)) (while (<=3D l --cl-var--) (aset ltimes l ...) (setq l ...)) nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time) (if headline-filter (save-excursion (let (...) (unwind-protect ... ...)))))) (setq t1 0) (let* ((l level) (--cl-var-- (1- lmax))) (while (<=3D l --cl-var--) (aset ltimes l 0) (setq l (+ l 1))) nil))) (let* ((headline-forced (get-text-property (point) :org-clock-force-headline-inclusion)) (headline-included (or (null headline-filter) (save-excursion (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))))))) (setq level (- (match-end 1) (match-beginning 1))) (if (>=3D level lmax) (progn (setq ltimes (vconcat ltimes (make-vector lmax 0)) lmax (* 2 lmax)))) (if (or (> t1 0) (> (aref ltimes level) 0)) (progn (if (or headline-included headline-forced) (progn (if headline-included (let* (... ...) (while ... ... ...) nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time) (if headline-filter (save-excursion (let ... ...))))) (setq t1 0) (let* ((l level) (--cl-var-- (1- lmax))) (while (<=3D l --cl-var--) (aset ltimes l 0) (setq l (+ l 1))) nil)))) (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (org-float-time (apply (quote encode-time) (org-parse-time-string ts))) te (org-float-time (apply (quote encode-time) (org-parse-time-string te))) ts (if tstart (max ts tstart) ts) te (if tend (min te tend) te) dt (- te ts) t1 (if (> dt 0) (+ t1 (floor (/ dt 60))) t1))) ((match-end 4) (setq t1 (+ t1 (string-to-number (match-string 5)) (* 60 (string-to-number (match-string 4)))))) (t (if (and org-clock-report-include-clocking-task (equal (org-clocking-buffer) (current-buffer)) (equal (marker-position org-clock-hd-marker) (point)) tstart tend (>=3D (org-float-time org-clock-start-time) tstart) (<=3D (org-float-time org-clock-start-time) tend)) (progn (let ((time (floor ... 60))) (setq t1 (+ t1 time))))) (let* ((headline-forced (get-text-property (point) :org-clock-force-headline-inclusion)) (headline-included (or (null headline-filter) (save-excursion (let ... ...))))) (setq level (- (match-end 1) (match-beginning 1))) (if (>=3D level lmax) (progn (setq ltimes (vconcat ltimes (make-vector lmax 0)) lmax (* 2 lmax)))) (if (or (> t1 0) (> (aref ltimes level) 0)) (progn (if (or headline-included headline-forced) (progn (if headline-included ...) (setq time ...) (goto-char ...) (put-text-property ... ... ... time) (if headline-filter ...))) (setq t1 0) (let* ((l level) (--cl-var-- ...)) (while (<=3D l --cl-var--) (aset ltimes l 0) (setq l ...)) nil)))))) (while (re-search-backward re nil t) (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (org-float-time (apply (quote encode-time) (org-parse-time-string ts))) te (org-float-time (apply (quote encode-time) (org-parse-time-string te))) ts (if tstart (max ts tstart) ts) te (if tend (min te tend) te) dt (- te ts) t1 (if (> dt 0) (+ t1 (floor (/ dt 60))) t1))) ((match-end 4) (setq t1 (+ t1 (string-to-number (match-string 5)) (* 60 (string-to-number (match-string 4)))))) (t (if (and org-clock-report-include-clocking-task (equal (org-clocking-buffer) (current-buffer)) (equal (marker-position org-clock-hd-marker) (point)) tstart tend (>=3D (org-float-time org-clock-start-time) tstart) (<=3D (org-float-time org-clock-start-time) tend)) (progn (let ((time ...)) (setq t1 (+ t1 time))))) (let* ((headline-forced (get-text-property (point) :org-clock-force-headline-inclusion)) (headline-included (or (null headline-filter) (save-excursion ...)))) (setq level (- (match-end 1) (match-beginning 1))) (if (>=3D level lmax) (progn (setq ltimes (vconcat ltimes ...) lmax (* 2 lmax)))) (if (or (> t1 0) (> (aref ltimes level) 0)) (progn (if (or headline-included headline-forced) (progn ... ... ... ... ...)) (setq t1 0) (let* (... ...) (while ... ... ...) nil))))))) (save-excursion (goto-char (point-max)) (while (re-search-backward re nil t) (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (org-float-time (apply (quote encode-time) (org-parse-time-string ts))) te (org-float-time (apply (quote encode-time) (org-parse-time-string te))) ts (if tstart (max ts tstart) ts) te (if tend (min te tend) te) dt (- te ts) t1 (if (> dt 0) (+ t1 (floor ...)) t1))) ((match-end 4) (setq t1 (+ t1 (string-to-number (match-string 5)) (* 60 (string-to-number ...))))) (t (if (and org-clock-report-include-clocking-task (equal (org-clocking-buffer) (current-buffer)) (equal (marker-position org-clock-hd-marker) (point)) tstart tend (>=3D (org-float-time org-clock-start-time) tstart) (<=3D (org-float-time org-clock-start-time) tend)) (progn (let (...) (setq t1 ...)))) (let* ((headline-forced (get-text-property ... :org-clock-force-headline-inclusion)) (headline-included (or ... ...))) (setq level (- (match-end 1) (match-beginning 1))) (if (>=3D level lmax) (progn (setq ltimes ... lmax ...))) (if (or (> t1 0) (> ... 0)) (progn (if ... ...) (setq t1 0) (let* ... ... nil))))))) (setq org-clock-file-total-minutes (aref ltimes 0))) (let* ((re (concat "^\\(\\*+\\)[ ]\\|^[ ]*" org-clock-string "[ ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[ ]+\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltimes (make-vector lmax 0)) (t1 0) (level 0) ts te dt time) (if (stringp tstart) (setq tstart (org-time-string-to-seconds tstart))) (if (stringp tend) (setq tend (org-time-string-to-seconds tend))) (if (consp tstart) (setq tstart (org-float-time tstart))) (if (consp tend) (setq tend (org-float-time tend))) (remove-text-properties (point-min) (point-max) (cons (or propname :org-clock-minutes) (quote (t :org-clock-force-headline-inclusion t)))) (save-excursion (goto-char (point-max)) (while (re-search-backward re nil t) (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (org-float-time (apply ... ...)) te (org-float-time (apply ... ...)) ts (if tstart (max ts tstart) ts) te (if tend (min te tend) te) dt (- te ts) t1 (if (> dt 0) (+ t1 ...) t1))) ((match-end 4) (setq t1 (+ t1 (string-to-number ...) (* 60 ...)))) (t (if (and org-clock-report-include-clocking-task (equal ... ...) (equal ... ...) tstart tend (>=3D ... tstart) (<=3D ... tend)) (progn (let ... ...))) (let* ((headline-forced ...) (headline-included ...)) (setq level (- ... ...)) (if (>=3D level lmax) (progn ...)) (if (or ... ...) (progn ... ... ...)))))) (setq org-clock-file-total-minutes (aref ltimes 0)))) (progn (let* ((re (concat "^\\(\\*+\\)[ ]\\|^[ ]*" org-clock-string "[ ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[ ]+\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltimes (make-vector lmax 0)) (t1 0) (level 0) ts te dt time) (if (stringp tstart) (setq tstart (org-time-string-to-seconds tstart))) (if (stringp tend) (setq tend (org-time-string-to-seconds tend))) (if (consp tstart) (setq tstart (org-float-time tstart))) (if (consp tend) (setq tend (org-float-time tend))) (remove-text-properties (point-min) (point-max) (cons (or propname :org-clock-minutes) (quote (t :org-clock-force-headline-inclusion t)))) (save-excursion (goto-char (point-max)) (while (re-search-backward re nil t) (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (org-float-time ...) te (org-float-time ...) ts (if tstart ... ts) te (if tend ... te) dt (- te ts) t1 (if ... ... t1))) ((match-end 4) (setq t1 (+ t1 ... ...))) (t (if (and org-clock-report-include-clocking-task ... ... tstart tend ... ...) (progn ...)) (let* (... ...) (setq level ...) (if ... ...) (if ... ...))))) (setq org-clock-file-total-minutes (aref ltimes 0))))) (unwind-protect (progn (let* ((re (concat "^\\(\\*+\\)[ ]\\|^[ ]*" org-clock-string "[ ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[ ]+\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltimes (make-vector lmax 0)) (t1 0) (level 0) ts te dt time) (if (stringp tstart) (setq tstart (org-time-string-to-seconds tstart))) (if (stringp tend) (setq tend (org-time-string-to-seconds tend))) (if (consp tstart) (setq tstart (org-float-time tstart))) (if (consp tend) (setq tend (org-float-time tend))) (remove-text-properties (point-min) (point-max) (cons (or propname :org-clock-minutes) (quote (t :org-clock-force-headline-inclusion t)))) (save-excursion (goto-char (point-max)) (while (re-search-backward re nil t) (cond ((match-end 2) (setq ts ... te ... ts ... te ... ts ... te ... dt ... t1 ...)) ((match-end 4) (setq t1 ...)) (t (if ... ...) (let* ... ... ... ...)))) (setq org-clock-file-total-minutes (aref ltimes 0))))) (if modified nil (restore-buffer-modified-p nil))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (let* ((re (concat "^\\(\\*+\\)[ ]\\|^[ ]*" org-clock-string "[ ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[ ]+\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltimes (make-vector lmax 0)) (t1 0) (level 0) ts te dt time) (if (stringp tstart) (setq tstart (org-time-string-to-seconds tstart))) (if (stringp tend) (setq tend (org-time-string-to-seconds tend))) (if (consp tstart) (setq tstart (org-float-time tstart))) (if (consp tend) (setq tend (org-float-time tend))) (remove-text-properties (point-min) (point-max) (cons (or propname :org-clock-minutes) (quote (t :org-clock-force-headline-inclusion t)))) (save-excursion (goto-char (point-max)) (while (re-search-backward re nil t) (cond (... ...) (... ...) (t ... ...))) (setq org-clock-file-total-minutes (aref ltimes 0))))) (if modified nil (restore-buffer-modified-p nil)))) org-clock-sum(nil nil (lambda nil (let* ((tags-list (org-get-tags-at)) (org-scanner-tags tags-list) (org-trust-scanner-tags t)) (eval matcher)))) (save-excursion (org-clock-sum ts te (if (null matcher) nil (function (lambda nil (let* ((tags-list ...) (org-scanner-tags tags-list) (org-trust-scanner-tags t)) (eval matcher)))))) (goto-char (point-min)) (setq st t) (while (or (and (bobp) (prog1 st (setq st nil)) (get-text-property (point) :org-clock-minutes) (setq p (point-min))) (setq p (next-single-property-change (point) :org-clock-minutes))) (goto-char p) (if (setq time (get-text-property p :org-clock-minutes)) (progn (save-excursion (beginning-of-line 1) (if (and (looking-at "\\(\\*+\\)[ ]+\\(.*?\\)\\([ ]+:[[:alnum:]_@#%:]+:\\)?[ ]*$") (setq level ...) (<=3D level maxlevel)) (progn (setq hdl ... tsp ... props ...) (if ... ...))))))) (setq tbl (nreverse tbl)) (list file org-clock-file-total-minutes tbl)) (let* ((maxlevel (or (plist-get params :maxlevel) 3)) (timestamp (plist-get params :timestamp)) (ts (plist-get params :tstart)) (te (plist-get params :tend)) (ws (plist-get params :wstart)) (ms (plist-get params :mstart)) (block (plist-get params :block)) (link (plist-get params :link)) (tags (plist-get params :tags)) (properties (plist-get params :properties)) (inherit-property-p (plist-get params :inherit-props)) todo-only (matcher (if tags (cdr (org-make-tags-matcher tags)))) cc range-text st p time level hdl props tsp tbl) (setq org-clock-file-total-minutes nil) (if block (progn (setq cc (org-clock-special-range block nil t ws ms) ts (car cc) te (nth 1 cc) range-text (nth 2 cc)))) (if (integerp ts) (progn (setq ts (calendar-gregorian-from-absolute ts)))) (if (integerp te) (progn (setq te (calendar-gregorian-from-absolute te)))) (if (and ts (listp ts)) (progn (setq ts (format "%4d-%02d-%02d" (nth 2 ts) (car ts) (nth 1 ts))))) (if (and te (listp te)) (progn (setq te (format "%4d-%02d-%02d" (nth 2 te) (car te) (nth 1 te))))) (if ts (setq ts (org-matcher-time ts))) (if te (setq te (org-matcher-time te))) (save-excursion (org-clock-sum ts te (if (null matcher) nil (function (lambda nil (let* (... ... ...) (eval matcher)))))) (goto-char (point-min)) (setq st t) (while (or (and (bobp) (prog1 st (setq st nil)) (get-text-property (point) :org-clock-minutes) (setq p (point-min))) (setq p (next-single-property-change (point) :org-clock-minutes))) (goto-char p) (if (setq time (get-text-property p :org-clock-minutes)) (progn (save-excursion (beginning-of-line 1) (if (and ... ... ...) (progn ... ...)))))) (setq tbl (nreverse tbl)) (list file org-clock-file-total-minutes tbl))) org-clock-get-table-data(nil (:maxlevel 5 :lang "en" :scope subtree :block nil :wstart 1 :mstart 1 :tstart nil :tend nil :step nil :stepskip0 nil :fileskip0 nil :tags "hello" :emphasize nil :link nil :narrow 40! :indent t :formula nil :timestamp nil :level nil :tcolumns nil :formatter nil :name "clocktable" :indentation-column 0 :content #("\n" 0 1 (fontified t org-category "8aug")))) (cons (org-clock-get-table-data nil params) tbls) (setq tbls (cons (org-clock-get-table-data nil params) tbls)) (save-restriction (org-agenda-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) (cond ((not scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote subtree)) (org-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-heading-safe)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match "^tree\\([0-9]+\\)$" (symbol-name scope))) (setq level (string-to-number (match-string 1 (symbol-name scope)))) (catch (quote exit) (while (org-up-heading-safe) (looking-at org-outline-regexp) (if (<=3D (org-reduced-level ...) level) (throw (quote exit) nil)))) (org-narrow-to-subtree))) (setq tbls (cons (org-clock-get-table-data nil params) tbls))) (if scope-is-list (let* ((files scope) file) (org-agenda-prepare-buffers files) (while (setq file (car-safe (prog1 files (setq files (cdr files))))) (save-current-buffer (set-buffer (find-buffer-visiting file)) (save-excursion (save-restriction (setq tbls (cons ... tbls))))))) (save-restriction (org-agenda-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) (cond ((not scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote subtree)) (org-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-heading-safe)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match "^tree\\([0-9]+\\)$" (symbol-name scope))) (setq level (string-to-number (match-string 1 (symbol-name scope)))) (catch (quote exit) (while (org-up-heading-safe) (looking-at org-outline-regexp) (if (<=3D ... level) (throw ... nil)))) (org-narrow-to-subtree))) (setq tbls (cons (org-clock-get-table-data nil params) tbls)))) (let* ((scope (plist-get params :scope)) (block (plist-get params :block)) (ts (plist-get params :tstart)) (te (plist-get params :tend)) (link (plist-get params :link)) (maxlevel (or (plist-get params :maxlevel) 3)) (ws (plist-get params :wstart)) (ms (plist-get params :mstart)) (step (plist-get params :step)) (timestamp (plist-get params :timestamp)) (formatter (or (plist-get params :formatter) org-clock-clocktable-formatter (quote org-clocktable-write-default))) cc range-text ipos pos one-file-with-archives scope-is-list tbls level) (if block (progn (setq cc (org-clock-special-range block nil t ws ms) ts (car cc) te (nth 1 cc) range-text (nth 2 cc)))) (if step (progn (if (or block (and ts te)) nil (error "Clocktable `:step' can only be used with `:block' or `:tstart,:end'")) (org-clocktable-steps params) (throw (quote exit) nil))) (setq ipos (point)) (setq pos (point)) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope (quote agenda)) (setq scope (org-agenda-files t))) ((eq scope (quote agenda-with-archives)) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope (quote file-with-archives)) (setq scope (and buffer-file-name (org-add-archive-files (list buffer-file-name))) one-file-with-archives t))) (setq scope-is-list (and scope (listp scope))) (if scope-is-list (let* ((files scope) file) (org-agenda-prepare-buffers files) (while (setq file (car-safe (prog1 files (setq files ...)))) (save-current-buffer (set-buffer (find-buffer-visiting file)) (save-excursion (save-restriction (setq tbls ...)))))) (save-restriction (org-agenda-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) (cond ((not scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote subtree)) (org-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-heading-safe)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match "^tree\\([0-9]+\\)$" (symbol-name scope))) (setq level (string-to-number (match-string 1 ...))) (catch (quote exit) (while (org-up-heading-safe) (looking-at org-outline-regexp) (if ... ...))) (org-narrow-to-subtree))) (setq tbls (cons (org-clock-get-table-data nil params) tbls)))) (setq tbls (nreverse tbls)) (setq params (plist-put params :multifile scope-is-list)) (setq params (plist-put params :one-file-with-archives one-file-with-archives)) (funcall formatter ipos tbls params)) (catch (quote exit) (let* ((scope (plist-get params :scope)) (block (plist-get params :block)) (ts (plist-get params :tstart)) (te (plist-get params :tend)) (link (plist-get params :link)) (maxlevel (or (plist-get params :maxlevel) 3)) (ws (plist-get params :wstart)) (ms (plist-get params :mstart)) (step (plist-get params :step)) (timestamp (plist-get params :timestamp)) (formatter (or (plist-get params :formatter) org-clock-clocktable-formatter (quote org-clocktable-write-default))) cc range-text ipos pos one-file-with-archives scope-is-list tbls level) (if block (progn (setq cc (org-clock-special-range block nil t ws ms) ts (car cc) te (nth 1 cc) range-text (nth 2 cc)))) (if step (progn (if (or block (and ts te)) nil (error "Clocktable `:step' can only be used with `:block' or `:tstart,:end'")) (org-clocktable-steps params) (throw (quote exit) nil))) (setq ipos (point)) (setq pos (point)) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope (quote agenda)) (setq scope (org-agenda-files t))) ((eq scope (quote agenda-with-archives)) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope (quote file-with-archives)) (setq scope (and buffer-file-name (org-add-archive-files (list buffer-file-name))) one-file-with-archives t))) (setq scope-is-list (and scope (listp scope))) (if scope-is-list (let* ((files scope) file) (org-agenda-prepare-buffers files) (while (setq file (car-safe (prog1 files ...))) (save-current-buffer (set-buffer (find-buffer-visiting file)) (save-excursion (save-restriction ...))))) (save-restriction (org-agenda-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) (cond ((not scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote subtree)) (org-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-heading-safe)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match "^tree\\([0-9]+\\)$" ...)) (setq level (string-to-number ...)) (catch (quote exit) (while ... ... ...)) (org-narrow-to-subtree))) (setq tbls (cons (org-clock-get-table-data nil params) tbls)))) (setq tbls (nreverse tbls)) (setq params (plist-put params :multifile scope-is-list)) (setq params (plist-put params :one-file-with-archives one-file-with-archives)) (funcall formatter ipos tbls params))) org-dblock-write:clocktable((:name "clocktable" :maxlevel 5 :scope subtree :tags "hello" :indentation-column 0 :content #("\n" 0 1 (fontified t org-category "8aug")))) funcall(org-dblock-write:clocktable (:name "clocktable" :maxlevel 5 :scope subtree :tags "hello" :indentation-column 0 :content #("\n" 0 1 (fontified t org-category "8aug")))) (let* ((win (selected-window)) (pos (point)) (line (org-current-line)) (params (org-prepare-dblock)) (name (plist-get params :name)) (indent (plist-get params :indentation-column)) (cmd (intern (concat "org-dblock-write:" name)))) (message "Updating dynamic block `%s' at line %d..." name line) (funcall cmd params) (message "Updating dynamic block `%s' at line %d...done" name line) (goto-char pos) (if (and indent (> indent 0)) (progn (setq indent (make-string indent 32)) (save-excursion (select-window win) (org-beginning-of-dblock) (forward-line 1) (while (not (looking-at org-dblock-end-re)) (insert indent) (beginning-of-line 2)) (if (looking-at org-dblock-end-re) (progn (and (looking-at "[ ]+") (replace-match "")) (insert indent))))))) (save-excursion (let* ((win (selected-window)) (pos (point)) (line (org-current-line)) (params (org-prepare-dblock)) (name (plist-get params :name)) (indent (plist-get params :indentation-column)) (cmd (intern (concat "org-dblock-write:" name)))) (message "Updating dynamic block `%s' at line %d..." name line) (funcall cmd params) (message "Updating dynamic block `%s' at line %d...done" name line) (goto-char pos) (if (and indent (> indent 0)) (progn (setq indent (make-string indent 32)) (save-excursion (select-window win) (org-beginning-of-dblock) (forward-line 1) (while (not (looking-at org-dblock-end-re)) (insert indent) (beginning-of-line 2)) (if (looking-at org-dblock-end-re) (progn (and ... ...) (insert indent)))))))) org-update-dblock() org-clock-report(nil) #(org-clock-report nil nil) funcall(# org-clock-report nil nil) (with-no-warnings (funcall ad--addoit-function function record-flag keys)= ) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function function record-flag keys))) (let ((ido-ubiquitous-next-override (ido-ubiquitous-get-command-override function))) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function function record-flag keys)))) (ido-ubiquitous-with-override (ido-ubiquitous-get-command-override function) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function function record-flag keys)))) (let (ad-return-value) (ido-ubiquitous-with-override (ido-ubiquitous-get-command-override function) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function function record-flag keys)))) ad-return-value) ad-Advice-call-interactively(# org-clock-report nil nil) apply(ad-Advice-call-interactively # (org-clock-report nil nil)) call-interactively(org-clock-report nil nil) command-execute(org-clock-report) =E2=80=8B On Mon, Aug 15, 2016 at 11:12 PM, Nicolas Goaziou wrote: > Hello, > > Yichao Woo writes: > > > I upgraded from 8.2.10 to 8.3.5, but still get the same result. > > Your upgrade may have failed, i.e., Org is reporting 8.3.5 but uses some > older libraries bundled with Emacs. > > > Have no idea why since I have little knowledge on how to read and debug > > elisp code. > > Try doing M-x toggle-debug-on-quit and reproduce the freeze. Once > frozen, quit with C-g and report the backtrace. Ideally, load Org > uncompiled first (C-u M-x org-reload). > > Regards, > > -- > Nicolas Goaziou > --=20 Best Regards Yichao --001a1142e6b87ec2b3053a2684c8 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable

Here is the Error trace I got with Org unco= mpiled

Debugger entered--Lisp e=
rror: (quit)
  (save-restriction (widen) (end-of-line) (if (re-search-backward org-outli=
ne-regexp-bol nil t) (1- (- (match-end 0) (match-beginning 0))) 0))
  (save-excursion (save-restriction (widen) (end-of-line) (if (re-search-ba=
ckward org-outline-regexp-bol nil t) (1- (- (match-end 0) (match-beginning =
0))) 0)))
  org-outline-level()
  outline-up-heading(1 t)
  (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-tex=
t-property (point) (point-at-eol) :org-clock-force-headline-inclusion t))
  (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 t) (=
put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusio=
n t)))
  (unwind-protect (progn (while (> (funcall outline-level) 1) (outline-u=
p-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock-force-h=
eadline-inclusion t))) (set-match-data save-match-data-internal (quote evap=
orate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (wh=
ile (> (funcall outline-level) 1) (outline-up-heading 1 t) (put-text-pro=
perty (point) (point-at-eol) :org-clock-force-headline-inclusion t))) (set-=
match-data save-match-data-internal (quote evaporate))))
  (save-excursion (let ((save-match-data-internal (match-data))) (unwind-pr=
otect (progn (while (> (funcall outline-level) 1) (outline-up-heading 1 =
t) (put-text-property (point) (point-at-eol) :org-clock-force-headline-incl=
usion t))) (set-match-data save-match-data-internal (quote evaporate)))))
  (if headline-filter (save-excursion (let ((save-match-data-internal (matc=
h-data))) (unwind-protect (progn (while (> (funcall outline-level) 1) (o=
utline-up-heading 1 t) (put-text-property (point) (point-at-eol) :org-clock=
-force-headline-inclusion t))) (set-match-data save-match-data-internal (qu=
ote evaporate))))))
  (progn (if headline-included (let* ((l 0) (--cl-var-- level)) (while (<=
;=3D l --cl-var--) (aset ltimes l (+ (aref ltimes l) t1)) (setq l (+ l 1)))=
 nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put=
-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time=
) (if headline-filter (save-excursion (let ((save-match-data-internal (matc=
h-data))) (unwind-protect (progn (while (> ... 1) (outline-up-heading 1 =
t) (put-text-property ... ... :org-clock-force-headline-inclusion t))) (set=
-match-data save-match-data-internal (quote evaporate)))))))
  (if (or headline-included headline-forced) (progn (if headline-included (=
let* ((l 0) (--cl-var-- level)) (while (<=3D l --cl-var--) (aset ltimes =
l (+ (aref ltimes l) t1)) (setq l (+ l 1))) nil)) (setq time (aref ltimes l=
evel)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at=
-eol) (or propname :org-clock-minutes) time) (if headline-filter (save-excu=
rsion (let ((save-match-data-internal (match-data))) (unwind-protect (progn=
 (while ... ... ...)) (set-match-data save-match-data-internal (quote evapo=
rate))))))))
  (progn (if (or headline-included headline-forced) (progn (if headline-inc=
luded (let* ((l 0) (--cl-var-- level)) (while (<=3D l --cl-var--) (aset =
ltimes l (+ ... t1)) (setq l (+ l 1))) nil)) (setq time (aref ltimes level)=
) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol)=
 (or propname :org-clock-minutes) time) (if headline-filter (save-excursion=
 (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-mat=
ch-data save-match-data-internal ...))))))) (setq t1 0) (let* ((l level) (-=
-cl-var-- (1- lmax))) (while (<=3D l --cl-var--) (aset ltimes l 0) (setq=
 l (+ l 1))) nil))
  (if (or (> t1 0) (> (aref ltimes level) 0)) (progn (if (or headline=
-included headline-forced) (progn (if headline-included (let* ((l 0) (--cl-=
var-- level)) (while (<=3D l --cl-var--) (aset ltimes l ...) (setq l ...=
)) nil)) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (p=
ut-text-property (point) (point-at-eol) (or propname :org-clock-minutes) ti=
me) (if headline-filter (save-excursion (let (...) (unwind-protect ... ...)=
))))) (setq t1 0) (let* ((l level) (--cl-var-- (1- lmax))) (while (<=3D =
l --cl-var--) (aset ltimes l 0) (setq l (+ l 1))) nil)))
  (let* ((headline-forced (get-text-property (point) :org-clock-force-headl=
ine-inclusion)) (headline-included (or (null headline-filter) (save-excursi=
on (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-m=
atch-data save-match-data-internal ...))))))) (setq level (- (match-end 1) =
(match-beginning 1))) (if (>=3D level lmax) (progn (setq ltimes (vconcat=
 ltimes (make-vector lmax 0)) lmax (* 2 lmax)))) (if (or (> t1 0) (> =
(aref ltimes level) 0)) (progn (if (or headline-included headline-forced) (=
progn (if headline-included (let* (... ...) (while ... ... ...) nil)) (setq=
 time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-proper=
ty (point) (point-at-eol) (or propname :org-clock-minutes) time) (if headli=
ne-filter (save-excursion (let ... ...))))) (setq t1 0) (let* ((l level) (-=
-cl-var-- (1- lmax))) (while (<=3D l --cl-var--) (aset ltimes l 0) (setq=
 l (+ l 1))) nil))))
  (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (or=
g-float-time (apply (quote encode-time) (org-parse-time-string ts))) te (or=
g-float-time (apply (quote encode-time) (org-parse-time-string te))) ts (if=
 tstart (max ts tstart) ts) te (if tend (min te tend) te) dt (- te ts) t1 (=
if (> dt 0) (+ t1 (floor (/ dt 60))) t1))) ((match-end 4) (setq t1 (+ t1=
 (string-to-number (match-string 5)) (* 60 (string-to-number (match-string =
4)))))) (t (if (and org-clock-report-include-clocking-task (equal (org-cloc=
king-buffer) (current-buffer)) (equal (marker-position org-clock-hd-marker)=
 (point)) tstart tend (>=3D (org-float-time org-clock-start-time) tstart=
) (<=3D (org-float-time org-clock-start-time) tend)) (progn (let ((time =
(floor ... 60))) (setq t1 (+ t1 time))))) (let* ((headline-forced (get-text=
-property (point) :org-clock-force-headline-inclusion)) (headline-included =
(or (null headline-filter) (save-excursion (let ... ...))))) (setq level (-=
 (match-end 1) (match-beginning 1))) (if (>=3D level lmax) (progn (setq =
ltimes (vconcat ltimes (make-vector lmax 0)) lmax (* 2 lmax)))) (if (or (&g=
t; t1 0) (> (aref ltimes level) 0)) (progn (if (or headline-included hea=
dline-forced) (progn (if headline-included ...) (setq time ...) (goto-char =
...) (put-text-property ... ... ... time) (if headline-filter ...))) (setq =
t1 0) (let* ((l level) (--cl-var-- ...)) (while (<=3D l --cl-var--) (ase=
t ltimes l 0) (setq l ...)) nil))))))
  (while (re-search-backward re nil t) (cond ((match-end 2) (setq ts (match=
-string 2) te (match-string 3) ts (org-float-time (apply (quote encode-time=
) (org-parse-time-string ts))) te (org-float-time (apply (quote encode-time=
) (org-parse-time-string te))) ts (if tstart (max ts tstart) ts) te (if ten=
d (min te tend) te) dt (- te ts) t1 (if (> dt 0) (+ t1 (floor (/ dt 60))=
) t1))) ((match-end 4) (setq t1 (+ t1 (string-to-number (match-string 5)) (=
* 60 (string-to-number (match-string 4)))))) (t (if (and org-clock-report-i=
nclude-clocking-task (equal (org-clocking-buffer) (current-buffer)) (equal =
(marker-position org-clock-hd-marker) (point)) tstart tend (>=3D (org-fl=
oat-time org-clock-start-time) tstart) (<=3D (org-float-time org-clock-s=
tart-time) tend)) (progn (let ((time ...)) (setq t1 (+ t1 time))))) (let* (=
(headline-forced (get-text-property (point) :org-clock-force-headline-inclu=
sion)) (headline-included (or (null headline-filter) (save-excursion ...)))=
) (setq level (- (match-end 1) (match-beginning 1))) (if (>=3D level lma=
x) (progn (setq ltimes (vconcat ltimes ...) lmax (* 2 lmax)))) (if (or (>=
; t1 0) (> (aref ltimes level) 0)) (progn (if (or headline-included head=
line-forced) (progn ... ... ... ... ...)) (setq t1 0) (let* (... ...) (whil=
e ... ... ...) nil)))))))
  (save-excursion (goto-char (point-max)) (while (re-search-backward re nil=
 t) (cond ((match-end 2) (setq ts (match-string 2) te (match-string 3) ts (=
org-float-time (apply (quote encode-time) (org-parse-time-string ts))) te (=
org-float-time (apply (quote encode-time) (org-parse-time-string te))) ts (=
if tstart (max ts tstart) ts) te (if tend (min te tend) te) dt (- te ts) t1=
 (if (> dt 0) (+ t1 (floor ...)) t1))) ((match-end 4) (setq t1 (+ t1 (st=
ring-to-number (match-string 5)) (* 60 (string-to-number ...))))) (t (if (a=
nd org-clock-report-include-clocking-task (equal (org-clocking-buffer) (cur=
rent-buffer)) (equal (marker-position org-clock-hd-marker) (point)) tstart =
tend (>=3D (org-float-time org-clock-start-time) tstart) (<=3D (org-f=
loat-time org-clock-start-time) tend)) (progn (let (...) (setq t1 ...)))) (=
let* ((headline-forced (get-text-property ... :org-clock-force-headline-inc=
lusion)) (headline-included (or ... ...))) (setq level (- (match-end 1) (ma=
tch-beginning 1))) (if (>=3D level lmax) (progn (setq ltimes ... lmax ..=
.))) (if (or (> t1 0) (> ... 0)) (progn (if ... ...) (setq t1 0) (let=
* ... ... nil))))))) (setq org-clock-file-total-minutes (aref ltimes 0)))
  (let* ((re (concat "^\\(\\*+\\)[     ]\\|^[     ]*" org-clock-s=
tring "[     ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[     ]+=
\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltimes (make-vector lmax 0)=
) (t1 0) (level 0) ts te dt time) (if (stringp tstart) (setq tstart (org-ti=
me-string-to-seconds tstart))) (if (stringp tend) (setq tend (org-time-stri=
ng-to-seconds tend))) (if (consp tstart) (setq tstart (org-float-time tstar=
t))) (if (consp tend) (setq tend (org-float-time tend))) (remove-text-prope=
rties (point-min) (point-max) (cons (or propname :org-clock-minutes) (quote=
 (t :org-clock-force-headline-inclusion t)))) (save-excursion (goto-char (p=
oint-max)) (while (re-search-backward re nil t) (cond ((match-end 2) (setq =
ts (match-string 2) te (match-string 3) ts (org-float-time (apply ... ...))=
 te (org-float-time (apply ... ...)) ts (if tstart (max ts tstart) ts) te (=
if tend (min te tend) te) dt (- te ts) t1 (if (> dt 0) (+ t1 ...) t1))) =
((match-end 4) (setq t1 (+ t1 (string-to-number ...) (* 60 ...)))) (t (if (=
and org-clock-report-include-clocking-task (equal ... ...) (equal ... ...) =
tstart tend (>=3D ... tstart) (<=3D ... tend)) (progn (let ... ...)))=
 (let* ((headline-forced ...) (headline-included ...)) (setq level (- ... .=
..)) (if (>=3D level lmax) (progn ...)) (if (or ... ...) (progn ... ... =
...)))))) (setq org-clock-file-total-minutes (aref ltimes 0))))
  (progn (let* ((re (concat "^\\(\\*+\\)[     ]\\|^[     ]*" org-=
clock-string "[     ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[=
     ]+\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltimes (make-vector =
lmax 0)) (t1 0) (level 0) ts te dt time) (if (stringp tstart) (setq tstart =
(org-time-string-to-seconds tstart))) (if (stringp tend) (setq tend (org-ti=
me-string-to-seconds tend))) (if (consp tstart) (setq tstart (org-float-tim=
e tstart))) (if (consp tend) (setq tend (org-float-time tend))) (remove-tex=
t-properties (point-min) (point-max) (cons (or propname :org-clock-minutes)=
 (quote (t :org-clock-force-headline-inclusion t)))) (save-excursion (goto-=
char (point-max)) (while (re-search-backward re nil t) (cond ((match-end 2)=
 (setq ts (match-string 2) te (match-string 3) ts (org-float-time ...) te (=
org-float-time ...) ts (if tstart ... ts) te (if tend ... te) dt (- te ts) =
t1 (if ... ... t1))) ((match-end 4) (setq t1 (+ t1 ... ...))) (t (if (and o=
rg-clock-report-include-clocking-task ... ... tstart tend ... ...) (progn .=
..)) (let* (... ...) (setq level ...) (if ... ...) (if ... ...))))) (setq o=
rg-clock-file-total-minutes (aref ltimes 0)))))
  (unwind-protect (progn (let* ((re (concat "^\\(\\*+\\)[     ]\\|^[  =
   ]*" org-clock-string "[     ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\=
\]\\)\\|=3D>[     ]+\\([0-9]+\\):\\([0-9]+\\)\\)")) (lmax 30) (ltim=
es (make-vector lmax 0)) (t1 0) (level 0) ts te dt time) (if (stringp tstar=
t) (setq tstart (org-time-string-to-seconds tstart))) (if (stringp tend) (s=
etq tend (org-time-string-to-seconds tend))) (if (consp tstart) (setq tstar=
t (org-float-time tstart))) (if (consp tend) (setq tend (org-float-time ten=
d))) (remove-text-properties (point-min) (point-max) (cons (or propname :or=
g-clock-minutes) (quote (t :org-clock-force-headline-inclusion t)))) (save-=
excursion (goto-char (point-max)) (while (re-search-backward re nil t) (con=
d ((match-end 2) (setq ts ... te ... ts ... te ... ts ... te ... dt ... t1 =
...)) ((match-end 4) (setq t1 ...)) (t (if ... ...) (let* ... ... ... ...))=
)) (setq org-clock-file-total-minutes (aref ltimes 0))))) (if modified nil =
(restore-buffer-modified-p nil)))
  (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-=
only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buf=
fer-file-truename) (unwind-protect (progn (let* ((re (concat "^\\(\\*+=
\\)[     ]\\|^[     ]*" org-clock-string "[     ]*\\(?:\\(\\[.*?\=
\]\\)-+\\(\\[.*?\\]\\)\\|=3D>[     ]+\\([0-9]+\\):\\([0-9]+\\)\\)")=
) (lmax 30) (ltimes (make-vector lmax 0)) (t1 0) (level 0) ts te dt time) (=
if (stringp tstart) (setq tstart (org-time-string-to-seconds tstart))) (if =
(stringp tend) (setq tend (org-time-string-to-seconds tend))) (if (consp ts=
tart) (setq tstart (org-float-time tstart))) (if (consp tend) (setq tend (o=
rg-float-time tend))) (remove-text-properties (point-min) (point-max) (cons=
 (or propname :org-clock-minutes) (quote (t :org-clock-force-headline-inclu=
sion t)))) (save-excursion (goto-char (point-max)) (while (re-search-backwa=
rd re nil t) (cond (... ...) (... ...) (t ... ...))) (setq org-clock-file-t=
otal-minutes (aref ltimes 0))))) (if modified nil (restore-buffer-modified-=
p nil))))
  org-clock-sum(nil nil (lambda nil (let* ((tags-list (org-get-tags-at)) (o=
rg-scanner-tags tags-list) (org-trust-scanner-tags t)) (eval matcher))))
  (save-excursion (org-clock-sum ts te (if (null matcher) nil (function (la=
mbda nil (let* ((tags-list ...) (org-scanner-tags tags-list) (org-trust-sca=
nner-tags t)) (eval matcher)))))) (goto-char (point-min)) (setq st t) (whil=
e (or (and (bobp) (prog1 st (setq st nil)) (get-text-property (point) :org-=
clock-minutes) (setq p (point-min))) (setq p (next-single-property-change (=
point) :org-clock-minutes))) (goto-char p) (if (setq time (get-text-propert=
y p :org-clock-minutes)) (progn (save-excursion (beginning-of-line 1) (if (=
and (looking-at "\\(\\*+\\)[     ]+\\(.*?\\)\\([     ]+:[[:alnum:]_@#%=
:]+:\\)?[     ]*$") (setq level ...) (<=3D level maxlevel)) (progn =
(setq hdl ... tsp ... props ...) (if ... ...))))))) (setq tbl (nreverse tbl=
)) (list file org-clock-file-total-minutes tbl))
  (let* ((maxlevel (or (plist-get params :maxlevel) 3)) (timestamp (plist-g=
et params :timestamp)) (ts (plist-get params :tstart)) (te (plist-get param=
s :tend)) (ws (plist-get params :wstart)) (ms (plist-get params :mstart)) (=
block (plist-get params :block)) (link (plist-get params :link)) (tags (pli=
st-get params :tags)) (properties (plist-get params :properties)) (inherit-=
property-p (plist-get params :inherit-props)) todo-only (matcher (if tags (=
cdr (org-make-tags-matcher tags)))) cc range-text st p time level hdl props=
 tsp tbl) (setq org-clock-file-total-minutes nil) (if block (progn (setq cc=
 (org-clock-special-range block nil t ws ms) ts (car cc) te (nth 1 cc) rang=
e-text (nth 2 cc)))) (if (integerp ts) (progn (setq ts (calendar-gregorian-=
from-absolute ts)))) (if (integerp te) (progn (setq te (calendar-gregorian-=
from-absolute te)))) (if (and ts (listp ts)) (progn (setq ts (format "=
%4d-%02d-%02d" (nth 2 ts) (car ts) (nth 1 ts))))) (if (and te (listp t=
e)) (progn (setq te (format "%4d-%02d-%02d" (nth 2 te) (car te) (=
nth 1 te))))) (if ts (setq ts (org-matcher-time ts))) (if te (setq te (org-=
matcher-time te))) (save-excursion (org-clock-sum ts te (if (null matcher) =
nil (function (lambda nil (let* (... ... ...) (eval matcher)))))) (goto-cha=
r (point-min)) (setq st t) (while (or (and (bobp) (prog1 st (setq st nil)) =
(get-text-property (point) :org-clock-minutes) (setq p (point-min))) (setq =
p (next-single-property-change (point) :org-clock-minutes))) (goto-char p) =
(if (setq time (get-text-property p :org-clock-minutes)) (progn (save-excur=
sion (beginning-of-line 1) (if (and ... ... ...) (progn ... ...)))))) (setq=
 tbl (nreverse tbl)) (list file org-clock-file-total-minutes tbl)))
  org-clock-get-table-data(nil (:maxlevel 5 :lang "en" :scope sub=
tree :block nil :wstart 1 :mstart 1 :tstart nil :tend nil :step nil :stepsk=
ip0 nil :fileskip0 nil :tags "hello" :emphasize nil :link nil :na=
rrow 40! :indent t :formula nil :timestamp nil :level nil :tcolumns nil :fo=
rmatter nil :name "clocktable" :indentation-column 0 :content #(&=
quot;\n" 0 1 (fontified t org-category "8aug"))))
  (cons (org-clock-get-table-data nil params) tbls)
  (setq tbls (cons (org-clock-get-table-data nil params) tbls))
  (save-restriction (org-agenda-prepare-buffers (list (or (buffer-file-name=
) (current-buffer)))) (cond ((not scope)) ((eq scope (quote file)) (widen))=
 ((eq scope (quote subtree)) (org-narrow-to-subtree)) ((eq scope (quote tre=
e)) (while (org-up-heading-safe)) (org-narrow-to-subtree)) ((and (symbolp s=
cope) (string-match "^tree\\([0-9]+\\)$" (symbol-name scope))) (s=
etq level (string-to-number (match-string 1 (symbol-name scope)))) (catch (=
quote exit) (while (org-up-heading-safe) (looking-at org-outline-regexp) (i=
f (<=3D (org-reduced-level ...) level) (throw (quote exit) nil)))) (org-=
narrow-to-subtree))) (setq tbls (cons (org-clock-get-table-data nil params)=
 tbls)))
  (if scope-is-list (let* ((files scope) file) (org-agenda-prepare-buffers =
files) (while (setq file (car-safe (prog1 files (setq files (cdr files)))))=
 (save-current-buffer (set-buffer (find-buffer-visiting file)) (save-excurs=
ion (save-restriction (setq tbls (cons ... tbls))))))) (save-restriction (o=
rg-agenda-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) =
(cond ((not scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote sub=
tree)) (org-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-hea=
ding-safe)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match &q=
uot;^tree\\([0-9]+\\)$" (symbol-name scope))) (setq level (string-to-n=
umber (match-string 1 (symbol-name scope)))) (catch (quote exit) (while (or=
g-up-heading-safe) (looking-at org-outline-regexp) (if (<=3D ... level) =
(throw ... nil)))) (org-narrow-to-subtree))) (setq tbls (cons (org-clock-ge=
t-table-data nil params) tbls))))
  (let* ((scope (plist-get params :scope)) (block (plist-get params :block)=
) (ts (plist-get params :tstart)) (te (plist-get params :tend)) (link (plis=
t-get params :link)) (maxlevel (or (plist-get params :maxlevel) 3)) (ws (pl=
ist-get params :wstart)) (ms (plist-get params :mstart)) (step (plist-get p=
arams :step)) (timestamp (plist-get params :timestamp)) (formatter (or (pli=
st-get params :formatter) org-clock-clocktable-formatter (quote org-clockta=
ble-write-default))) cc range-text ipos pos one-file-with-archives scope-is=
-list tbls level) (if block (progn (setq cc (org-clock-special-range block =
nil t ws ms) ts (car cc) te (nth 1 cc) range-text (nth 2 cc)))) (if step (p=
rogn (if (or block (and ts te)) nil (error "Clocktable `:step' can=
 only be used with `:block' or `:tstart,:end'")) (org-clocktab=
le-steps params) (throw (quote exit) nil))) (setq ipos (point)) (setq pos (=
point)) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope =
(eval scope))) ((eq scope (quote agenda)) (setq scope (org-agenda-files t))=
) ((eq scope (quote agenda-with-archives)) (setq scope (org-agenda-files t)=
) (setq scope (org-add-archive-files scope))) ((eq scope (quote file-with-a=
rchives)) (setq scope (and buffer-file-name (org-add-archive-files (list bu=
ffer-file-name))) one-file-with-archives t))) (setq scope-is-list (and scop=
e (listp scope))) (if scope-is-list (let* ((files scope) file) (org-agenda-=
prepare-buffers files) (while (setq file (car-safe (prog1 files (setq files=
 ...)))) (save-current-buffer (set-buffer (find-buffer-visiting file)) (sav=
e-excursion (save-restriction (setq tbls ...)))))) (save-restriction (org-a=
genda-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) (con=
d ((not scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote subtree=
)) (org-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-heading=
-safe)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match "=
^tree\\([0-9]+\\)$" (symbol-name scope))) (setq level (string-to-numbe=
r (match-string 1 ...))) (catch (quote exit) (while (org-up-heading-safe) (=
looking-at org-outline-regexp) (if ... ...))) (org-narrow-to-subtree))) (se=
tq tbls (cons (org-clock-get-table-data nil params) tbls)))) (setq tbls (nr=
everse tbls)) (setq params (plist-put params :multifile scope-is-list)) (se=
tq params (plist-put params :one-file-with-archives one-file-with-archives)=
) (funcall formatter ipos tbls params))
  (catch (quote exit) (let* ((scope (plist-get params :scope)) (block (plis=
t-get params :block)) (ts (plist-get params :tstart)) (te (plist-get params=
 :tend)) (link (plist-get params :link)) (maxlevel (or (plist-get params :m=
axlevel) 3)) (ws (plist-get params :wstart)) (ms (plist-get params :mstart)=
) (step (plist-get params :step)) (timestamp (plist-get params :timestamp))=
 (formatter (or (plist-get params :formatter) org-clock-clocktable-formatte=
r (quote org-clocktable-write-default))) cc range-text ipos pos one-file-wi=
th-archives scope-is-list tbls level) (if block (progn (setq cc (org-clock-=
special-range block nil t ws ms) ts (car cc) te (nth 1 cc) range-text (nth =
2 cc)))) (if step (progn (if (or block (and ts te)) nil (error "Clockt=
able `:step' can only be used with `:block' or `:tstart,:end'&q=
uot;)) (org-clocktable-steps params) (throw (quote exit) nil))) (setq ipos =
(point)) (setq pos (point)) (cond ((and scope (listp scope) (symbolp (car s=
cope))) (setq scope (eval scope))) ((eq scope (quote agenda)) (setq scope (=
org-agenda-files t))) ((eq scope (quote agenda-with-archives)) (setq scope =
(org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scop=
e (quote file-with-archives)) (setq scope (and buffer-file-name (org-add-ar=
chive-files (list buffer-file-name))) one-file-with-archives t))) (setq sco=
pe-is-list (and scope (listp scope))) (if scope-is-list (let* ((files scope=
) file) (org-agenda-prepare-buffers files) (while (setq file (car-safe (pro=
g1 files ...))) (save-current-buffer (set-buffer (find-buffer-visiting file=
)) (save-excursion (save-restriction ...))))) (save-restriction (org-agenda=
-prepare-buffers (list (or (buffer-file-name) (current-buffer)))) (cond ((n=
ot scope)) ((eq scope (quote file)) (widen)) ((eq scope (quote subtree)) (o=
rg-narrow-to-subtree)) ((eq scope (quote tree)) (while (org-up-heading-safe=
)) (org-narrow-to-subtree)) ((and (symbolp scope) (string-match "^tree=
\\([0-9]+\\)$" ...)) (setq level (string-to-number ...)) (catch (quote=
 exit) (while ... ... ...)) (org-narrow-to-subtree))) (setq tbls (cons (org=
-clock-get-table-data nil params) tbls)))) (setq tbls (nreverse tbls)) (set=
q params (plist-put params :multifile scope-is-list)) (setq params (plist-p=
ut params :one-file-with-archives one-file-with-archives)) (funcall formatt=
er ipos tbls params)))
  org-dblock-write:clocktable((:name "clocktable" :maxlevel 5 :sc=
ope subtree :tags "hello" :indentation-column 0 :content #("=
\n" 0 1 (fontified t org-category "8aug"))))
  funcall(org-dblock-write:clocktable (:name "clocktable" :maxlev=
el 5 :scope subtree :tags "hello" :indentation-column 0 :content =
#("\n" 0 1 (fontified t org-category "8aug"))))
  (let* ((win (selected-window)) (pos (point)) (line (org-current-line)) (p=
arams (org-prepare-dblock)) (name (plist-get params :name)) (indent (plist-=
get params :indentation-column)) (cmd (intern (concat "org-dblock-writ=
e:" name)))) (message "Updating dynamic block `%s' at line %d=
..." name line) (funcall cmd params) (message "Updating dynamic b=
lock `%s' at line %d...done" name line) (goto-char pos) (if (and i=
ndent (> indent 0)) (progn (setq indent (make-string indent 32)) (save-e=
xcursion (select-window win) (org-beginning-of-dblock) (forward-line 1) (wh=
ile (not (looking-at org-dblock-end-re)) (insert indent) (beginning-of-line=
 2)) (if (looking-at org-dblock-end-re) (progn (and (looking-at "[    =
 ]+") (replace-match "")) (insert indent)))))))
  (save-excursion (let* ((win (selected-window)) (pos (point)) (line (org-c=
urrent-line)) (params (org-prepare-dblock)) (name (plist-get params :name))=
 (indent (plist-get params :indentation-column)) (cmd (intern (concat "=
;org-dblock-write:" name)))) (message "Updating dynamic block `%s=
' at line %d..." name line) (funcall cmd params) (message "Up=
dating dynamic block `%s' at line %d...done" name line) (goto-char=
 pos) (if (and indent (> indent 0)) (progn (setq indent (make-string ind=
ent 32)) (save-excursion (select-window win) (org-beginning-of-dblock) (for=
ward-line 1) (while (not (looking-at org-dblock-end-re)) (insert indent) (b=
eginning-of-line 2)) (if (looking-at org-dblock-end-re) (progn (and ... ...=
) (insert indent))))))))
  org-update-dblock()
  org-clock-report(nil)
  #<subr call-interactively>(org-clock-report nil nil)
  funcall(#<subr call-interactively> org-clock-report nil nil)
  (with-no-warnings (funcall ad--addoit-function function record-flag keys)=
)
  (setq ad-return-value (with-no-warnings (funcall ad--addoit-function func=
tion record-flag keys)))
  (let ((ido-ubiquitous-next-override (ido-ubiquitous-get-command-override =
function))) (setq ad-return-value (with-no-warnings (funcall ad--addoit-fun=
ction function record-flag keys))))
  (ido-ubiquitous-with-override (ido-ubiquitous-get-command-override functi=
on) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function fu=
nction record-flag keys))))
  (let (ad-return-value) (ido-ubiquitous-with-override (ido-ubiquitous-get-=
command-override function) (setq ad-return-value (with-no-warnings (funcall=
 ad--addoit-function function record-flag keys)))) ad-return-value)
  ad-Advice-call-interactively(#<subr call-interactively> org-clock-r=
eport nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (org-=
clock-report nil nil))
  call-interactively(org-clock-report nil nil)
  command-execute(org-clock-report)
=E2=80=8B

On Mon, A= ug 15, 2016 at 11:12 PM, Nicolas Goaziou <mail@nicolasgoaziou.fr&= gt; wrote:
Hello,=

Yichao Woo <wooyichao@gmail.com> writes:

> I upgraded from 8.2.10 to 8.3.5, but still get= the same result.

Your upgrade may have failed, i.e., Org is reporting 8.3.5 but uses = some
older libraries bundled with Emacs.

> Have no idea why since I have little knowledge on how to read and debu= g
> elisp code.

Try doing M-x toggle-debug-on-quit and reproduce the freeze. Once frozen, quit with C-g and report the backtrace. Ideally, load Org
uncompiled first (C-u M-x org-reload).

Regards,

--
Nicolas Goaziou



--
Best Regards
Yichao
--001a1142e6b87ec2b3053a2684c8--