Mercurial > emacs
comparison lisp/international/iso-acc.el @ 21645:40670d13dd48
Customize.
| author | Stephen Eglen <stephen@gnu.org> |
|---|---|
| date | Sat, 18 Apr 1998 16:35:35 +0000 |
| parents | 6f4f7470572b |
| children | 212a00c75674 |
comparison
equal
deleted
inserted
replaced
| 21644:dd9d371a4489 | 21645:40670d13dd48 |
|---|---|
| 66 | 66 |
| 67 ;;; Code: | 67 ;;; Code: |
| 68 | 68 |
| 69 (provide 'iso-acc) | 69 (provide 'iso-acc) |
| 70 | 70 |
| 71 (defvar iso-accents-insert-offset nonascii-insert-offset | 71 (defgroup iso-acc nil |
| 72 "*Offset added by ISO Accents mode to character codes 0200 and above.") | 72 "Minor mode providing electric accent keys." |
| 73 :prefix "iso-accents-" | |
| 74 :group 'i18n) | |
| 75 | |
| 76 (defcustom iso-accents-insert-offset nonascii-insert-offset | |
| 77 "*Offset added by ISO Accents mode to character codes 0200 and above." | |
| 78 :type 'integer | |
| 79 :group 'iso-acc) | |
| 73 | 80 |
| 74 (defvar iso-languages | 81 (defvar iso-languages |
| 75 '(("catalan" | 82 '(("catalan" |
| 76 ;; Note this includes some extra characters used in Spanish, | 83 ;; Note this includes some extra characters used in Spanish, |
| 77 ;; on the idea that someone who uses Catalan is likely to use Spanish | 84 ;; on the idea that someone who uses Catalan is likely to use Spanish |
| 252 Change it with the `iso-accents-customize' function.") | 259 Change it with the `iso-accents-customize' function.") |
| 253 | 260 |
| 254 (defvar iso-accents-list nil | 261 (defvar iso-accents-list nil |
| 255 "Association list for ISO accent combinations, for the chosen language.") | 262 "Association list for ISO accent combinations, for the chosen language.") |
| 256 | 263 |
| 257 (defvar iso-accents-mode nil | 264 (defcustom iso-accents-mode nil |
| 258 "*Non-nil enables ISO Accents mode. | 265 "*Non-nil enables ISO Accents mode. |
| 259 Setting this variable makes it local to the current buffer. | 266 Setting this variable makes it local to the current buffer. |
| 260 See the function `iso-accents-mode'.") | 267 See the function `iso-accents-mode'." |
| 268 :type 'boolean | |
| 269 :group 'iso-acc) | |
| 261 (make-variable-buffer-local 'iso-accents-mode) | 270 (make-variable-buffer-local 'iso-accents-mode) |
| 262 | 271 |
| 263 (defvar iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/) | 272 (defcustom iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/) |
| 264 "*List of accent keys that become prefixes in ISO Accents mode. | 273 "*List of accent keys that become prefixes in ISO Accents mode. |
| 265 The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported | 274 The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported |
| 266 accent keys. If you set this variable to a list in which some of those | 275 accent keys. If you set this variable to a list in which some of those |
| 267 characters are missing, the missing ones do not act as accents. | 276 characters are missing, the missing ones do not act as accents. |
| 268 | 277 |
| 269 Note that if you specify a language with `iso-accents-customize', | 278 Note that if you specify a language with `iso-accents-customize', |
| 270 that can also turn off certain prefixes (whichever ones are not needed in | 279 that can also turn off certain prefixes (whichever ones are not needed in |
| 271 the language you choose).") | 280 the language you choose)." |
| 281 :type '(repeat character) | |
| 282 :group 'iso-acc) | |
| 272 | 283 |
| 273 (defun iso-accents-accent-key (prompt) | 284 (defun iso-accents-accent-key (prompt) |
| 274 "Modify the following character by adding an accent to it." | 285 "Modify the following character by adding an accent to it." |
| 275 ;; Pick up the accent character. | 286 ;; Pick up the accent character. |
| 276 (if (and iso-accents-mode | 287 (if (and iso-accents-mode |