Remove some obsolete integer overflow handling

* lisp/subr.el (number-sequence):
* lisp/org/org-gnus.el (org-gnus-follow-link):
* lisp/ls-lisp.el (ls-lisp-insert-directory):
Remove dead code guarding against integer overflow.

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 66c56f0fceef7fc41c080ea710110e1e67881055..e802c2408f7e13b715b2eb88ff3836959f87c9f6 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -420,14 +420,7 @@ not contain `d', so that a full listing is expected."
                  attr (cdr elt)
                  file-size (file-attribute-size attr))
            (and attr
-                (setq sum (+ file-size
-                             ;; Even if neither SUM nor file's size
-                             ;; overflow, their sum could.
-                             (if (or (< sum (- 134217727 file-size))
-                                     (floatp sum)
-                                     (floatp file-size))
-                                 sum
-                               (float sum))))
+                (setq sum (+ file-size sum))
                 (insert (ls-lisp-format short attr file-size
                                         switches time-index))))
          ;; Insert total size of all files:

diff --git a/lisp/org/org-gnus.el b/lisp/org/org-gnus.el
index 2cb2766ee19fc02cae7b9264d9cc993998a5c08d..15e95647a09a45d2f791ee1f09e47650ecf4295b 100644 (file)
--- a/lisp/org/org-gnus.el
+++ b/lisp/org/org-gnus.el
@@ -242,9 +242,7 @@ If `org-store-link' was called with a prefix arg the meaning of
              (_
               (let ((articles 1)
                     group-opened)
-                (while (and (not group-opened)
-                            ;; Stop on integer overflows.
-                            (> articles 0))
+                (while (not group-opened)
                   (setq group-opened (gnus-group-read-group articles t group))
                   (setq articles (if (< articles 16)
                                      (1+ articles)

diff --git a/lisp/subr.el b/lisp/subr.el
index 4a1649f6019ec9832f61037f53beb0e458697438..9fd3366f8a6ade0dd2827adf6215f45112cd38b4 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -681,14 +681,12 @@ of course, also replace TO with a slightly larger value
     (when (zerop inc) (error "The increment can not be zero"))
     (let (seq (n 0) (next from) (last from))
       (if (> inc 0)
-          ;; The (>= next last) condition protects against integer
-          ;; overflow in computing NEXT.
-          (while (and (>= next last) (<= next to))
+          (while (<= next to)
             (setq seq (cons next seq)
                   n (1+ n)
                   last next
                   next (+ from (* n inc))))
-        (while (and (<= next last) (>= next to))
+        (while (>= next to)
           (setq seq (cons next seq)
                 n (1+ n)
                 next (+ from (* n inc)))))