; Fix my previous commit

* test/src/chartab-tests.el (chartab-test-char-table-extra-slot): Fix
test.
This commit is contained in:
Stefan Kangas 2020-12-30 08:36:04 +01:00
parent 2d58e0e803
commit 4b6fcb072a

View file

@ -67,7 +67,7 @@
;; Use any type with extra slots, e.g. 'case-table.
(let ((tbl (make-char-table 'case-table)))
(set-char-table-extra-slot tbl 1 'bar)
(char-table-extra-slot tbl 1)))
(should (eq (char-table-extra-slot tbl 1) 'bar))))
(provide 'chartab-tests)
;;; chartab-tests.el ends here