diff options
Diffstat (limited to 'lisp/international/iso-acc.el')
| -rw-r--r-- | lisp/international/iso-acc.el | 101 |
1 files changed, 96 insertions, 5 deletions
diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el index 9a3b2e7e704..8e3f6f58da0 100644 --- a/lisp/international/iso-acc.el +++ b/lisp/international/iso-acc.el @@ -94,7 +94,98 @@ ((?^ ? ) ?^) ((?\" ?U) ?\334) ((?\" ?u) ?\374) ((?\" ? ) ?\") ((?\~ ?A) ?\303) ((?\~ ?O) ?\325) ((?\~ ?a) ?\343) ((?\~ ?o) ?\365) ((?\~ ?\ ) ?\~))) - ("default" + ("latin-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) + ((?' ? ) ?') + ((?` ?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) + ((?` ?.) ?\377) + ((?^ ?A) ?\302) + ((?^ ?O) ?\324) + ((?^ ?a) ?\342) + ((?^ ?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) ?\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-1" (?' ?` ?^ ?\" ?~ ?/) (((?' ?A) ?\301) ((?' ?E) ?\311) ((?' ?I) ?\315) ((?' ?O) ?\323) ((?' ?U) ?\332) ((?' ?Y) ?\335) ((?' ?a) ?\341) ((?' ?e) ?\351) @@ -115,7 +206,6 @@ ((?\~ ?>) ?\273) ((?\~ ?<) ?\253) ((?\~ ?\ ) ?\~) ((?\~ ?\~) ?\270) ((?\/ ?A) ?\305) ((?\/ ?E) ?\306) ((?\/ ?O) ?\330) ((?\/ ?a) ?\345) ((?\/ ?e) ?\346) ((?\/ ?o) ?\370) ((?\/ ?\ ) ?\/) ((?\/ ?\/) ?\260)))) - "List of language-specific customizations for the ISO Accents mode. Each element of the list is of the form (LANGUAGE PREFIXES LIST). @@ -258,8 +348,9 @@ It selects the customization based on the specifications in the ;; in this language, and set up translation for them. (setq tail iso-accents-list) (while tail - (or (memq (car (car tail)) all-accents) - (setq all-accents (cons (car (car tail)) all-accents))) + (let ((acc (car (car (car tail))))) + (or (memq acc all-accents) + (setq all-accents (cons acc all-accents)))) (setq tail (cdr tail))) (setq tail all-accents) (while tail @@ -338,6 +429,6 @@ Noninteractively, this operates on text from START to END." (forward-char 1))))))) ;; Set up the default settings. -(iso-accents-customize "default") +(iso-accents-customize "latin-1") ;;; iso-acc.el ends here |