[Emacs-diffs] master ad9e659: * eieio-custom.el (eieio-object-value-get): Add missing increment

[Stefan Monnier]

branch: master
commit ad9e659b30545e9476c2166fed469d7a03b2f554
Author: (tiny change) Pierre Lorenzon <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * eieio-custom.el (eieio-object-value-get): Add missing increment
    
    Fixes: debbugs:20467
---
 lisp/emacs-lisp/eieio-custom.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index f3ec1b6..8e19544 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)