From 276d6114d1f5f6b7097cd75155eade36c9d04b20 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 20 Oct 1998 04:41:08 +0000 Subject: [PATCH] (string): New function. --- poe.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 ;;; -- 1.7.10.4