diff options
| author | Pip Cet | 2019-07-22 20:09:42 +0000 |
|---|---|---|
| committer | Paul Eggert | 2019-07-22 17:47:42 -0700 |
| commit | f9443e2a83e2bd09fd82c1bd3688990346a03d35 (patch) | |
| tree | 7849ee783080a6f6af9a51a45465326263266361 | |
| parent | c63e7f1bf6151d4bb5fde01890c69cdd515e2df3 (diff) | |
| download | emacs-f9443e2a83e2bd09fd82c1bd3688990346a03d35.tar.gz emacs-f9443e2a83e2bd09fd82c1bd3688990346a03d35.zip | |
Avoid byte compiler warning for subr.el
* lisp/subr.el (number-sequence): Simplify to avoid byte compiler warning.
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 9fd3366f8a6..f1a4e8bb292 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -679,12 +679,11 @@ of course, also replace TO with a slightly larger value | |||
| 679 | (list from) | 679 | (list from) |
| 680 | (or inc (setq inc 1)) | 680 | (or inc (setq inc 1)) |
| 681 | (when (zerop inc) (error "The increment can not be zero")) | 681 | (when (zerop inc) (error "The increment can not be zero")) |
| 682 | (let (seq (n 0) (next from) (last from)) | 682 | (let (seq (n 0) (next from)) |
| 683 | (if (> inc 0) | 683 | (if (> inc 0) |
| 684 | (while (<= next to) | 684 | (while (<= next to) |
| 685 | (setq seq (cons next seq) | 685 | (setq seq (cons next seq) |
| 686 | n (1+ n) | 686 | n (1+ n) |
| 687 | last next | ||
| 688 | next (+ from (* n inc)))) | 687 | next (+ from (* n inc)))) |
| 689 | (while (>= next to) | 688 | (while (>= next to) |
| 690 | (setq seq (cons next seq) | 689 | (setq seq (cons next seq) |