# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885808101 0
# Node ID 6d7fffd02e26a78c7ca4eb9e2f6f426e9b47a2a4
# Parent  a9e1b9bf06e3ab3ad891ac115f31b87f16d25dcb
(byte-compile-inline-expand): Use string-as-unibyte, if it is defined.

diff -r a9e1b9bf06e3 -r 6d7fffd02e26 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Mon Jan 26 09:04:27 1998 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Mon Jan 26 09:48:21 1998 +0000
@@ -279,10 +279,13 @@
       (if (symbolp fn)
 	  (byte-compile-inline-expand (cons fn (cdr form)))
 	(if (byte-code-function-p fn)
-	    (progn
+	    (let (string)
 	      (fetch-bytecode fn)
+	      (setq string (aref fn 1))
+	      (if (fboundp 'string-as-unibyte)
+		  (setq string (string-as-unibyte string)))
 	      (cons (list 'lambda (aref fn 0)
-			  (list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3)))
+			  (list 'byte-code string (aref fn 2) (aref fn 3)))
 		    (cdr form)))
 	  (if (not (eq (car fn) 'lambda)) (error "%s is not a lambda" name))
 	  (cons fn (cdr form)))))))