Browse Source

org-clock: Fix clock tables with file list scope

* lisp/org-clock.el (org-dblock-write:clocktable): Handle scope as
  a list of files.

Reported-by: Nikolay Kudryavtsev <nikolay.kudryavtsev@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/110452>
Nicolas Goaziou 1 year ago
parent
commit
ee7721f795
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org-clock.el

+ 2 - 2
lisp/org-clock.el

@@ -2370,6 +2370,7 @@ the currently selected interval size."
 		    (`file-with-archives
 		     (and buffer-file-name
 			  (org-add-archive-files (list buffer-file-name))))
+		    ((pred consp) scope)
 		    (_ (or (buffer-file-name) (current-buffer)))))
 	   (block (plist-get params :block))
 	   (ts (plist-get params :tstart))
@@ -2430,8 +2431,7 @@ the currently selected interval size."
 	     ;; Even though `file-with-archives' can consist of
 	     ;; multiple files, we consider this is one extended file
 	     ;; instead.
-	     (cond ((eq scope 'file-with-archives) nil)
-		   ((consp files)))))
+	     (and (consp files) (not (eq scope 'file-with-archives)))))
 
 	(funcall formatter
 		 origin