branch: externals/consult
commit 35ae1fe7cf38cf46cf915f29ca0d2f51b7cedc77
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
consult--temporary-files: Adjust mode-name of previewed buffers
---
consult.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index 5070a3f61d..b8551e8cdc 100644
--- a/consult.el
+++ b/consult.el
@@ -1201,7 +1201,9 @@ ORIG is the original function, HOOKS the arguments."
(unless (or (memq buf temporary-buffers) (memq buf
orig-buffers))
(add-hook 'window-selection-change-functions hook)
(push buf temporary-buffers)
- (with-current-buffer buf (setq buffer-read-only t))
+ (with-current-buffer buf
+ (setq mode-name `("Preview:" ,mode-name)
+ buffer-read-only t))
;; Only keep a few buffers alive
(while (> (length temporary-buffers)
consult-preview-max-count)
(kill-buffer (car (last temporary-buffers)))
