projects
/
elisp
/
apel.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* poem-xm.el (char-length): New function.
[elisp/apel.git]
/
poem-xm.el
diff --git
a/poem-xm.el
b/poem-xm.el
index
7f85b96
..
798ce14
100644
(file)
--- 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))
"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
;;;
;;; @ string
;;;
@@
-75,12
+79,16
@@
but the contents viewed as characters do change.
(defun-maybe string-to-int-list (str)
(mapcar #'char-int str))
(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)
;;; @ end
;;;
(defalias 'looking-at-as-unibyte 'looking-at)
;;; @ end
;;;
-(provide 'poem-xm)
+(require 'product)
+(product-provide (provide 'poem-xm) (require 'apel-ver))
;;; poem-xm.el ends here
;;; poem-xm.el ends here