Permalink
Browse files

* poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el

(save-buffer-as-binary): New function.
(save-buffer-as-raw-text-CRLF): New function.
(save-buffer-as-coding-system): New function.

* poem-om.el (poem-ccl-decode-raw-text): Rewrite again for plural `CR's.

It will be tagged with "apel-mcs-2-199902041200".
  • Loading branch information...
1 parent 19469cd commit 49632c821d39f4e5f804edfd94fa8a3b103b247a yamaoka committed Feb 4, 1999
Showing with 28 additions and 43 deletions.
  1. +0 −16 ChangeLog
  2. +1 −1 README.en
  3. +1 −1 README.ja
  4. +1 −2 install.el
  5. +14 −14 mcs-e20.el
  6. +4 −4 pccl-20.el
  7. +7 −5 pccl.el
View
@@ -1,19 +1,3 @@
-1999-02-13 Tanaka Akira <akr@jaist.ac.jp>
-
- * mcs-e20.el (charsets-mime-charset-alist): Don't set up
- `iso-2022-int-1' in default.
-
-1999-02-11 Tanaka Akira <akr@jaist.ac.jp>
-
- * README.en, README.ja, pccl.el: pccl does not support Mule 1.x.
-
- * pccl-20.el: Update broken facility message with Emacs version
- it fixes.
-
-1999-02-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * install.el (install-prefix): Modify for Meadow.
-
1999-02-04 Katsumi Yamaoka <yamaoka@jpl.org>
* poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el
View
@@ -38,7 +38,7 @@ What's APEL?
broken.el --- provide information of broken facilities of Emacs.
pccl.el --- utility to write portable CCL program
- pccl-om.el --- for MULE 2.*
+ pccl-om.el --- for MULE 1.*, 2.*
pccl-20.el --- for Emacs 20/XEmacs-21-MULE
alist.el: utility for Association-list
View
@@ -38,7 +38,7 @@ APEL $B$H$O!)(B
broken.el --- Emacs $B$N2u$l$F$$$k5!G=$N>pJs$rDs6!$9$k(B
pccl.el --- $B0\?"2DG=$J(B CCL $B%W%m%0%i%`$r=q$/$?$a$N%f!<%F%#%j%F%#!<(B
- pccl-om.el --- MULE 2.* $BMQ(B
+ pccl-om.el --- MULE 1.*, 2.* $BMQ(B
pccl-20.el --- Emacs 20/XEmacs-21-MULE $BMQ(B
alist.el: $BO"A[%j%9%H$N$?$a$N%f!<%F%#%j%F%#!<(B
View
@@ -142,8 +142,7 @@
;;;
(defvar install-prefix
- (if (or running-emacs-18 running-xemacs
- (string= system-configuration-options "NT")) ; for Meadow
+ (if (or running-emacs-18 running-xemacs)
(expand-file-name "../../.." exec-directory)
(expand-file-name "../../../.." data-directory)
)) ; install to shared directory (maybe "/usr/local")
View
@@ -85,20 +85,20 @@
latin-jisx0201 japanese-jisx0208-1978
chinese-gb2312 japanese-jisx0208
korean-ksc5601 japanese-jisx0212) . iso-2022-jp-2)
-; ((ascii latin-iso8859-1 greek-iso8859-7
-; latin-jisx0201 japanese-jisx0208-1978
-; chinese-gb2312 japanese-jisx0208
-; korean-ksc5601 japanese-jisx0212
-; chinese-cns11643-1 chinese-cns11643-2) . iso-2022-int-1)
-; ((ascii latin-iso8859-1 latin-iso8859-2
-; cyrillic-iso8859-5 greek-iso8859-7
-; latin-jisx0201 japanese-jisx0208-1978
-; chinese-gb2312 japanese-jisx0208
-; korean-ksc5601 japanese-jisx0212
-; chinese-cns11643-1 chinese-cns11643-2
-; chinese-cns11643-3 chinese-cns11643-4
-; chinese-cns11643-5 chinese-cns11643-6
-; chinese-cns11643-7) . iso-2022-int-1)
+ ((ascii latin-iso8859-1 greek-iso8859-7
+ latin-jisx0201 japanese-jisx0208-1978
+ chinese-gb2312 japanese-jisx0208
+ korean-ksc5601 japanese-jisx0212
+ chinese-cns11643-1 chinese-cns11643-2) . iso-2022-int-1)
+ ((ascii latin-iso8859-1 latin-iso8859-2
+ cyrillic-iso8859-5 greek-iso8859-7
+ latin-jisx0201 japanese-jisx0208-1978
+ chinese-gb2312 japanese-jisx0208
+ korean-ksc5601 japanese-jisx0212
+ chinese-cns11643-1 chinese-cns11643-2
+ chinese-cns11643-3 chinese-cns11643-4
+ chinese-cns11643-5 chinese-cns11643-6
+ chinese-cns11643-7) . iso-2022-int-1)
))
View
@@ -114,19 +114,19 @@ If CCL-PROG is symbol, it is dereferenced.
)
(broken-facility ccl-execute-eof-block-on-encoding-null
- "Emacs forgets executing CCL_EOF_BLOCK with encoding on empty input. (Fixed on Emacs 20.4)"
+ "Emacs forgets executing CCL_EOF_BLOCK with encoding on empty input."
(equal (encode-coding-string "" 'test-ccl-eof-block-cs) "[EOF]"))
(broken-facility ccl-execute-eof-block-on-encoding-some
- "Emacs forgets executing CCL_EOF_BLOCK with encoding on non-empty input. (Fixed on Emacs 20.3)"
+ "Emacs forgets executing CCL_EOF_BLOCK with encoding on non-empty input."
(equal (encode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
(broken-facility ccl-execute-eof-block-on-decoding-null
- "Emacs forgets executing CCL_EOF_BLOCK with decoding on empty input. (Fixed on Emacs 20.4)"
+ "Emacs forgets executing CCL_EOF_BLOCK with decoding on empty input."
(equal (decode-coding-string "" 'test-ccl-eof-block-cs) "[EOF]"))
(broken-facility ccl-execute-eof-block-on-decoding-some
- "Emacs forgets executing CCL_EOF_BLOCK with decoding on non-empty input. (Fixed on Emacs 20.4)"
+ "Emacs forgets executing CCL_EOF_BLOCK with decoding on non-empty input."
(equal (decode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
(broken-facility ccl-execute-eof-block-on-encoding
View
12 pccl.el
@@ -1,4 +1,4 @@
-;;; pccl.el --- Portable CCL utility for Mule 2.*
+;;; pccl.el --- Portable CCL utility for Mule 1.* and Mule 2.*
;; Copyright (C) 1998 Free Software Foundation, Inc.
@@ -26,12 +26,14 @@
(require 'broken)
+;; The condition for non-XEmacs mule t may be wrong.
+;; But I don't know exact version which introduce CCL on mule.
(broken-facility ccl-usable
- "Emacs has not CCL."
+ "Emacs has CCL."
(and (featurep 'mule)
(if (featurep 'xemacs)
(>= emacs-major-version 21)
- (>= emacs-major-version 19))))
+ t)))
(unless-broken ccl-usable
(require 'ccl)
@@ -40,12 +42,12 @@
(if (featurep 'mule)
(if (featurep 'xemacs)
(if (>= emacs-major-version 21)
- ;; for XEmacs 21 with mule
+ ;; for XEmacs-21-mule
(require 'pccl-20))
(if (>= emacs-major-version 20)
;; for Emacs 20
(require 'pccl-20)
- ;; for Mule 2.*
+ ;; for MULE 1.* and 2.*
(require 'pccl-om))))
(defadvice define-ccl-program

0 comments on commit 49632c8

Please sign in to comment.