diff options
| -rw-r--r-- | lisp/emacs-lisp/eieio-custom.el | 4 | ||||
| -rw-r--r-- | test/automated/cl-lib-tests.el | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el index 8e19544c65e..31d0b85c55a 100644 --- a/lisp/emacs-lisp/eieio-custom.el +++ b/lisp/emacs-lisp/eieio-custom.el | |||
| @@ -299,9 +299,9 @@ Optional argument IGNORE is an extraneous parameter." | |||
| 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 | ;; | 301 | ;; |
| 302 | ;; Shouldn't i be incremented unconditionnaly ? Or | 302 | ;; Shouldn't I be incremented unconditionally? Or |
| 303 | ;; better shouldn't we simply mapc on the slots vector | 303 | ;; better shouldn't we simply mapc on the slots vector |
| 304 | ;; avoiding use of this integer variable ? PLN Sat May | 304 | ;; avoiding use of this integer variable? PLN Sat May |
| 305 | ;; 2 07:35:45 2015 | 305 | ;; 2 07:35:45 2015 |
| 306 | ;; | 306 | ;; |
| 307 | (setq i (+ i 1)) | 307 | (setq i (+ i 1)) |
diff --git a/test/automated/cl-lib-tests.el b/test/automated/cl-lib-tests.el index ece1d45cae0..1bdc6d7ca09 100644 --- a/test/automated/cl-lib-tests.el +++ b/test/automated/cl-lib-tests.el | |||
| @@ -444,7 +444,7 @@ | |||
| 444 | (should (eq nums (cl-adjoin 2 nums :test-not myfn-p))) ; 1 matches | 444 | (should (eq nums (cl-adjoin 2 nums :test-not myfn-p))) ; 1 matches |
| 445 | (should (eq nums (cl-adjoin 3 nums :test-not myfn-p))) ; 1 and 2 matches | 445 | (should (eq nums (cl-adjoin 3 nums :test-not myfn-p))) ; 1 and 2 matches |
| 446 | 446 | ||
| 447 | ;; according to CLTL2 passing both :test and :test-not should signal error | 447 | ;; according to CLtL2 passing both :test and :test-not should signal error |
| 448 | ;;(should-error (cl-adjoin 3 nums :test 'myfn-p :test-not myfn-p)) | 448 | ;;(should-error (cl-adjoin 3 nums :test 'myfn-p :test-not myfn-p)) |
| 449 | 449 | ||
| 450 | ;; own :key fn | 450 | ;; own :key fn |