diff options
| author | Richard M. Stallman | 1995-07-21 20:57:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-07-21 20:57:25 +0000 |
| commit | dec4e22e1d8e68098661b1554966c6e92dbdca86 (patch) | |
| tree | e078f3cf78c1bccc3f60ae91158e8e895e073dcb | |
| parent | 297cdcfa8c09ae6bd184ced81b6a77629f9849eb (diff) | |
| download | emacs-dec4e22e1d8e68098661b1554966c6e92dbdca86.tar.gz emacs-dec4e22e1d8e68098661b1554966c6e92dbdca86.zip | |
(byte-optimize-lapcode): Fix format calls.
| -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.") | |||
| 1571 | (if opt-p | 1571 | (if opt-p |
| 1572 | (let ((tagstr | 1572 | (let ((tagstr |
| 1573 | (if (eq 'TAG (car (car tmp))) | 1573 | (if (eq 'TAG (car (car tmp))) |
| 1574 | (format "%d:" (cdr (car tmp))) | 1574 | (format "%d:" (car (cdr (car tmp)))) |
| 1575 | (or (car tmp) "")))) | 1575 | (or (car tmp) "")))) |
| 1576 | (if (< i 6) | 1576 | (if (< i 6) |
| 1577 | (apply 'byte-compile-log-lap-1 | 1577 | (apply 'byte-compile-log-lap-1 |
| @@ -1818,7 +1818,7 @@ may generate incorrect code.") | |||
| 1818 | (setq tmp2 t)) | 1818 | (setq tmp2 t)) |
| 1819 | (if tmp2 | 1819 | (if tmp2 |
| 1820 | (byte-compile-log-lap | 1820 | (byte-compile-log-lap |
| 1821 | " %s [dup/%s]... %s\t-->\t%s dup..." lap0 lap0 lap0))) | 1821 | " %s [dup/%s]...\t-->\t%s dup..." lap0 lap0 lap0))) |
| 1822 | ;; | 1822 | ;; |
| 1823 | ;; unbind-N unbind-M --> unbind-(N+M) | 1823 | ;; unbind-N unbind-M --> unbind-(N+M) |
| 1824 | ;; | 1824 | ;; |