branch: externals/consult
commit f94d557807451a733b71a2c41d43175ec6ed3248
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-register-store: Support Dired buffers (Fix #1211)
---
CHANGELOG.org | 1 +
consult-register.el | 3 ++-
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index b45b9522df..9aad44d0ba 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -8,6 +8,7 @@
to search through a subset of info manuals.
- ~consult-focus-lines~: Add mode line indicator if active.
- ~consult-grep~: Preserve empty context lines.
+- ~consult-register-store~: Support Dired buffers.
* Version 2.1 (2025-03-11)
diff --git a/consult-register.el b/consult-register.el
index 8a31964743..4011a8c440 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -321,7 +321,8 @@ kmacro."
(t
`("Store"
(?p "point" "Point to register: " ,#'point-to-register)
- (?f "file" "File to register: " ,(lambda (r) (set-register r `(file .
,(buffer-file-name)))))
+ ,@(when-let ((file (or buffer-file-name default-directory)))
+ `((?f "file" "File to register: " ,(lambda (r) (set-register r
`(file . ,file))))))
(?t "frameset" "Frameset to register: " ,#'frameset-to-register)
(?w "window" "Window to register: " ,#'window-configuration-to-register)
,@(and last-kbd-macro `((?k "kmacro" "Kmacro to register: "
,#'kmacro-to-register))))))))
