* src/fns.c (Flength): Fix char table length off-by-one bug.

2 files changed, 3 insertions, 2 deletions

diff --git a/src/fns.c b/src/fns.c
index 49c185178ff..1cf63384218 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -147,7 +147,7 @@ efficient.  */)
   else if (VECTORP (sequence))
     val = ASIZE (sequence);
   else if (CHAR_TABLE_P (sequence))
-    val = MAX_CHAR;
+    val = MAX_CHAR + 1;
   else if (BOOL_VECTOR_P (sequence))
     val = bool_vector_size (sequence);
   else if (CLOSUREP (sequence) || RECORDP (sequence))
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el
index e6abcdc34e7..6a50d89c778 100644
--- a/test/src/fns-tests.el
+++ b/test/src/fns-tests.el
@@ -52,7 +52,8 @@
   (should (= (length '(1 2 3)) 3))
   (should (= (length '[1 2 3]) 3))
   (should (= (length "foo") 3))
-  (should-error (length t)))
+  (should-error (length t))
+  (should (= (length (make-char-table 'fns-tests)) (1+ (max-char)))))
 
 (ert-deftest fns-tests-safe-length ()
   (should (= (safe-length '(1 2 3)) 3)))