diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-07-21 20:57:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-07-21 20:57:25 +0000 |
| commit | dec4e22e1d8e68098661b1554966c6e92dbdca86 (patch) | |
| tree | e078f3cf78c1bccc3f60ae91158e8e895e073dcb /lisp/emacs-lisp | |
| parent | 297cdcfa8c09ae6bd184ced81b6a77629f9849eb (diff) | |
| download | emacs-dec4e22e1d8e68098661b1554966c6e92dbdca86.tar.gz emacs-dec4e22e1d8e68098661b1554966c6e92dbdca86.tar.bz2 emacs-dec4e22e1d8e68098661b1554966c6e92dbdca86.zip | |
(byte-optimize-lapcode): Fix format calls.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files 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) ;; |