Mercurial > emacs
changeset 24734:1a05fdaa603b
(byte-optimize-plus): Fix 1-arg case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 17 May 1999 01:37:04 +0000 |
| parents | 8f526771b25b |
| children | 58e77af0527b |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Sat May 15 17:39:26 1999 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Mon May 17 01:37:04 1999 +0000 @@ -700,6 +700,10 @@ ;;; (actually, it would be safe if we know the sole arg ;;; is not a marker). ;; ((null (cdr (cdr form))) (nth 1 form)) + ((null (cddr form)) + (if (numberp (nth 1 form)) + (nth 1 form) + form)) ((and (null (nthcdr 3 form)) (or (memq (nth 1 form) '(1 -1)) (memq (nth 2 form) '(1 -1))))