From: (tiny change) Pierre Lorenzon <devel@pollock-nageoire.net>
Date: Tue, 5 May 2015 18:47:58 +0000 (-0400)
Subject: * eieio-custom.el (eieio-object-value-get): Add missing increment
X-Git-Tag: emacs-25.0.90~2197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad9e659b30545e9476c2166fed469d7a03b2f554;p=emacs.git

* eieio-custom.el (eieio-object-value-get): Add missing increment

Fixes: debbugs:20467
---

diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index f3ec1b6c981..8e19544c65e 100644
--- a/lisp/emacs-lisp/eieio-custom.el
+++ b/lisp/emacs-lisp/eieio-custom.el
@@ -298,6 +298,13 @@ Optional argument IGNORE is an extraneous parameter."
       (let* ((slot (aref slots i))
              (props (cl--slot-descriptor-props slot))
              (cust (alist-get :custom props)))
+	;;
+	;; Shouldn't i be incremented unconditionnaly ? Or
+	;; better shouldn't we simply mapc on the slots vector
+	;; avoiding use of this integer variable ? PLN Sat May
+	;; 2 07:35:45 2015
+	;;
+	(setq i (+ i 1))
         (if (and cust
                  (or eieio-custom-ignore-eieio-co
                      (not master-group)