From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 18 May 2019 08:02:25 +0000 (+0200)
Subject: Remove usage of string-as-unibyte in arc-mode
X-Git-Tag: emacs-27.0.90~2842
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45ffe7329e88226809b860a9e8d57f09815820fc;p=emacs.git

Remove usage of string-as-unibyte in arc-mode

* lisp/arc-mode.el (archive-l-e): Encode with utf-8-emacs-unix
instead of using string-as-unibyte.
---

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 871395ebb48..9eec7ea0868 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -535,7 +535,8 @@ in which case a second argument, length LEN, should be supplied."
   (if (stringp str)
       (setq len (length str))
     (setq str (buffer-substring str (+ str len))))
-  (setq str (string-as-unibyte str))
+  (if (multibyte-string-p str)
+      (setq str (encode-coding-string str 'utf-8-emacs-unix)))
   (let ((result 0)
         (i 0))
     (while (< i len)