branch: elpa/hyperdrive
commit 536538f5ae0e0fe801f129728843e9fb5877724c
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Add: (hyperdrive--buffer-for-entry) Workaround for bug#65797
---
hyperdrive-lib.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index fda8e7600f..5019a5a305 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1237,6 +1237,11 @@ Affected by option `hyperdrive-reuse-buffers', which
see."
(hyperdrive-entry-equal entry
(buffer-local-value 'hyperdrive-current-entry
buffer))))
+(defun hyperdrive--buffer-for-entry (entry)
+ "Return a predicate to match buffer against ENTRY"
+ ;; TODO: This function is a workaround for bug#65797
+ (lambda (buffer) (hyperdrive--entry-buffer-p entry buffer)))
+
(defun hyperdrive--entry-buffer-name (entry)
"Return buffer name for ENTRY."
(hyperdrive-entry-description entry :format-path 'name))
