From ea398e9a2a1f0daf61c709b4090f653734350519 Mon Sep 17 00:00:00 2001 From: Protesilaos Date: Wed, 20 May 2026 12:35:57 +0300 Subject: [PATCH] Throw a user-error if denote-dired-focus is called in a Dired buffer without prior denote-dired --- denote.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/denote.el b/denote.el index 46ef751..625d04b 100644 --- a/denote.el +++ b/denote.el @@ -2054,14 +2054,16 @@ matching REGEXP from the buffer. This is not a new query. It builds on top of the current `denote-dired' buffer's file list to operate only on those files." (interactive - (or (denote--user-error-if-not-major-mode 'dired-mode) - (let ((exclude-p current-prefix-arg)) - (list - (denote-files-matching-regexp-prompt - (if exclude-p - "Remove files matching REGEXP in Denote Dired buffer" - "Show only files matching REGEXP in Denote Dired buffer")) - exclude-p)))) + (if denote-sort-dired--last-files + (or (denote--user-error-if-not-major-mode 'dired-mode) + (let ((exclude-p current-prefix-arg)) + (list + (denote-files-matching-regexp-prompt + (if exclude-p + "Remove files matching REGEXP in Denote Dired buffer" + "Show only files matching REGEXP in Denote Dired buffer")) + exclude-p))) + (user-error "This is not a `denote-dired' buffer"))) (denote--user-error-if-not-major-mode 'dired-mode) (if-let* ((files denote-sort-dired--last-files)) (pcase-let* ((`(,last-regexp ,component ,reverse-sort ,exclude-regexp ,_) denote-sort-dired--last-arguments))