|
@@ -2380,9 +2380,15 @@ the currently selected interval size."
|
|
|
(`file-with-archives
|
|
|
(and buffer-file-name
|
|
|
(org-add-archive-files (list buffer-file-name))))
|
|
|
+ ((or `nil `file `subtree `tree
|
|
|
+ (and (pred symbolp)
|
|
|
+ (guard (string-match "\\`tree\\([0-9]+\\)\\'"
|
|
|
+ (symbol-name scope)))))
|
|
|
+ (or (buffer-file-name (buffer-base-buffer))
|
|
|
+ (current-buffer)))
|
|
|
((pred functionp) (funcall scope))
|
|
|
((pred consp) scope)
|
|
|
- (_ (or (buffer-file-name) (current-buffer)))))
|
|
|
+ (_ (user-error "Unknown scope: %S" scope))))
|
|
|
(block (plist-get params :block))
|
|
|
(ts (plist-get params :tstart))
|
|
|
(te (plist-get params :tend))
|