emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Throw a user-error if denote-dired-focus is called in a Dired buffer without prior denote-dired

Browse source
This commit is contained in:
Protesilaos 2026-05-20 12:35:57 +03:00
parent dbfe4b189a
commit ea398e9a2a
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
denote.el
View file

@ -2054,14 +2054,16 @@ matching REGEXP from the buffer.
This is not a new query. It builds on top of the current `denote-dired' 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." buffer's file list to operate only on those files."
(interactive (interactive
(or (denote--user-error-if-not-major-mode 'dired-mode) (if denote-sort-dired--last-files
(let ((exclude-p current-prefix-arg)) (or (denote--user-error-if-not-major-mode 'dired-mode)
(list (let ((exclude-p current-prefix-arg))
(denote-files-matching-regexp-prompt (list
(if exclude-p (denote-files-matching-regexp-prompt
"Remove files matching REGEXP in Denote Dired buffer" (if exclude-p
"Show only files matching REGEXP in Denote Dired buffer")) "Remove files matching REGEXP in Denote Dired buffer"
exclude-p)))) "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) (denote--user-error-if-not-major-mode 'dired-mode)
(if-let* ((files denote-sort-dired--last-files)) (if-let* ((files denote-sort-dired--last-files))
(pcase-let* ((`(,last-regexp ,component ,reverse-sort ,exclude-regexp ,_) denote-sort-dired--last-arguments)) (pcase-let* ((`(,last-regexp ,component ,reverse-sort ,exclude-regexp ,_) denote-sort-dired--last-arguments))