1 ;;; iso-acc.el --- minor mode providing electric accent keys
3 ;; Copyright (C) 1993, 1994, 1996, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
6 ;; Author: Johan Vromans
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27 ;; This file has been obsolete since Emacs 22.1.
29 ;; Function `iso-accents-mode' activates a minor mode in which
30 ;; typewriter "dead keys" are emulated. The purpose of this emulation
31 ;; is to provide a simple means for inserting accented characters
32 ;; according to the ISO-8859-1...3 character sets.
34 ;; In `iso-accents-mode', pseudo accent characters are used to
35 ;; introduce accented keys. The pseudo-accent characters are:
37 ;; ' (minute) -> actue accent
38 ;; ` (backtick) -> grave accent
39 ;; " (second) -> diaeresis
40 ;; ^ (caret) -> circumflex
41 ;; ~ (tilde) -> tilde over the character
42 ;; / (slash) -> slash through the character.
43 ;; Also: /A is A-with-ring and /E is AE ligature.
44 ;; These two are enabled only if you set iso-accents-enable
46 ;; . (period) -> dot over the character (some languages only)
47 ;; , (cedilla) -> cedilla under the character (some languages only)
49 ;; The action taken depends on the key that follows the pseudo accent.
52 ;; pseudo-accent + appropriate letter -> accented letter
53 ;; pseudo-accent + space -> pseudo-accent (except comma and period)
54 ;; pseudo-accent + pseudo-accent -> accent (if available)
55 ;; pseudo-accent + other -> pseudo-accent + other
57 ;; If the pseudo-accent is followed by anything else than a
58 ;; self-insert-command, the dead-key code is terminated, the
59 ;; pseudo-accent inserted 'as is' and the bell is rung to signal this.
61 ;; Function `iso-accents-mode' can be used to enable the iso accents
62 ;; minor mode, or disable it.
64 ;; If you want only some of these characters to serve as accents,
65 ;; add a language to `iso-languages' which specifies the accent characters
66 ;; that you want, then select the language with `iso-accents-customize'.
73 "Minor mode providing electric accent keys."
74 :prefix
"iso-accents-"
77 (defcustom iso-accents-insert-offset nonascii-insert-offset
78 "*Offset added by ISO Accents mode to character codes 0200 and above."
84 ;; Note this includes some extra characters used in Spanish,
85 ;; on the idea that someone who uses Catalan is likely to use Spanish
87 (?
' (?A . ?
\301) (?E . ?
\311) (?I . ?
\315) (?O . ?
\323) (?U . ?
\332)
88 (?a . ?
\341) (?e . ?
\351) (?i . ?
\355) (?o . ?
\363) (?u . ?
\372)
90 (?
` (?A . ?
\300) (?E . ?
\310) (?O . ?
\322)
91 (?a . ?
\340) (?e . ?
\350) (?o . ?
\362)
93 (?
\" (?I . ?
\317) (?U . ?
\334) (?i . ?
\357) (?u . ?
\374)
95 (?~
(?C . ?
\307) (?N . ?
\321) (?c . ?
\347) (?n . ?
\361)
96 (?
> . ?
\273) (?
< . ?
\253) (?
! . ?
\241) (?? . ?
\277)
100 (?^
(?H . ?
\246) (?J . ?
\254) (?h . ?
\266) (?j . ?
\274) (?C . ?
\306)
101 (?G . ?
\330) (?S . ?
\336) (?c . ?
\346) (?g . ?
\370) (?s . ?
\376)
103 (?~
(?U . ?
\335) (?u . ?
\375) (?\ . ?~
)))
106 (?
' (?E . ?
\311) (?C . ?
\307) (?e . ?
\351) (?c . ?
\347)
108 (?
` (?A . ?
\300) (?E . ?
\310) (?U . ?
\331)
109 (?a . ?
\340) (?e . ?
\350) (?u . ?
\371)
111 (?^
(?A . ?
\302) (?E . ?
\312) (?I . ?
\316) (?O . ?
\324) (?U . ?
\333)
112 (?a . ?
\342) (?e . ?
\352) (?i . ?
\356) (?o . ?
\364) (?u . ?
\373)
114 (?
\" (?E . ?
\313) (?I . ?
\317)
115 (?e . ?
\353) (?i . ?
\357)
117 (?~
(?
< . ?
\253) (?
> . ?
\273) (?C . ?
\307) (?c . ?
\347)
119 (?
, (?C . ?
\307) (?c . ?
\347) (?\ . ?\
,)))
122 (?
\" (?A . ?
\304) (?O . ?
\326) (?U . ?
\334)
123 (?a . ?
\344) (?o . ?
\366) (?u . ?
\374) (?s . ?
\337) (?\ . ?
\")))
126 (?
' (?A . ?
\301) (?E . ?
\311) (?I . ?
\315) (?O . ?
\323) (?U . ?
\332)
127 (?a . ?
\341) (?e . ?
\351) (?i . ?
\355) (?o . ?
\363) (?u . ?
\372)
131 (?
' (?A . ?
\301) (?E . ?
\311) (?I . ?
\315) (?O . ?
\323) (?U . ?
\332)
132 (?C . ?
\307) (?a . ?
\341) (?e . ?
\351) (?i . ?
\355) (?o . ?
\363)
133 (?u . ?
\372) (?c . ?
\347)
135 (?
` (?A . ?
\300) (?a . ?
\340)
137 (?^
(?A . ?
\302) (?E . ?
\312) (?O . ?
\324)
138 (?a . ?
\342) (?e . ?
\352) (?o . ?
\364)
140 (?
\" (?U . ?
\334) (?u . ?
\374)
142 (?~
(?A . ?
\303) (?O . ?
\325) (?a . ?
\343) (?o . ?
\365)
143 (?C . ?
\307) (?N . ?
\321) (?c . ?
\347) (?n . ?
\361)
145 (?
, (?c . ?
\347) (?C . ?
\307) (?
, . ?
,)))
148 (?
' (?A . ?
\301) (?E . ?
\311) (?I . ?
\315) (?O . ?
\323) (?U . ?
\332)
149 (?a . ?
\341) (?e . ?
\351) (?i . ?
\355) (?o . ?
\363) (?u . ?
\372)
151 (?
\" (?U . ?
\334) (?u . ?
\374) (?\ . ?
\"))
152 (?\~
(?N . ?
\321) (?n . ?
\361) (?
> . ?
\273) (?
< . ?
\253) (?
! . ?
\241)
153 (?? . ?
\277) (?\ . ?\~
)))
156 (?
' (?A . ?
\301) (?E . ?
\311) (?I . ?
\315) (?O . ?
\323) (?U . ?
\332)
157 (?Y . ?
\335) (?a . ?
\341) (?e . ?
\351) (?i . ?
\355) (?o . ?
\363)
158 (?u . ?
\372) (?y . ?
\375) (?
' . ?
\264)
160 (?
` (?A . ?
\300) (?E . ?
\310) (?I . ?
\314) (?O . ?
\322) (?U . ?
\331)
161 (?a . ?
\340) (?e . ?
\350) (?i . ?
\354) (?o . ?
\362) (?u . ?
\371)
163 (?^
(?A . ?
\302) (?E . ?
\312) (?I . ?
\316) (?O . ?
\324) (?U . ?
\333)
164 (?a . ?
\342) (?e . ?
\352) (?i . ?
\356) (?o . ?
\364) (?u . ?
\373)
166 (?
\" (?A . ?
\304) (?E . ?
\313) (?I . ?
\317) (?O . ?
\326) (?U . ?
\334)
167 (?a . ?
\344) (?e . ?
\353) (?i . ?
\357) (?o . ?
\366) (?s . ?
\337)
168 (?u . ?
\374) (?y . ?
\377)
169 (?
\" . ?
\250) (?\ . ?
\"))
170 (?~
(?A . ?
\303) (?C . ?
\307) (?D . ?
\320) (?N . ?
\321) (?O . ?
\325)
171 (?T . ?
\336) (?a . ?
\343) (?c . ?
\347) (?d . ?
\360) (?n . ?
\361)
172 (?o . ?
\365) (?t . ?
\376)
173 (?
> . ?
\273) (?
< . ?
\253) (?
! . ?
\241) (?? . ?
\277)
174 (?\~ . ?
\270) (?\ . ?~
))
175 (?
/ (?A . ?
\305) (?E . ?
\306) (?O . ?
\330) (?a . ?
\345) (?e . ?
\346)
177 (?
/ . ?
\260) (?\ . ?
/)))
179 ("latin-2" latin-iso8859-2
180 (?
' (?A . ?
\301) (?C . ?
\306) (?D . ?
\320) (?E . ?
\311) (?I . ?
\315)
181 (?L . ?
\305) (?N . ?
\321) (?O . ?
\323) (?R . ?
\300) (?S . ?
\246)
182 (?U . ?
\332) (?Y . ?
\335) (?Z . ?
\254)
183 (?a . ?
\341) (?c . ?
\346) (?d . ?
\360) (?e . ?
\351) (?i . ?
\355)
184 (?l . ?
\345) (?n . ?
\361) (?o . ?
\363) (?r . ?
\340) (?s . ?
\266)
185 (?u . ?
\372) (?y . ?
\375) (?z . ?
\274)
186 (?
' . ?
\264) (?\ . ?
'))
187 (?
` (?A . ?
\241) (?C . ?
\307) (?E . ?
\312) (?L . ?
\243) (?S . ?
\252)
188 (?T . ?
\336) (?Z . ?
\257)
189 (?a . ?
\261) (?l . ?
\263) (?c . ?
\347) (?e . ?
\352) (?s . ?
\272)
190 (?t . ?
\376) (?z . ?
\277)
192 (?. . ?
\377) (?\ . ?
`))
193 (?^
(?A . ?
\302) (?I . ?
\316) (?O . ?
\324)
194 (?a . ?
\342) (?i . ?
\356) (?o . ?
\364)
195 (?^ . ?^
) ; no special code?
197 (?
\" (?A . ?
\304) (?E . ?
\313) (?O . ?
\326) (?U . ?
\334)
198 (?a . ?
\344) (?e . ?
\353) (?o . ?
\366) (?s . ?
\337) (?u . ?
\374)
201 (?~
(?A . ?
\303) (?C . ?
\310) (?D . ?
\317) (?L . ?
\245) (?N . ?
\322)
202 (?O . ?
\325) (?R . ?
\330) (?S . ?
\251) (?T . ?
\253) (?U . ?
\333)
204 (?a . ?
\343) (?c . ?
\350) (?d . ?
\357) (?l . ?
\265) (?n . ?
\362)
205 (?o . ?
\365) (?r . ?
\370) (?s . ?
\271) (?t . ?
\273) (?u . ?
\373)
207 (?v . ?
\242) ; v accent
208 (?\~ . ?
\242) ; v accent
209 (?\. . ?
\270) ; cedilla accent
212 ("latin-3" latin-iso8859-3
213 (?
' (?A . ?
\301) (?E . ?
\311) (?I . ?
\315) (?O . ?
\323) (?U . ?
\332)
214 (?a . ?
\341) (?e . ?
\351) (?i . ?
\355) (?o . ?
\363) (?u . ?
\372)
215 (?
' . ?
\264) (?\ . ?
'))
216 (?
` (?A . ?
\300) (?E . ?
\310) (?I . ?
\314) (?O . ?
\322) (?U . ?
\331)
217 (?a . ?
\340) (?e . ?
\350) (?i . ?
\354) (?o . ?
\362) (?u . ?
\371)
219 (?^
(?A . ?
\302) (?C . ?
\306) (?E . ?
\312) (?G . ?
\330) (?H . ?
\246)
220 (?I . ?
\316) (?J . ?
\254) (?O . ?
\324) (?S . ?
\336) (?U . ?
\333)
221 (?a . ?
\342) (?c . ?
\346) (?e . ?
\352) (?g . ?
\370) (?h . ?
\266)
222 (?i . ?
\356) (?j . ?
\274) (?o . ?
\364) (?s . ?
\376) (?u . ?
\373)
224 (?
\" (?A . ?
\304) (?E . ?
\313) (?I . ?
\317) (?O . ?
\326) (?U . ?
\334)
225 (?a . ?
\344) (?e . ?
\353) (?i . ?
\357) (?o . ?
\366) (?u . ?
\374)
227 (?
\" . ?
\250) (?\ . ?
\"))
228 (?~
(?A . ?
\303) (?C . ?
\307) (?D . ?
\320) (?N . ?
\321) (?O . ?
\325)
229 (?a . ?
\343) (?c . ?
\347) (?d . ?
\360) (?n . ?
\361) (?o . ?
\365)
230 (?$ . ?
\245) (?S . ?
\252) (?s . ?
\272) (?G . ?
\253) (?g . ?
\273)
231 (?U . ?
\335) (?u . ?
\375) (?
` . ?
\242)
232 (?~ . ?
\270) (?\ . ?~
))
233 (?
/ (?C . ?
\305) (?G . ?
\325) (?H . ?
\241) (?I . ?
\251) (?Z . ?
\257)
234 (?c . ?
\345) (?g . ?
\365) (?h . ?
\261) (?i . ?
\271) (?z . ?
\277)
236 (?. . ?
\377) (?
# . ?
\243) (?$ . ?
\244)
237 (?
/ . ?
\260) (?\ . ?
/))
238 (?.
(?C . ?
\305) (?G . ?
\325) (?I . ?
\251) (?Z . ?
\257)
239 (?c . ?
\345) (?g . ?
\365) (?z . ?
\277))))
240 "List of language-specific customizations for the ISO Accents mode.
242 Each element of the list is of the form
245 (PSEUDO-ACCENT MAPPINGS)
246 (PSEUDO-ACCENT MAPPINGS)
249 LANGUAGE is a string naming the language.
250 CHARSET (which may be omitted) is the symbol name
251 of the character set used in this language.
252 If CHARSET is omitted, latin-iso8859-1 is the default.
253 PSEUDO-ACCENT is a char specifying an accent key.
254 MAPPINGS are cons cells of the form (CHAR . ISO-CHAR).
256 The net effect is that the key sequence PSEUDO-ACCENT CHAR is mapped
257 to ISO-CHAR on input.")
259 (defvar iso-language nil
260 "Language for which ISO Accents mode is currently customized.
261 Change it with the `iso-accents-customize' function.")
263 (defvar iso-accents-list nil
264 "Association list for ISO accent combinations, for the chosen language.")
266 (defcustom iso-accents-mode nil
267 "*Non-nil enables ISO Accents mode.
268 Setting this variable makes it local to the current buffer.
269 See the function `iso-accents-mode'."
272 (make-variable-buffer-local 'iso-accents-mode
)
274 (defcustom iso-accents-enable
'(?
' ?
` ?^ ?
\" ?~ ?
/)
275 "*List of accent keys that become prefixes in ISO Accents mode.
276 The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported
277 accent keys. If you set this variable to a list in which some of those
278 characters are missing, the missing ones do not act as accents.
280 Note that if you specify a language with `iso-accents-customize',
281 that can also turn off certain prefixes (whichever ones are not needed in
282 the language you choose)."
283 :type
'(repeat character
)
286 (defun iso-accents-accent-key (prompt)
287 "Modify the following character by adding an accent to it."
288 ;; Pick up the accent character.
289 (if (and iso-accents-mode
290 (memq last-input-char iso-accents-enable
))
291 (iso-accents-compose prompt
)
292 (vector last-input-char
)))
295 ;; The iso-accents-compose function is called deep inside Emacs' read
296 ;; key sequence machinery, so the call to read-event below actually
297 ;; recurses into that machinery. Doing that does not cause any
298 ;; problem on its own, but read-event will have marked the window's
299 ;; display matrix to be accurate -- which is broken by the subsequent
300 ;; call to delete-region. Therefore, we must call force-window-update
301 ;; after delete-region to explicitly clear the accurate state of the
302 ;; window's display matrix.
304 (defun iso-accents-compose (prompt)
305 (let* ((first-char last-input-char
)
306 (list (assq first-char iso-accents-list
))
307 ;; Wait for the second key and look up the combination.
308 (second-char (if (or prompt
309 (not (eq (key-binding "a")
310 'self-insert-command
))
311 ;; Not at start of a key sequence.
312 (> (length (this-single-command-keys)) 1)
313 ;; Called from anything but the command loop.
317 (or prompt
"Compose with ")
322 (delete-region (1- (point)) (point))
323 ;; Display is no longer up-to-date.
324 (force-window-update (selected-window)))))
325 (entry (cdr (assq second-char list
))))
327 ;; Found it: return the mapped char
329 (if (and enable-multibyte-characters
331 (+ iso-accents-insert-offset entry
)
333 ;; Otherwise, advance and schedule the second key for execution.
334 (push second-char unread-command-events
)
335 (vector first-char
))))
337 ;; It is a matter of taste if you want the minor mode indicated
338 ;; in the mode line...
339 ;; If so, uncomment the next four lines.
340 ;; (or (assq 'iso-accents-mode minor-mode-alist)
341 ;; (setq minor-mode-alist
342 ;; (append minor-mode-alist
343 ;; '((iso-accents-mode " ISO-Acc")))))
346 (defun iso-accents-mode (&optional arg
)
347 "Toggle ISO Accents mode, in which accents modify the following letter.
348 This permits easy insertion of accented characters according to ISO-8859-1.
349 When Iso-accents mode is enabled, accent character keys
350 \(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following
351 letter key so that it inserts an ISO accented letter.
353 You can customize ISO Accents mode to a particular language
354 with the command `iso-accents-customize'.
356 Special combinations: ~c gives a c with cedilla,
357 ~d gives an Icelandic eth (d with dash).
358 ~t gives an Icelandic thorn.
359 \"s gives German sharp s.
360 /a gives a with ring.
361 /e gives an a-e ligature.
362 ~< and ~> give guillemots.
363 ~! gives an inverted exclamation mark.
364 ~? gives an inverted question mark.
366 With an argument, a positive argument enables ISO Accents mode,
367 and a negative argument disables it."
372 ;; Negative arg means switch it off.
373 (<= (prefix-numeric-value arg
) 0)
374 ;; No arg means toggle.
376 (setq iso-accents-mode nil
)
378 ;; Enable electric accents.
379 (setq iso-accents-mode t
)))
381 (defun iso-accents-customize (language)
382 "Customize the ISO accents machinery for a particular language.
383 It selects the customization based on the specifications in the
384 `iso-languages' variable."
385 (interactive (list (completing-read "Language: " iso-languages nil t
)))
386 (let ((table (cdr (assoc language iso-languages
)))
389 (error "Unknown language `%s'" language
)
390 (setq iso-accents-insert-offset
(- (make-char (if (symbolp (car table
))
394 (if (symbolp (car table
))
395 (setq table
(cdr table
)))
396 (setq iso-language language
397 iso-accents-list table
)
398 (if key-translation-map
399 (substitute-key-definition
400 'iso-accents-accent-key nil key-translation-map
)
401 (setq key-translation-map
(make-sparse-keymap)))
402 ;; Set up translations for all the characters that are used as
403 ;; accent prefixes in this language.
404 (setq tail iso-accents-list
)
406 (define-key key-translation-map
(vector (car (car tail
)))
407 'iso-accents-accent-key
)
408 (setq tail
(cdr tail
))))))
410 (defun iso-accentuate (start end
)
411 "Convert two-character sequences in region into accented characters.
412 Noninteractively, this operates on text from START to END.
413 This uses the same conversion that ISO Accents mode uses for type-in."
417 (narrow-to-region start end
)
421 (while (< (point) end
)
422 (if (and (memq (preceding-char) iso-accents-enable
)
423 (setq entry
(cdr (assq (following-char) (assq (preceding-char) iso-accents-list
)))))
429 (forward-char 1)))))))
431 (defun iso-accent-rassoc-unit (value alist
)
433 (while (and alist
(not elt
))
434 (setq acc
(car (car alist
))
435 elt
(car (rassq value
(cdr (car alist
))))
440 (defun iso-unaccentuate (start end
)
441 "Convert accented characters in the region into two-character sequences.
442 Noninteractively, this operates on text from START to END.
443 This uses the opposite of the conversion done by ISO Accents mode for type-in."
447 (narrow-to-region start end
)
450 (while (< (point) end
)
451 (if (and (> (following-char) 127)
452 (setq entry
(iso-accent-rassoc-unit (following-char)
456 (insert (car entry
) (cdr entry
))
458 (forward-char 1)))))))
460 (defun iso-deaccentuate (start end
)
461 "Convert accented characters in the region into unaccented characters.
462 Noninteractively, this operates on text from START to END."
466 (narrow-to-region start end
)
469 (while (< (point) end
)
470 (if (and (> (following-char) 127)
471 (setq entry
(iso-accent-rassoc-unit (following-char)
475 (insert (cdr entry
)))
476 (forward-char 1)))))))
478 ;; Set up the default settings.
479 (iso-accents-customize "latin-1")
481 ;; Use Iso-Accents mode in the minibuffer
482 ;; if it was in use in the previous buffer.
483 (defun iso-acc-minibuf-setup ()
484 (setq iso-accents-mode
486 (set-buffer (window-buffer minibuffer-scroll-window
))
489 (add-hook 'minibuffer-setup-hook
'iso-acc-minibuf-setup
)
491 ;; arch-tag: 149ff409-7c3e-4574-9b5d-ac038939c0a6
492 ;;; iso-acc.el ends here