Fix char-fold compilation warning

* lisp/char-fold.el (require): Get string-join definition.

diff --git a/lisp/char-fold.el b/lisp/char-fold.el
index e4c7c3c41e55c48597c0ab3181ba3b1979039082..ce395ddaab0649f8bc0f4027adad9e6dbbdc9e34 100644 (file)
--- a/lisp/char-fold.el
+++ b/lisp/char-fold.el
@@ -24,6 +24,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'subr-x))
+
 (eval-and-compile
   (put 'char-fold-table 'char-table-extra-slots 1)
   (defconst char-fold--default-override nil)