Cancel the previous change for
authorKenichi Handa <handa@m17n.org>
Thu, 7 May 1998 06:41:35 +0000 (06:41 +0000)
committerKenichi Handa <handa@m17n.org>
Thu, 7 May 1998 06:41:35 +0000 (06:41 +0000)
customization, customized variables are changed to constant.

lisp/international/ccl.el

index 3dcecc1..faff239 100644 (file)
   :prefix "ccl-"
   :group 'i18n)
 
-(defcustom ccl-command-table
+(defconst ccl-command-table
   [if branch loop break repeat write-repeat write-read-repeat
       read read-if read-branch write call end
       read-multibyte-character write-multibyte-character
       unify-character
       iterate-multiple-map translate-multiple-map translate-single-map]
-  "*Vector of CCL commands (symbols)."
-  :type '(vector (repeat :inline t symbol))
-  :group 'ccl)
+  "Vector of CCL commands (symbols).")
 
 ;; Put a property to each symbol of CCL commands for the compiler.
 (let (op (i 0) (len (length ccl-command-table)))
     (put op 'ccl-compile-function (intern (format "ccl-compile-%s" op)))
     (setq i (1+ i))))
 
-(defcustom ccl-code-table
+(defconst ccl-code-table
   [set-register
    set-short-const
    set-const
    read-jump-cond-expr-register
    ex-cmd
    ]
-  "*Vector of CCL compiled codes (symbols)."
-  :type '(vector (repeat :inline t symbol))
-  :group 'ccl)
+  "Vector of CCL compiled codes (symbols).")
 
-(defcustom ccl-extended-code-table
+(defconst ccl-extended-code-table
   [read-multibyte-character
    write-multibyte-character
    unify-character
    translate-multiple-map
    translate-single-map
    ]
-  "Vector of CCL extended compiled codes (symbols)."
-  :type '(vector (repeat :inline t symbol))
-  :group 'ccl
-  :version "20.3")
+  "Vector of CCL extended compiled codes (symbols).")
 
 ;; Put a property to each symbol of CCL codes for the disassembler.
 (let (code (i 0) (len (length ccl-code-table)))
     (put (car l) 'jump-flag t)
     (setq l (cdr l))))
 
-(defcustom ccl-register-table
+(defconst ccl-register-table
   [r0 r1 r2 r3 r4 r5 r6 r7]
-  "*Vector of CCL registers (symbols)."
-  :type '(vector (repeat :inline t symbol))
-  :group 'ccl)
+  "Vector of CCL registers (symbols).")
 
 ;; Put a property to indicate register number to each symbol of CCL.
 ;; registers.
     (put reg 'ccl-register-number i)
     (setq i (1+ i))))
 
-(defcustom ccl-arith-table
+(defconst ccl-arith-table
   [+ - * / % & | ^ << >> <8 >8 // nil nil nil
    < > == <= >= != de-sjis en-sjis]
-  "*Vector of CCL arithmetic/logical operators (symbols)."
-  :type '(vector (repeat :inline t symbol))
-  :group 'ccl)
+  "Vector of CCL arithmetic/logical operators (symbols).")
 
 ;; Put a property to each symbol of CCL operators for the compiler.
 (let (arith (i 0) (len (length ccl-arith-table)))
     (if arith (put arith 'ccl-arith-code i))
     (setq i (1+ i))))
 
-(defcustom ccl-assign-arith-table
+(defconst ccl-assign-arith-table
   [+= -= *= /= %= &= |= ^= <<= >>= <8= >8= //=]
-  "*Vector of CCL assignment operators (symbols)."
-  :type '(vector (repeat :inline t symbol))
-  :group 'ccl)
+  "Vector of CCL assignment operators (symbols).")
 
 ;; Put a property to each symbol of CCL assignment operators for the compiler.
 (let (arith (i 0) (len (length ccl-assign-arith-table)))