Translate concat to ml-concat.

diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index ff618d9..491799c 100644 (file)
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -194,6 +194,7 @@
 (ml-expansion 'get-tty-no-blanks-input "read-no-blanks-input")
 (ml-expansion 'get-tty-key "read-key")
 
+(ml-expansion 'concat "ml-concat")
 (ml-expansion 'c= "char-equal")
 (ml-expansion 'goto-character "goto-char")
 (ml-expansion 'substr "ml-substr")