mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(iso-accents-customize): Extract accent chars

Browse source 
properly from iso-accents-list.
(iso-languages): Rename "default" to "latin-1".
Add a new element "latin-2" copied from iso02-acc.el.
This commit is contained in:
Karl Heuer 1996-01-24 23:27:59 +00:00
parent 3f866b5324
commit 2023b1c2e7
1 changed files with 96 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

101
lisp/international/iso-acc.el
View file

@ -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