changeset 21977:fe7ef7cd642a

Cancel the previous change for customization, customized variables are changed to constant.
author Kenichi Handa <handa@m17n.org>
date Thu, 07 May 1998 06:41:35 +0000
parents 42c00d12d8d0
children ba8852d809f6
files lisp/international/ccl.el
diffstat 1 files changed, 12 insertions(+), 25 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ccl.el	Thu May 07 06:41:12 1998 +0000
+++ b/lisp/international/ccl.el	Thu May 07 06:41:35 1998 +0000
@@ -109,15 +109,13 @@
   :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)))
@@ -126,7 +124,7 @@
     (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
@@ -160,11 +158,9 @@
    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
@@ -174,10 +170,7 @@
    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)))
@@ -208,11 +201,9 @@
     (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.
@@ -222,12 +213,10 @@
     (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)))
@@ -236,11 +225,9 @@
     (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)))