Set char-table-extra-slots on display-table here.

diff --git a/lisp/faces.el b/lisp/faces.el
index 4df2d444cb36ae5e563731122c907e3f1b0e683b..cf59931c8810ccd353215e1e5693560dd424d3b7 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2030,6 +2030,8 @@ Note: Other faces cannot inherit from the cursor face."
 It is also used for ... in ellipses."
   :group 'basic-faces)
 
+(put 'display-table 'char-table-extra-slots 6)
+
 (or standard-display-table
     ;; avoid using autoloaded make-display-table here
     (setq standard-display-table (make-char-table 'display-table nil)))