projects / m17n / m17n-db.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 09ee9db)
(init): Use @-1 instead of @- to refer to the
authorhanda <handa>
Thu, 3 Jul 2008 00:47:10 +0000 (00:47 +0000)
committerhanda <handa>
Thu, 3 Jul 2008 00:47:10 +0000 (00:47 +0000)
previous character.

MIM/unicode.mim patch | blob | history

diff --git a/MIM/unicode.mim b/MIM/unicode.mim
index 706ef16..e6f0be8 100644 (file)
--- a/MIM/unicode.mim
+++ b/MIM/unicode.mim
@@ -57,8 +57,8 @@ Start typing hexadecimal numbers of Unicode character.")
   (starter (set code 0) (set count 0) (shift uni-hex)))
 
  (uni-hex
-  (hex (set this @-)
-       (cond ((< @- ?A) (sub this 48))
+  (hex (set this @-1)
+       (cond ((< @-1 ?A) (sub this 48))
             (1 (sub this 55)))
        (set code (+ (* code 16) this))
        (set count (+ count 1))