From e9d9520bffd57821edb2b7d6ee55d5f431d65d1c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 16 Oct 2002 02:16:02 +0000 Subject: [PATCH] (byte-compile-lapcode): Be sure to return a unibyte string. --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0150b48ae53..fdb955b490a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -757,7 +757,7 @@ otherwise pop it") (setcar (cdr bytes) (logand pc 255)) (setcar bytes (lsh pc -8)))) (setq patchlist (cdr patchlist)))) - (concat (nreverse bytes)))) + (string-make-unibyte (concat (nreverse bytes))))) ;;; compile-time evaluation -- 2.39.2