From b9df31cdeaabe9aa2d963949e3d5d1e1dab9d92d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 15 Apr 2002 01:45:34 +0000 Subject: [PATCH] * poem-xm.el (char-length): New function. (string-to-char-list): New function. --- ChangeLog | 5 +++++ poem-xm.el | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/ChangeLog b/ChangeLog index b09d4ef..f1e382f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-04-15 Katsumi Yamaoka + + * poem-xm.el (char-length): New function. + (string-to-char-list): New function. + 2002-03-04 Katsumi Yamaoka * pym.el: Add a note that `def*-maybe' might not provide functions diff --git a/poem-xm.el b/poem-xm.el index 7dd4244..798ce14 100644 --- a/poem-xm.el +++ b/poem-xm.el @@ -68,6 +68,10 @@ but the contents viewed as characters do change. "Return index of character succeeding CHAR whose index is INDEX." `(1+ ,index)) +(defun-maybe char-length (char) + "Return indexing length of multi-byte form of CHAR." + 1) + ;;; @ string ;;; @@ -75,6 +79,9 @@ but the contents viewed as characters do change. (defun-maybe string-to-int-list (str) (mapcar #'char-int str)) +(defun-maybe string-to-char-list (str) + (mapcar #'identity str)) + (defalias 'looking-at-as-unibyte 'looking-at) -- 1.7.10.4