From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 14 May 1998 00:57:14 +0000 (+0000)
Subject: (disassemble-1): Reference bytecode string as unibyte.
X-Git-Tag: emacs-20.3~1022
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a56d55b7037450e951b18bad87e62db5e9c6ba43;p=emacs.git

(disassemble-1): Reference bytecode string as unibyte.
---

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index d07581e86d4..8b010c45e4c 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -171,7 +171,7 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
 	      constvec (car (cdr (cdr obj))))	;constant vector
       ;; If it is lazy-loaded, load it now
       (fetch-bytecode obj)
-      (setq bytes (aref obj 1)
+      (setq bytes (string-as-unibyte (aref obj 1))
 	    constvec (aref obj 2)))
     (let ((lap (byte-decompile-bytecode bytes constvec))
 	  op arg opname pc-value)