From dec4e22e1d8e68098661b1554966c6e92dbdca86 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Jul 1995 20:57:25 +0000 Subject: [PATCH] (byte-optimize-lapcode): Fix format calls. --- lisp/emacs-lisp/byte-opt.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index c5f2562fbf1..46d812299f7 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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) ;; -- 2.39.2