;; Function `iso-accents-mode' activates a minor mode in which
;; typewriter "dead keys" are emulated. The purpose of this emulation
;; is to provide a simple means for inserting accented characters
-;; according to the ISO-8859-1 character set.
+;; according to the ISO-8859-1...3 character sets.
;;
;; In `iso-accents-mode', pseudo accent characters are used to
;; introduce accented keys. The pseudo-accent characters are:
;; ^ (caret) -> circumflex
;; ~ (tilde) -> tilde over the character
;; / (slash) -> slash through the character.
-;; Also: /A is A-with-ring and /E is AE ligature.
+;; Also: /A is A-with-ring and /E is AE ligature.
+;; These two are enabled only if you set iso-accents-enable
+;; to include them:
+;; . (period) -> dot over the character (some languages only)
+;; , (cedilla) -> cedilla under the character (some languages only)
;;
;; The action taken depends on the key that follows the pseudo accent.
;; In general:
;;
;; pseudo-accent + appropriate letter -> accented letter
-;; pseudo-accent + space -> pseudo-accent
+;; pseudo-accent + space -> pseudo-accent (except comma and period)
;; pseudo-accent + pseudo-accent -> accent (if available)
;; pseudo-accent + other -> pseudo-accent + other
;;
(provide 'iso-acc)
+(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"
+ ;; Note this includes some extra characters used in Spanish,
+ ;; on the idea that someone who uses Catalan is likely to use Spanish
+ ;; as well.
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
- (?C . ?\307) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
- (?u . ?\372) (?c . ?\347) (?\ . ?'))
- (?` (?A . ?\300) (?E . ?\310) (?I . ?\314) (?O . ?\322) (?U . ?\331)
- (?a . ?\340) (?e . ?\350) (?i . ?\354) (?o . ?\362) (?u . ?\371)
+ (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
+ (?\ . ?'))
+ (?` (?A . ?\300) (?E . ?\310) (?O . ?\322)
+ (?a . ?\340) (?e . ?\350) (?o . ?\362)
(?\ . ?`))
- (?\" (?U . ?\334) (?u . ?\374) (?\ . ?\"))
- (?\~ (?C . ?\307) (?N . ?\321) (?c . ?\347) (?n . ?\361)
- (?t . ?\376) (?> . ?\273) (?< . ?\253) (?! . ?\241) (?? . ?\277)
- (?\ . ?\~)))
+ (?\" (?I . ?\317) (?U . ?\334) (?i . ?\357) (?u . ?\374)
+ (?\ . ?\"))
+ (?~ (?C . ?\307) (?N . ?\321) (?c . ?\347) (?n . ?\361)
+ (?> . ?\273) (?< . ?\253) (?! . ?\241) (?? . ?\277)
+ (?\ . ?\~)))
("esperanto"
(?^ (?H . ?\246) (?J . ?\254) (?h . ?\266) (?j . ?\274) (?C . ?\306)
(?~ (?U . ?\335) (?u . ?\375) (?\ . ?~)))
("french"
- (?' (?E . ?\311) (?C . ?\307) (?e . ?\351) (?c . ?\347) (?\ . ?'))
+ (?' (?E . ?\311) (?C . ?\307) (?e . ?\351) (?c . ?\347)
+ (?\ . ?'))
(?` (?A . ?\300) (?E . ?\310) (?U . ?\331)
- (?a . ?\340) (?e . ?\350) (?u . ?\371) (?\ . ?`))
+ (?a . ?\340) (?e . ?\350) (?u . ?\371)
+ (?\ . ?`))
(?^ (?A . ?\302) (?E . ?\312) (?I . ?\316) (?O . ?\324) (?U . ?\333)
(?a . ?\342) (?e . ?\352) (?i . ?\356) (?o . ?\364) (?u . ?\373)
(?\ . ?^))
(?\" (?E . ?\313) (?I . ?\317)
- (?e . ?\353) (?i . ?\357) (?\ . ?\"))
- (?\~ (?< . ?\253) (?> . ?\273) (?C . ?\307) (?c . ?\347) (?\ . ?\~)))
+ (?e . ?\353) (?i . ?\357)
+ (?\ . ?\"))
+ (?~ (?< . ?\253) (?> . ?\273) (?C . ?\307) (?c . ?\347)
+ (?, . ?,))
+ (?, (?C . ?\307) (?c . ?\347) (?\ . ?\~)))
("german"
(?\" (?A . ?\304) (?O . ?\326) (?U . ?\334)
(?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
(?\ . ?')))
+ ("portuguese"
+ (?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
+ (?C . ?\307) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
+ (?u . ?\372) (?c . ?\347)
+ (?\ . ?'))
+ (?` (?A . ?\300) (?a . ?\340)
+ (?\ . ?`))
+ (?^ (?A . ?\302) (?E . ?\312) (?O . ?\324)
+ (?a . ?\342) (?e . ?\352) (?o . ?\364)
+ (?\ . ?^))
+ (?\" (?U . ?\334) (?u . ?\374)
+ (?\ . ?\"))
+ (?~ (?A . ?\303) (?O . ?\325) (?C . ?\307)
+ (?a . ?\343) (?o . ?\365) (?c . ?\347)
+ (?\ . ?~))
+ (?, (?c . ?\347) (?C . ?\307) (?, . ?,)))
+
+ ("spanish"
+ (?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
+ (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
+ (?\ . ?'))
+ (?\" (?U . ?\334) (?u . ?\374) (?\ . ?\"))
+ (?\~ (?N . ?\321) (?n . ?\361) (?> . ?\273) (?< . ?\253) (?! . ?\241)
+ (?? . ?\277) (?\ . ?\~)))
+
("latin-1"
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
(?Y . ?\335) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
- (?u . ?\372) (?y . ?\375) (?' . ?\264) (?\ . ?'))
+ (?u . ?\372) (?y . ?\375) (?' . ?\264)
+ (?\ . ?'))
(?` (?A . ?\300) (?E . ?\310) (?I . ?\314) (?O . ?\322) (?U . ?\331)
(?a . ?\340) (?e . ?\350) (?i . ?\354) (?o . ?\362) (?u . ?\371)
(?` . ?`) (?\ . ?`))
(?^ . ?^) (?\ . ?^))
(?\" (?A . ?\304) (?E . ?\313) (?I . ?\317) (?O . ?\326) (?U . ?\334)
(?a . ?\344) (?e . ?\353) (?i . ?\357) (?o . ?\366) (?s . ?\337)
- (?u . ?\374) (?y . ?\377) (?\" . ?\250) (?\ . ?\"))
- (?\~ (?A . ?\303) (?C . ?\307) (?D . ?\320) (?N . ?\321) (?O . ?\325)
- (?T . ?\336) (?a . ?\343) (?c . ?\347) (?d . ?\360) (?n . ?\361)
- (?o . ?\365) (?t . ?\376) (?> . ?\273) (?< . ?\253) (?\~ . ?\270)
- (?! . ?\241) (?? . ?\277)
- (?\ . ?\~))
- (?\/ (?A . ?\305) (?E . ?\306) (?O . ?\330) (?a . ?\345) (?e . ?\346)
- (?o . ?\370) (?\/ . ?\260) (?\ . ?\/)))
-
- ("latin-2"
+ (?u . ?\374) (?y . ?\377)
+ (?\" . ?\250) (?\ . ?\"))
+ (?~ (?A . ?\303) (?C . ?\307) (?D . ?\320) (?N . ?\321) (?O . ?\325)
+ (?T . ?\336) (?a . ?\343) (?c . ?\347) (?d . ?\360) (?n . ?\361)
+ (?o . ?\365) (?t . ?\376)
+ (?> . ?\273) (?< . ?\253) (?! . ?\241) (?? . ?\277)
+ (?\~ . ?\270) (?\ . ?~))
+ (?/ (?A . ?\305) (?E . ?\306) (?O . ?\330) (?a . ?\345) (?e . ?\346)
+ (?o . ?\370)
+ (?/ . ?\260) (?\ . ?/)))
+
+ ("latin-2" latin-iso8859-2
(?' (?A . ?\301) (?C . ?\306) (?D . ?\320) (?E . ?\311) (?I . ?\315)
(?L . ?\305) (?N . ?\321) (?O . ?\323) (?R . ?\300) (?S . ?\246)
- (?U . ?\332) (?Y . ?\335) (?Z . ?\254) (?a . ?\341) (?c . ?\346)
- (?d . ?\360) (?e . ?\351) (?i . ?\355) (?l . ?\345) (?n . ?\361)
- (?o . ?\363) (?r . ?\340) (?s . ?\266) (?u . ?\372) (?y . ?\375)
- (?z . ?\274) (?' . ?\264) (?\ . ?'))
+ (?U . ?\332) (?Y . ?\335) (?Z . ?\254)
+ (?a . ?\341) (?c . ?\346) (?d . ?\360) (?e . ?\351) (?i . ?\355)
+ (?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) (?t . ?\376) (?z . ?\277) (?` . ?\252)
+ (?T . ?\336) (?Z . ?\257)
+ (?a . ?\261) (?l . ?\263) (?c . ?\347) (?e . ?\352) (?s . ?\272)
+ (?t . ?\376) (?z . ?\277)
+ (?` . ?\252)
(?. . ?\377) (?\ . ?`))
- (?^ (?A . ?\302) (?O . ?\324) (?a . ?\342) (?o . ?\364)
+ (?^ (?A . ?\302) (?I . ?\316) (?O . ?\324)
+ (?a . ?\342) (?i . ?\356) (?o . ?\364)
(?^ . ?^) ; no special code?
(?\ . ?^))
- (?\" (?A . ?\304) (?E . ?\313) (?O . ?\326) (?U . ?\334) (?a . ?\344)
- (?e . ?\353) (?o . ?\366) (?s . ?\337) (?u . ?\374) (?\" . ?\250)
+ (?\" (?A . ?\304) (?E . ?\313) (?O . ?\326) (?U . ?\334)
+ (?a . ?\344) (?e . ?\353) (?o . ?\366) (?s . ?\337) (?u . ?\374)
+ (?\" . ?\250)
(?\ . ?\"))
- (?\~ (?A . ?\303) (?C . ?\310) (?D . ?\317) (?L . ?\245) (?N . ?\322)
- (?O . ?\325) (?R . ?\330) (?S . ?\251) (?T . ?\253) (?U . ?\333)
- (?Z . ?\256) (?a . ?\323) (?c . ?\350) (?d . ?\357) (?l . ?\265)
- (?n . ?\362) (?o . ?\365) (?r . ?\370) (?s . ?\271) (?t . ?\273)
- (?u . ?\373) (?z . ?\276)
- (?v . ?\242) ; v accent
- (?\~ . ?\242) ; v accent
- (?\. . ?\270) ; cedilla accent
- (?\ . ?\~)))
-
- ("latin-3"
+ (?~ (?A . ?\303) (?C . ?\310) (?D . ?\317) (?L . ?\245) (?N . ?\322)
+ (?O . ?\325) (?R . ?\330) (?S . ?\251) (?T . ?\253) (?U . ?\333)
+ (?Z . ?\256)
+ (?a . ?\343) (?c . ?\350) (?d . ?\357) (?l . ?\265) (?n . ?\362)
+ (?o . ?\365) (?r . ?\370) (?s . ?\271) (?t . ?\273) (?u . ?\373)
+ (?z . ?\276)
+ (?v . ?\242) ; v accent
+ (?\~ . ?\242) ; v accent
+ (?\. . ?\270) ; cedilla accent
+ (?\ . ?~)))
+
+ ("latin-3" latin-iso8859-3
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
(?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
(?' . ?\264) (?\ . ?'))
(?` (?A . ?\300) (?E . ?\310) (?I . ?\314) (?O . ?\322) (?U . ?\331)
(?a . ?\340) (?e . ?\350) (?i . ?\354) (?o . ?\362) (?u . ?\371)
(?` . ?`) (?\ . ?`))
- (?^ (?A . ?\302) (?E . ?\312) (?I . ?\316) (?O . ?\324) (?U . ?\333)
- (?a . ?\342) (?e . ?\352) (?i . ?\356) (?o . ?\364) (?u . ?\373)
- (?H . ?\246) (?J . ?\254) (?h . ?\266) (?j . ?\274) (?C . ?\306)
- (?G . ?\330) (?S . ?\336) (?c . ?\346) (?g . ?\370) (?s . ?\376)
+ (?^ (?A . ?\302) (?C . ?\306) (?E . ?\312) (?G . ?\330) (?H . ?\246)
+ (?I . ?\316) (?J . ?\254) (?O . ?\324) (?S . ?\336) (?U . ?\333)
+ (?a . ?\342) (?c . ?\346) (?e . ?\352) (?g . ?\370) (?h . ?\266)
+ (?i . ?\356) (?j . ?\274) (?o . ?\364) (?s . ?\376) (?u . ?\373)
(?^ . ?^) (?\ . ?^))
(?\" (?A . ?\304) (?E . ?\313) (?I . ?\317) (?O . ?\326) (?U . ?\334)
- (?a . ?\344) (?e . ?\353) (?i . ?\357) (?o . ?\366) (?s . ?\337)
- (?u . ?\374) (?\" . ?\250) (?\ . ?\"))
+ (?a . ?\344) (?e . ?\353) (?i . ?\357) (?o . ?\366) (?u . ?\374)
+ (?s . ?\337)
+ (?\" . ?\250) (?\ . ?\"))
(?~ (?A . ?\303) (?C . ?\307) (?D . ?\320) (?N . ?\321) (?O . ?\325)
(?a . ?\343) (?c . ?\347) (?d . ?\360) (?n . ?\361) (?o . ?\365)
(?$ . ?\245) (?S . ?\252) (?s . ?\272) (?G . ?\253) (?g . ?\273)
- (?U . ?\335) (?u . ?\375) (?` . ?\242) (?~ . ?\270) (?\ . ?~))
- (?/ (?H . ?\241) (?# . ?\243) (?$ . ?\244) (?r . ?\256) (?h . ?\261)
- (?I . ?\251) (?Z . ?\257) (?i . ?\271) (?z . ?\277) (?C . ?\305)
- (?G . ?\325) (?c . ?\345) (?g . ?\365) (?. . ?\377) (?/ . ?\260)
- (?\ . ?/)))
-
- ("portuguese"
- (?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
- (?C . ?\307) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
- (?u . ?\372) (?c . ?\347) (?\ . ?'))
- (?` (?A . ?\300) (?a . ?\340) (?\ . ?`))
- (?^ (?A . ?\302) (?E . ?\312) (?O . ?\324) (?a . ?\342) (?e . ?\352)
- (?o . ?\364) (?\ . ?^))
- (?\" (?U . ?\334) (?u . ?\374) (?\ . ?\"))
- (?\~ (?A . ?\303) (?O . ?\325) (?a . ?\343) (?o . ?\365) (?\ . ?\~)))
-
- ("spanish"
- (?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
- (?C . ?\307) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
- (?u . ?\372) (?c . ?\347) (?\ . ?'))
- (?\" (?U . ?\334) (?u . ?\374) (?\ . ?\"))
- (?\~ (?N . ?\321) (?n . ?\361) (?t . ?\376) (?> . ?\273) (?< . ?\253)
- (?! . ?\241) (?? . ?\277) (?\ . ?\~))))
+ (?U . ?\335) (?u . ?\375) (?` . ?\242)
+ (?~ . ?\270) (?\ . ?~))
+ (?/ (?C . ?\305) (?G . ?\325) (?H . ?\241) (?I . ?\251) (?Z . ?\257)
+ (?c . ?\345) (?g . ?\365) (?h . ?\261) (?i . ?\271) (?z . ?\277)
+ (?r . ?\256)
+ (?. . ?\377) (?# . ?\243) (?$ . ?\244)
+ (?/ . ?\260) (?\ . ?/))
+ (?. (?C . ?\305) (?G . ?\325) (?I . ?\251) (?Z . ?\257)
+ (?c . ?\345) (?g . ?\365) (?z . ?\277))))
"List of language-specific customizations for the ISO Accents mode.
Each element of the list is of the form
- (LANGUAGE
+ (LANGUAGE [CHARSET]
(PSEUDO-ACCENT MAPPINGS)
(PSEUDO-ACCENT MAPPINGS)
...)
LANGUAGE is a string naming the language.
+CHARSET (which may be omitted) is the symbol name
+ of the character set used in this language.
+ If CHARSET is omitted, latin-iso8859-1 is the default.
PSEUDO-ACCENT is a char specifying an accent key.
MAPPINGS are cons cells of the form (CHAR . ISO-CHAR).
(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
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."
(entry (cdr (assq second-char list))))
(if entry
;; Found it: return the mapped char
- (vector entry)
+ (vector
+ (if (and enable-multibyte-characters
+ (>= entry ?\200))
+ (+ iso-accents-insert-offset entry)
+ entry))
;; Otherwise, advance and schedule the second key for execution.
- (setq unread-command-events (list second-char))
+ (setq unread-command-events
+ (cons (list second-char) unread-command-events))
(vector first-char))))
;; It is a matter of taste if you want the minor mode indicated
;; in the mode line...
;; If so, uncomment the next four lines.
-;; (or (assq 'iso-accents-mode minor-mode-map-alist)
+;; (or (assq 'iso-accents-mode minor-mode-alist)
;; (setq minor-mode-alist
;; (append minor-mode-alist
;; '((iso-accents-mode " ISO-Acc")))))
It selects the customization based on the specifications in the
`iso-languages' variable."
(interactive (list (completing-read "Language: " iso-languages nil t)))
- (let ((table (assoc language iso-languages))
+ (let ((table (cdr (assoc language iso-languages)))
all-accents tail)
(if (not table)
- (error "Unknown language '%s'" language)
+ (error "Unknown language `%s'" language)
+ (setq iso-accents-insert-offset (- (make-char (if (symbolp (car table))
+ (car table)
+ 'latin-iso8859-1))
+ 128))
+ (if (symbolp (car table))
+ (setq table (cdr table)))
(setq iso-language language
- iso-accents-list (cdr table))
+ iso-accents-list table)
(if key-translation-map
(substitute-key-definition
'iso-accents-accent-key nil key-translation-map)