From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Sun, 26 Nov 2023 15:34:53 +0000 (+0100)
Subject: fix ipcalc
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=4d10a4f0c98d60b2d791e3a3ce4a85c35529334e;p=emacsconfig.git

fix ipcalc

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/lisp/ipcalc.el b/lisp/ipcalc.el
index a095e9d6..65a94e1e 100644
--- a/lisp/ipcalc.el
+++ b/lisp/ipcalc.el
@@ -111,7 +111,7 @@
         (max (- cidr-default 1)))
     (while (< count max)
       (aset ip count ?1)
-      (setq count(incf count)))
+      (setq count(cl-incf count)))
     ip))
 
 (defun hosts/net (num)
@@ -149,7 +149,7 @@
                  `(,1st-octet ,2nd-octet ,3rd-octet ,4th-octet))))
     (while (< count 3)
       (setq full-ip (concat full-ip (nth count octets) "."))
-      (setq count (incf count)))
+      (setq count (cl-incf count)))
     (concat full-ip (car (last octets)))))
 
 (defun ipcalc (ip/cidr)