diff options
| author | Richard M. Stallman | 1999-05-17 01:37:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-05-17 01:37:04 +0000 |
| commit | ea9d637111b8ee28406b766397e2d623a54fb2bd (patch) | |
| tree | 43849da94c06424ba0a09066ee25bc458a20882a | |
| parent | b1ae662fa6945545d6933276bfb68d17445d2414 (diff) | |
| download | emacs-ea9d637111b8ee28406b766397e2d623a54fb2bd.tar.gz emacs-ea9d637111b8ee28406b766397e2d623a54fb2bd.zip | |
(byte-optimize-plus): Fix 1-arg case.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index cfec516056c..4f399f4b4cf 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -700,6 +700,10 @@ | |||
| 700 | ;;; (actually, it would be safe if we know the sole arg | 700 | ;;; (actually, it would be safe if we know the sole arg |
| 701 | ;;; is not a marker). | 701 | ;;; is not a marker). |
| 702 | ;; ((null (cdr (cdr form))) (nth 1 form)) | 702 | ;; ((null (cdr (cdr form))) (nth 1 form)) |
| 703 | ((null (cddr form)) | ||
| 704 | (if (numberp (nth 1 form)) | ||
| 705 | (nth 1 form) | ||
| 706 | form)) | ||
| 703 | ((and (null (nthcdr 3 form)) | 707 | ((and (null (nthcdr 3 form)) |
| 704 | (or (memq (nth 1 form) '(1 -1)) | 708 | (or (memq (nth 1 form) '(1 -1)) |
| 705 | (memq (nth 2 form) '(1 -1)))) | 709 | (memq (nth 2 form) '(1 -1)))) |