* pccl-om.el (ccl-cascading-read): New facility.

[elisp/apel.git] / pccl-om.el

diff --git a/pccl-om.el b/pccl-om.el
index 40e2080..bb9204e 100644 (file)
--- a/pccl-om.el
+++ b/pccl-om.el
@@ -114,6 +114,15 @@ If CCL-PROG is symbol, it is dereferenced.
           (broken-p 'ccl-execute-eof-block-on-decoding)))
   t)
 
+(broken-facility ccl-cascading-read
+  "Emacs CCL read command does not accept more than 2 arguments."
+  (condition-case nil
+      (progn
+        (define-ccl-program cascading-read-test
+          '(1
+            (read r0 r1 r2)))
+        t)
+    (error nil)))
 
 ;;; @ end
 ;;;