Re: Towards a cleaner build: disass.el

[Lars Ingebrigtsen]

In disassemble-1:
emacs-lisp/disass.el:171:42:Warning: `string-as-unibyte' is an obsolete
    function (as of 26.1); use `encode-coding-string'.

It's this code:

    (if (consp obj)
        (setq bytes (car (cdr obj))             ;the byte code
              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))


But...

(multibyte-string-p (aref (byte-compile '(lambda (foo) (+ 4 foo))) 1))
=> nil

Is there any way the byte string in a byte-compiled function is
multibyte?  It kinda looks like a NOP to me...

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no