diff options
| author | Stefan Kangas | 2020-12-30 08:36:04 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2020-12-30 08:36:04 +0100 |
| commit | 4b6fcb072ab56c472805ecdcdf86f5bada98c1cc (patch) | |
| tree | d2b244afc359e2043c5495096d976e2499e200ad | |
| parent | 2d58e0e803fb5fe397d446d58a0d83f0d35b4fc4 (diff) | |
| download | emacs-4b6fcb072ab56c472805ecdcdf86f5bada98c1cc.tar.gz emacs-4b6fcb072ab56c472805ecdcdf86f5bada98c1cc.zip | |
; Fix my previous commit
* test/src/chartab-tests.el (chartab-test-char-table-extra-slot): Fix
test.
| -rw-r--r-- | test/src/chartab-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/src/chartab-tests.el b/test/src/chartab-tests.el index 0a8d8bcdf7d..98893e55fe2 100644 --- a/test/src/chartab-tests.el +++ b/test/src/chartab-tests.el | |||
| @@ -67,7 +67,7 @@ | |||
| 67 | ;; Use any type with extra slots, e.g. 'case-table. | 67 | ;; Use any type with extra slots, e.g. 'case-table. |
| 68 | (let ((tbl (make-char-table 'case-table))) | 68 | (let ((tbl (make-char-table 'case-table))) |
| 69 | (set-char-table-extra-slot tbl 1 'bar) | 69 | (set-char-table-extra-slot tbl 1 'bar) |
| 70 | (char-table-extra-slot tbl 1))) | 70 | (should (eq (char-table-extra-slot tbl 1) 'bar)))) |
| 71 | 71 | ||
| 72 | (provide 'chartab-tests) | 72 | (provide 'chartab-tests) |
| 73 | ;;; chartab-tests.el ends here | 73 | ;;; chartab-tests.el ends here |