projects
/
elisp
/
apel.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove the description about developers' pserver access.
[elisp/apel.git]
/
poem-xm.el
diff --git
a/poem-xm.el
b/poem-xm.el
index
7dd4244
..
0ad4943
100644
(file)
--- a/
poem-xm.el
+++ b/
poem-xm.el
@@
-68,6
+68,13
@@
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))
+(if (not (fboundp 'char-length))
+ (defalias 'char-length
+ (lambda (char)
+ "Return number of bytes a CHARACTER occupies in a string or buffer.
+It always returns 1 in XEmacs. It is for compatibility with MULE 2.3."
+ 1)))
+
;;; @ string
;;;
;;; @ string
;;;
@@
-75,6
+82,9
@@
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)
(defalias 'looking-at-as-unibyte 'looking-at)