From: morioka <morioka>
Date: Tue, 20 Oct 1998 04:41:08 +0000 (+0000)
Subject: (string): New function.
X-Git-Tag: apel-9_5~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=276d6114d1f5f6b7097cd75155eade36c9d04b20;p=elisp%2Fapel.git

(string): New function.
---

diff --git a/poe.el b/poe.el
index f9e8544..4b51c51 100644
--- a/poe.el
+++ b/poe.el
@@ -86,6 +86,16 @@
        (provide 'xemacs)
        (require 'poe-xemacs)
        )
+      ((>= emacs-major-version 20)
+       (require 'poe-19)
+       (cond ((fboundp 'string)
+	      ;; Emacs 20.3 or later
+	      )
+	     ((fboundp 'concat-chars)
+	      ;; Emacs 20.1 or later
+	      (defalias 'string 'concat-chars)
+	      ))
+       )
       ((>= emacs-major-version 19)
        (require 'poe-19)
        )
@@ -338,7 +348,12 @@ This function does not move point."
     (end-of-line)
     (point)))
 
+(defun-maybe string (&rest chars)
+  "Concatenate all the argument characters and make the result a string."
+  (mapconcat (function char-to-string) chars "")
+  )
 
+    
 ;;; @ XEmacs emulation
 ;;;