projects
/
elisp
/
apel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7ec0ed6
)
* pccl-om.el (ccl-cascading-read): New facility.
author
akr
<akr>
Thu, 12 Nov 1998 07:00:50 +0000
(07:00 +0000)
committer
akr
<akr>
Thu, 12 Nov 1998 07:00:50 +0000
(07:00 +0000)
ChangeLog
patch
|
blob
|
history
pccl-om.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
280728d
..
f5a3459
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,5
+1,9
@@
1998-11-10 Tanaka Akira <akr@jaist.ac.jp>
1998-11-10 Tanaka Akira <akr@jaist.ac.jp>
+ * pccl-om.el (ccl-cascading-read): New facility.
+
+1998-11-10 Tanaka Akira <akr@jaist.ac.jp>
+
* EMU-ELS (emu-modules): Always install 'pccl.
* broken.el: Use 19.28 style quasi-quote.
* EMU-ELS (emu-modules): Always install 'pccl.
* broken.el: Use 19.28 style quasi-quote.
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-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
;;;
;;; @ end
;;;