From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 24 Jan 1996 23:27:59 +0000 (+0000)
Subject: (iso-accents-customize): Extract accent chars
X-Git-Tag: emacs-19.34~1571
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2023b1c2e72f61dc3bad3cf6a188c4e045e3f993;p=emacs.git

(iso-accents-customize): Extract accent chars
properly from iso-accents-list.
(iso-languages): Rename "default" to "latin-1".
Add a new element "latin-2" copied from iso02-acc.el.
---

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