[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/disass.el

[Miles Bader]

Index: emacs/lisp/emacs-lisp/disass.el
diff -c emacs/lisp/emacs-lisp/disass.el:1.17 
emacs/lisp/emacs-lisp/disass.el:1.18
*** emacs/lisp/emacs-lisp/disass.el:1.17        Wed May 13 20:57:14 1998
--- emacs/lisp/emacs-lisp/disass.el     Tue Aug 11 07:05:51 1998
***************
*** 171,179 ****
              constvec (car (cdr (cdr obj))))   ;constant vector
        ;; If it is lazy-loaded, load it now
        (fetch-bytecode obj)
!       (setq bytes (string-as-unibyte (aref obj 1))
            constvec (aref obj 2)))
!     (let ((lap (byte-decompile-bytecode bytes constvec))
          op arg opname pc-value)
        (let ((tagno 0)
            tmp
--- 171,179 ----
              constvec (car (cdr (cdr obj))))   ;constant vector
        ;; If it is lazy-loaded, load it now
        (fetch-bytecode obj)
!       (setq bytes (aref obj 1)
            constvec (aref obj 2)))
!     (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec))
          op arg opname pc-value)
        (let ((tagno 0)
            tmp