diff options
| author | (tiny change) Pierre Lorenzon <devel@pollock-nageoire.net> | 2015-05-05 14:47:58 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-05-05 14:47:58 -0400 |
| commit | ad9e659b30545e9476c2166fed469d7a03b2f554 (patch) | |
| tree | c5d0216a11f6024828677b26382bdc88e8200a74 /lisp/emacs-lisp/eieio-custom.el | |
| parent | a53545fc4bac86baabb0316f2a3bd7cc992f5b52 (diff) | |
| download | emacs-ad9e659b30545e9476c2166fed469d7a03b2f554.tar.gz | |
* eieio-custom.el (eieio-object-value-get): Add missing increment
Fixes: debbugs:20467
Diffstat (limited to 'lisp/emacs-lisp/eieio-custom.el')
| -rw-r--r-- | 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 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) |