projects
/
elisp
/
apel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f356d68
)
(make-ccl-coding-system): New function.
author
morioka
<morioka>
Thu, 17 Sep 1998 04:29:02 +0000
(
04:29
+0000)
committer
morioka
<morioka>
Thu, 17 Sep 1998 04:29:02 +0000
(
04:29
+0000)
emu-x20.el
patch
|
blob
|
history
diff --git
a/emu-x20.el
b/emu-x20.el
index
82aa624
..
48154f7
100644
(file)
--- a/
emu-x20.el
+++ b/
emu-x20.el
@@
-74,6
+74,17
@@
eol-type nil)))
+;;; @ CCL
+;;;
+
+(defun make-ccl-coding-system (name mnemonic doc-string decoder encoder)
+ (make-coding-system
+ name 'ccl doc-string
+ (list 'mnemonic (char-to-string mnemonic)
+ 'decode (symbol-value decoder)
+ 'encode (symbol-value encoder))))
+
+
;;; @ without code-conversion
;;;