From: Stephen Eglen Date: Sat, 18 Apr 1998 16:35:35 +0000 (+0000) Subject: Customize. X-Git-Tag: emacs-20.3~1430 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d876a0a0c967cc0ba999f37c9ced2288fa96b55f;p=emacs.git Customize. --- diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index dc21c841fee..6d481f54b0d 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -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))) diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el index 769d7b4c886..5fe8a8f26f4 100644 --- a/lisp/international/iso-acc.el +++ b/lisp/international/iso-acc.el @@ -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." diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el index abed6a37df5..c3e6781fdfb 100644 --- a/lisp/international/iso-ascii.el +++ b/lisp/international/iso-ascii.el @@ -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