aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/eieio-custom.el4
-rw-r--r--test/automated/cl-lib-tests.el2
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