diff options
| author | (tiny change) Pierre Lorenzon | 2015-05-05 14:47:58 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-05-05 14:47:58 -0400 |
| commit | ad9e659b30545e9476c2166fed469d7a03b2f554 (patch) | |
| tree | c5d0216a11f6024828677b26382bdc88e8200a74 | |
| parent | a53545fc4bac86baabb0316f2a3bd7cc992f5b52 (diff) | |
| download | emacs-ad9e659b30545e9476c2166fed469d7a03b2f554.tar.gz emacs-ad9e659b30545e9476c2166fed469d7a03b2f554.zip | |
* eieio-custom.el (eieio-object-value-get): Add missing increment
Fixes: debbugs:20467
| -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." | |||
| 298 | (let* ((slot (aref slots i)) | 298 | (let* ((slot (aref slots i)) |
| 299 | (props (cl--slot-descriptor-props slot)) | 299 | (props (cl--slot-descriptor-props slot)) |
| 300 | (cust (alist-get :custom props))) | 300 | (cust (alist-get :custom props))) |
| 301 | ;; | ||
| 302 | ;; Shouldn't i be incremented unconditionnaly ? Or | ||
| 303 | ;; better shouldn't we simply mapc on the slots vector | ||
| 304 | ;; avoiding use of this integer variable ? PLN Sat May | ||
| 305 | ;; 2 07:35:45 2015 | ||
| 306 | ;; | ||
| 307 | (setq i (+ i 1)) | ||
| 301 | (if (and cust | 308 | (if (and cust |
| 302 | (or eieio-custom-ignore-eieio-co | 309 | (or eieio-custom-ignore-eieio-co |
| 303 | (not master-group) | 310 | (not master-group) |