Commit d876a0a0 authored by Stephen Eglen's avatar Stephen Eglen

Customize.

parent 0e9b2517
......@@ -100,13 +100,20 @@
;;; Code:
(defconst ccl-command-table
(defgroup ccl nil
"CCL (Code Conversion Language) compiler."
:prefix "ccl-"
:group 'i18n)
(defcustom 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).")
"*Vector of CCL commands (symbols)."
:type '(vector (repeat :inline t symbol))
:group 'ccl)
;; Put a property to each symbol of CCL commands for the compiler.
(let (op (i 0) (len (length ccl-command-table)))
......@@ -115,7 +122,7 @@
(put op 'ccl-compile-function (intern (format "ccl-compile-%s" op)))
(setq i (1+ i))))
(defconst ccl-code-table
(defcustom ccl-code-table
[set-register
set-short-const
set-const
......@@ -149,9 +156,11 @@
read-jump-cond-expr-register
ex-cmd
]
"*Vector of CCL compiled codes (symbols).")
"*Vector of CCL compiled codes (symbols)."
:type '(vector (repeat :inline t symbol))
:group 'ccl)
(defconst ccl-extended-code-table
(defcustom ccl-extended-code-table
[read-multibyte-character
write-multibyte-character
unify-character
......@@ -161,7 +170,9 @@
translate-multiple-map
translate-single-map
]
"Vector of CCL extended compiled codes (symbols).")
"Vector of CCL extended compiled codes (symbols)."
:type '(vector (repeat :inline t symbol))
:group 'ccl)
;; Put a property to each symbol of CCL codes for the disassembler.
(let (code (i 0) (len (length ccl-code-table)))
......@@ -192,9 +203,11 @@
(put (car l) 'jump-flag t)
(setq l (cdr l))))
(defconst ccl-register-table
(defcustom ccl-register-table
[r0 r1 r2 r3 r4 r5 r6 r7]
"*Vector of CCL registers (symbols).")
"*Vector of CCL registers (symbols)."
:type '(vector (repeat :inline t symbol))
:group 'ccl)
;; Put a property to indicate register number to each symbol of CCL.
;; registers.
......@@ -204,10 +217,12 @@
(put reg 'ccl-register-number i)
(setq i (1+ i))))
(defconst ccl-arith-table
(defcustom ccl-arith-table
[+ - * / % & | ^ << >> <8 >8 // nil nil nil
< > == <= >= != de-sjis en-sjis]
"*Vector of CCL arithmetic/logical operators (symbols).")
"*Vector of CCL arithmetic/logical operators (symbols)."
:type '(vector (repeat :inline t symbol))
:group 'ccl)
;; Put a property to each symbol of CCL operators for the compiler.
(let (arith (i 0) (len (length ccl-arith-table)))
......@@ -216,9 +231,11 @@
(if arith (put arith 'ccl-arith-code i))
(setq i (1+ i))))
(defconst ccl-assign-arith-table
(defcustom ccl-assign-arith-table
[+= -= *= /= %= &= |= ^= <<= >>= <8= >8= //=]
"*Vector of CCL assignment operators (symbols).")
"*Vector of CCL assignment operators (symbols)."
:type '(vector (repeat :inline t symbol))
:group 'ccl)
;; Put a property to each symbol of CCL assignment operators for the compiler.
(let (arith (i 0) (len (length ccl-assign-arith-table)))
......
......@@ -68,8 +68,15 @@
(provide 'iso-acc)
(defvar iso-accents-insert-offset nonascii-insert-offset
"*Offset added by ISO Accents mode to character codes 0200 and above.")
(defgroup iso-acc nil
"Minor mode providing electric accent keys."
:prefix "iso-accents-"
:group 'i18n)
(defcustom iso-accents-insert-offset nonascii-insert-offset
"*Offset added by ISO Accents mode to character codes 0200 and above."
:type 'integer
:group 'iso-acc)
(defvar iso-languages
'(("catalan"
......@@ -254,13 +261,15 @@ Change it with the `iso-accents-customize' function.")
(defvar iso-accents-list nil
"Association list for ISO accent combinations, for the chosen language.")
(defvar iso-accents-mode nil
(defcustom iso-accents-mode nil
"*Non-nil enables ISO Accents mode.
Setting this variable makes it local to the current buffer.
See the function `iso-accents-mode'.")
See the function `iso-accents-mode'."
:type 'boolean
:group 'iso-acc)
(make-variable-buffer-local 'iso-accents-mode)
(defvar iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/)
(defcustom iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/)
"*List of accent keys that become prefixes in ISO Accents mode.
The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported
accent keys. If you set this variable to a list in which some of those
......@@ -268,7 +277,9 @@ characters are missing, the missing ones do not act as accents.
Note that if you specify a language with `iso-accents-customize',
that can also turn off certain prefixes (whichever ones are not needed in
the language you choose).")
the language you choose)."
:type '(repeat character)
:group 'iso-acc)
(defun iso-accents-accent-key (prompt)
"Modify the following character by adding an accent to it."
......
......@@ -35,8 +35,15 @@
(require 'disp-table)
(defvar iso-ascii-convenient nil
"*Non-nil means `iso-ascii' should aim for convenience, not precision.")
(defgroup iso-ascii nil
"Set up char tables for ISO 8859/1 on ASCII terminals."
:prefix "iso-ascii-"
:group 'i18n)
(defcustom iso-ascii-convenient nil
"*Non-nil means `iso-ascii' should aim for convenience, not precision."
:type 'boolean
:group 'iso-ascii)
(defun iso-ascii-display (code string &optional convenient-string)
(if iso-ascii-convenient
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment