(char-list-to-string): New function.
[elisp/apel.git] / emu.el
diff --git a/emu.el b/emu.el
index 8dc9928..030900c 100644 (file)
--- a/emu.el
+++ b/emu.el
 (require 'poem)
 (require 'mcharset)
 
+(defsubst char-list-to-string (char-list)
+  "Convert list of character CHAR-LIST to string."
+  (apply (function string) char-list))
+
 (cond ((featurep 'mule)
        (cond ((featurep 'xemacs) ; for XEmacs with MULE
              ;; old Mule emulating aliases