aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPip Cet2019-07-22 20:09:42 +0000
committerPaul Eggert2019-07-22 17:47:42 -0700
commitf9443e2a83e2bd09fd82c1bd3688990346a03d35 (patch)
tree7849ee783080a6f6af9a51a45465326263266361
parentc63e7f1bf6151d4bb5fde01890c69cdd515e2df3 (diff)
downloademacs-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.el3
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)