tm 7.57.

[elisp/apel.git] / emu-18.el

diff --git a/emu-18.el b/emu-18.el
index 93cf1ad..9fc84b2 100644 (file)
--- a/emu-18.el
+++ b/emu-18.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu-18.el,v 7.9 1996/03/25 10:43:00 morioka Exp $
+;;;    $Id: emu-18.el,v 7.13 1996/04/24 12:04:27 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -227,6 +227,15 @@ With optional non-nil ALL, force redisplay of all mode-lines.
 (defvar mouse-button-3 nil)
 
 
+;;; @ string
+;;;
+
+(defun char-list-to-string (char-list)
+  "Convert list of character CHAR-LIST to string. [emu-18.el]"
+  (mapconcat (function char-to-string) char-list "")
+  )
+
+
 ;;; @ end
 ;;;