(bat-generic-mode): "::"-style comments don't

[bpt/emacs.git] / lisp / international / iso-acc.el

diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el
index 769d7b4..121e335 100644 (file)
--- 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"
@@ -131,7 +138,8 @@
         (?\  . ?^))
      (?\" (?U . ?\334) (?u . ?\374)
          (?\  . ?\"))
-     (?~ (?A . ?\303) (?O . ?\325) (?a . ?\343) (?o . ?\365)
+     (?~ (?A . ?\303) (?O . ?\325) (?C . ?\307)
+        (?a . ?\343) (?o . ?\365) (?c . ?\347)
         (?\  . ?~))
      (?, (?c . ?\347) (?C . ?\307) (?, . ?,)))
 
@@ -175,6 +183,9 @@
         (?l . ?\345) (?n . ?\361) (?o . ?\363) (?r . ?\340) (?s . ?\266)
         (?u . ?\372) (?y . ?\375) (?z . ?\274)
         (?' . ?\264) (?\  . ?')) 
+     (?, (?S . ?\252) (?T . ?\336)
+        (?s . ?\272) (?t . ?\376)
+        (?\  . ?,))
      (?` (?A . ?\241) (?C . ?\307) (?E . ?\312) (?L . ?\243) (?S . ?\252)
         (?T . ?\336) (?Z . ?\257)
         (?a . ?\261) (?l . ?\263) (?c . ?\347) (?e . ?\352) (?s . ?\272)
@@ -254,13 +265,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 +281,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."