Abolish macro `char-list-to-string'.

diff --git a/poe-19.el b/poe-19.el
index 62995e6..fbbe7ed 100644 (file)
--- a/poe-19.el
+++ b/poe-19.el
@@ -66,16 +66,6 @@
     (point)))
 
 
-;;; @ string
-;;;
-
-(defmacro char-list-to-string (char-list)
-  "Convert list of character CHAR-LIST to string."
-  (` (mapconcat (function char-to-string)
-               (, char-list)
-               "")))
-
-
 ;;; @ end
 ;;;
 

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 475dccc..119f639 100644 (file)
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -104,15 +104,7 @@
     )
 
 
-;;; @ string
-;;;
-
-(defmacro char-list-to-string (char-list)
-  "Convert list of character CHAR-LIST to string. [poe-xemacs.el]"
-  `(mapconcat #'char-to-string ,char-list ""))
-
-
-;;; @@ to avoid bug of XEmacs 19.14
+;;; @ to avoid bug of XEmacs 19.14
 ;;;
 
 (or (string-match "^../"