demo

[岡田 健一 / Kenichi OKADA]

おかだです。

In the message "Re: demo"
               <sg1z1e1y7e.wl ＠ vlsi.kuee.kyoto-u.ac.jp>
okada ＠ opaopa.org (岡田 健一 / Kenichi OKADA) wrote:

岡田> もっとも，mel-b-*.elに関してだけ考えれば，
岡田> ccl-execute-eof-block-on-encoding-someで場合分けすればいいと思います．
岡田> ;; そもそもそういう意図で，各種 broken-facilityが設定されてるんだと
岡田> ;; 理解しています．

と思ったら，すでにそうなっていました．失礼しました．

ただ，私のXEmacs 21.1では，ccl-execute-eof-block-on-encoding-someの
挙動自体があやしいです．:)

(require 'pccl)しただけだと，
(broken-p 'ccl-execute-eof-block-on-encoding-some)
は nil になるのに，

(define-ccl-program test-ccl-eof-block
  '(1 ((read r0)
       (write r0)
       (read r0))
      (write "[EOF]")))
(make-ccl-coding-system
 'test-ccl-eof-block-cs ?T "CCL_EOF_BLOCK tester"
 'test-ccl-eof-block 'test-ccl-eof-block)
(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)"
  (equal (decode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
した後だと，

(broken-p 'ccl-execute-eof-block-on-encoding-some)
は t になります．??

-- 
岡田 健一  URLs: mailto:okada ＠ opaopa.org
	   	 http://www.opaopa.org