Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

update.

  • Loading branch information...
commit 47a5fe40c4df20bcbd94e85e9ecec4b276812b92 1 parent 7cb935f
morioka authored

Showing 2 changed files with 20 additions and 20 deletions. Show diff stats Hide diff stats

  1. +1 8 ChangeLog
  2. +19 12 poem-om.el
9 ChangeLog
... ... @@ -1,10 +1,3 @@
1   -1999-02-04 Katsumi Yamaoka <yamaoka@jpl.org>
2   -
3   - * poem-om.el (poem-ccl-decode-raw-text): Rewrite for fixing a bug
4   - that the last datum will be missed if the input data is not ended
5   - with `CRLF'.
6   - (poem-ccl-encode-raw-text-CRLF): Use `read-if'.
7   -
8 1 1998-12-24 MORIOKA Tomohiko <morioka@jaist.ac.jp>
9 2
10 3 * install.el (install-detect-elisp-directory): Avoid problem if
@@ -1267,7 +1260,7 @@
1267 1260
1268 1261 * APEL: Version 8.4 was released.
1269 1262
1270   - * EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character
  1263 + * EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character
1271 1264 indexing (Emacs 20.3 or later).
1272 1265
1273 1266 1998-04-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
31 poem-om.el
... ... @@ -1,6 +1,6 @@
1 1 ;;; poem-om.el --- poem implementation for Mule 1.* and Mule 2.*
2 2
3   -;; Copyright (C) 1995-1999 Free Software Foundation, Inc.
  3 +;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
4 4
5 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 6 ;; Katsumi Yamaoka <yamaoka@jpl.org>
@@ -51,14 +51,20 @@
51 51
52 52 (define-ccl-program poem-ccl-decode-raw-text
53 53 '(1
54   - (loop
55   - (read-if (r0 == ?\x0d)
56   - (read-if (r1 == ?\x0a)
57   - (write r1)
58   - ((write r0)
59   - (write r1)))
60   - (write r0))
61   - (repeat)))
  54 + ((read r1 r0)
  55 + (loop
  56 + (r2 = (r1 == ?\x0d))
  57 + (r2 &= (r0 == ?\x0a))
  58 + (if r2
  59 + ((write ?\x0a)
  60 + (read r1 r0)
  61 + (repeat))
  62 + ((write r1)
  63 + (r1 = (r0 + 0))
  64 + (read r0)
  65 + (repeat)
  66 + ))))
  67 + (write r1))
62 68 "Convert line-break code from CRLF to LF.")
63 69
64 70 (define-ccl-program poem-ccl-encode-raw-text
@@ -70,9 +76,10 @@
70 76 (define-ccl-program poem-ccl-encode-raw-text-CRLF
71 77 '(2
72 78 ((loop
73   - (read-if (r0 == ?\x0a)
74   - (write "\x0d\x0a")
75   - (write r0))
  79 + (read r0)
  80 + (if (r0 == ?\x0a)
  81 + (write "\x0d\x0a")
  82 + (write r0))
76 83 (repeat))))
77 84 "Convert line-break code from LF to CRLF.")
78 85

0 comments on commit 47a5fe4

Please sign in to comment.
Something went wrong with that request. Please try again.