Commit dec4e22e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-optimize-lapcode): Fix format calls.

parent 297cdcfa
......@@ -1571,7 +1571,7 @@ may generate incorrect code.")
(if opt-p
(let ((tagstr
(if (eq 'TAG (car (car tmp)))
(format "%d:" (cdr (car tmp)))
(format "%d:" (car (cdr (car tmp))))
(or (car tmp) ""))))
(if (< i 6)
(apply 'byte-compile-log-lap-1
......@@ -1818,7 +1818,7 @@ may generate incorrect code.")
(setq tmp2 t))
(if tmp2
(byte-compile-log-lap
" %s [dup/%s]... %s\t-->\t%s dup..." lap0 lap0 lap0)))
" %s [dup/%s]...\t-->\t%s dup..." lap0 lap0 lap0)))
;;
;; unbind-N unbind-M --> unbind-(N+M)
;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment