[nongnu] elpa/hyperdrive 9dfcc25a0a 18/26: Add: (h/dir--yank-media-image-handler) String multibyte assertion

[ELPA Syncer]

branch: elpa/hyperdrive
commit 9dfcc25a0a687aad2cc30903123bbdc9f09ff8e7
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Add: (h/dir--yank-media-image-handler) String multibyte assertion
---
 hyperdrive-dir.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 78fe1132d1..99620803ca 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -388,6 +388,7 @@ see Info node `(elisp)Yanking Media'."
     ;; TODO: Extend this to other media types?
     (cl-assert (and h/current-entry
                     (h//entry-directory-p h/current-entry)))
+    (cl-assert (not (multibyte-string-p image)))
     (let ((entry (h/read-entry (h//context-hyperdrive :predicate #'h/writablep)
                                :latest-version t)))
       (setf (he/size entry) (string-bytes image))