[nongnu] elpa/hyperdrive d53fe79960 2/4: Tidy: (h/history-find-buffer-visiting) Move into h/history.el

[ELPA Syncer]

branch: elpa/hyperdrive
commit d53fe79960ddea16cecd934e6c96dca302465ce0
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Tidy: (h/history-find-buffer-visiting) Move into h/history.el
---
 hyperdrive-history.el | 9 +++++++++
 hyperdrive-lib.el     | 9 ---------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 064bb85cc5..5ed85a709c 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -41,6 +41,15 @@
 
 ;;;; Functions
 
+(defun h/history-find-buffer-visiting (entry)
+  "Return a buffer showing ENTRY's history, or nil if none exists."
+  ;; There should only ever be one buffer showing ENTRY's history, so it's safe
+  ;; to return the first value in the list.
+  (car (match-buffers
+        (lambda (buffer)
+          (and-let* ((local-entry (buffer-local-value 'h/history-current-entry 
buffer)))
+            (he/equal-p entry local-entry t))))))
+
 (defun h/history-find-at-point (event)
   "Find entry at EVENT's position."
   (interactive "e")
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 85c4746e3b..cdaec1da96 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1622,15 +1622,6 @@ version."
           (and-let* ((local-entry (buffer-local-value 'h/current-entry 
buffer)))
             (he/equal-p entry local-entry any-version-p))))))
 
-(defun h/history-find-buffer-visiting (entry)
-  "Return a buffer showing ENTRY's history, or nil if none exists."
-  ;; There should only ever be one buffer showing ENTRY's history, so it's safe
-  ;; to return the first value in the list.
-  (car (match-buffers
-        (lambda (buffer)
-          (and-let* ((local-entry (buffer-local-value 'h/history-current-entry 
buffer)))
-            (he/equal-p entry local-entry t))))))
-
 (defun h//format-entry (entry &optional format formats)
   "Return ENTRY formatted according to FORMAT.
 FORMAT is a `format-spec' specifier string which maps to specifications