Re: master d8f9cf7772: Add more characters with macron in C-x 8 map and latin input methods

[Stefan Monnier]

It would be nice if some/most of those things could be (mostly)
generated from a common source (ideally shared with the latin-ltx.el as
well because I think there's some overlap there).


        Stefan


Robert Pluim [2022-06-14 11:28:24] wrote:

> branch: master
> commit d8f9cf7772f87ed3f34890c16e170260fa424e19
> Author: Robert Pluim <rpluim@gmail.com>
> Commit: Robert Pluim <rpluim@gmail.com>
>
>     Add more characters with macron in C-x 8 map and latin input methods
>     
>     * lisp/international/iso-transl.el (iso-transl-char-map): Add
>     sequences for {AE,ae,G,g} with macron.
>     * lisp/leim/quail/latin-post.el ("latin-postfix"): Add missing entries
>     for {AE,ae,G,g} with macron.
>     * lisp/leim/quail/latin-pre.el ("latin-prefix"): Add entries for
>     'letter with macron' for {A,a,E,e,AE,ae,I,I,O,o,U,u,Y,y} with macron.
>     
>     (Bug#55668)
> ---
>  lisp/international/iso-transl.el |  4 ++++
>  lisp/leim/quail/latin-post.el    | 13 ++++++++++++-
>  lisp/leim/quail/latin-pre.el     | 18 ++++++++++++++++++
>  3 files changed, 34 insertions(+), 1 deletion(-)
>
> diff --git a/lisp/international/iso-transl.el 
> b/lisp/international/iso-transl.el
> index a14253ee58..417f0076ef 100644
> --- a/lisp/international/iso-transl.el
> +++ b/lisp/international/iso-transl.el
> @@ -143,6 +143,10 @@
>      ("=a"   . [?ā])
>      ("=E"   . [?Ē])
>      ("=e"   . [?ē])
> +    ("=/E"  . [?Ǣ])
> +    ("=/e"  . [?ǣ])
> +    ("=G"   . [?Ḡ])
> +    ("=g"   . [?ḡ])
>      ("=I"   . [?Ī])
>      ("=i"   . [?ī])
>      ("=O"   . [?Ō])
> diff --git a/lisp/leim/quail/latin-post.el b/lisp/leim/quail/latin-post.el
> index 9573723e45..76ddf3c274 100644
> --- a/lisp/leim/quail/latin-post.el
> +++ b/lisp/leim/quail/latin-post.el
> @@ -2239,6 +2239,7 @@ of characters from a single Latin-N charset.
>    tilde      |    ~    | a~ -> ã
>    cedilla    |    ,    | c, -> ç
>    ogonek     |    ,    | a, -> ą
> +  macron     |    -    | a- -> ā   g- -> ḡ   e/- -> ǣ   -- -> ¯
>    breve      |    ~    | a~ -> ă
>    caron      |    ~    | c~ -> č
>    dbl. acute |    :    | o: -> ő
> @@ -2256,7 +2257,7 @@ of characters from a single Latin-N charset.
>  Doubling the postfix separates the letter and postfix: e.g. a\\='\\=' -> 
> a\\='
>  " nil t nil nil nil nil nil nil nil nil t)
>  
> -;; Fixme: ¦ § ¨ © ¬ ­ ¯ ± ´ µ ¶ · ¸ × ÷
> +;; Fixme: ¦ § ¨ © ¬ ± ´ µ ¶ · ¸ × ÷
>  (quail-define-rules
>   ("2/" ?½)
>   ("3/" ?¾)
> @@ -2315,11 +2316,13 @@ Doubling the postfix separates the letter and 
> postfix: e.g. a\\='\\=' -> a\\='
>   ("E-" ?Ē)
>   ("E." ?Ė)
>   ("E/" ?Æ)
> + ("E/-" ?Ǣ)
>   ("E\"" ?Ë)
>   ("E^" ?Ê)
>   ("E`" ?È)
>   ("E~" ?Ě)
>   ("G," ?Ģ)
> + ("G-" ?Ḡ)
>   ("G." ?Ġ)
>   ("G^" ?Ĝ)
>   ("G~" ?Ğ)
> @@ -2405,12 +2408,14 @@ Doubling the postfix separates the letter and 
> postfix: e.g. a\\='\\=' -> a\\='
>   ("e-" ?ē)
>   ("e." ?ė)
>   ("e/" ?æ)
> + ("e/-" ?ǣ)
>   ("e\"" ?ë)
>   ("e^" ?ê)
>   ("e`" ?è)
>   ("e~" ?ě)
>   ("e=" ?€)
>   ("g," ?ģ)
> + ("g-" ?ḡ)
>   ("g." ?ġ)
>   ("g^" ?ĝ)
>   ("g~" ?ğ)
> @@ -2475,6 +2480,7 @@ Doubling the postfix separates the letter and postfix: 
> e.g. a\\='\\=' -> a\\='
>   ("z'" ?ź)
>   ("z." ?ż)
>   ("z~" ?ž)
> + ("--" ?¯)
>  
>   ("2//" ["2/"])
>   ("3//" ["3/"])
> @@ -2530,11 +2536,13 @@ Doubling the postfix separates the letter and 
> postfix: e.g. a\\='\\=' -> a\\='
>   ("E--" ["E-"])
>   ("E.." ["E."])
>   ("E//" ["E/"])
> + ("E/--" ["E/-"])
>   ("E\"\"" ["E\""])
>   ("E^^" ["E^"])
>   ("E``" ["E`"])
>   ("E~~" ["E~"])
>   ("G,," ["G,"])
> + ("G--" ["G-"])
>   ("G.." ["G."])
>   ("G^^" ["G^"])
>   ("G~~" ["G~"])
> @@ -2613,12 +2621,14 @@ Doubling the postfix separates the letter and 
> postfix: e.g. a\\='\\=' -> a\\='
>   ("e--" ["e-"])
>   ("e.." ["e."])
>   ("e//" ["e/"])
> + ("e/--" ["e/-"])
>   ("e\"\"" ["e\""])
>   ("e^^" ["e^"])
>   ("e``" ["e`"])
>   ("e==" ["e="])
>   ("e~~" ["e~"])
>   ("g,," ["g,"])
> + ("g--" ["g-"])
>   ("g.." ["g."])
>   ("g^^" ["g^"])
>   ("g~~" ["g~"])
> @@ -2677,6 +2687,7 @@ Doubling the postfix separates the letter and postfix: 
> e.g. a\\='\\=' -> a\\='
>   ("z''" ["z'"])
>   ("z.." ["z."])
>   ("z~~" ["z~"])
> + ("---" ["--"])
>   )
>  
>  ;; Derived from Slovenian.kmap from Yudit
> diff --git a/lisp/leim/quail/latin-pre.el b/lisp/leim/quail/latin-pre.el
> index d53da832be..48e0ce9efc 100644
> --- a/lisp/leim/quail/latin-pre.el
> +++ b/lisp/leim/quail/latin-pre.el
> @@ -1104,6 +1104,7 @@ of characters from a single Latin-N charset.
>     cedilla   |  , ~   | ,c -> ç  ~c -> ç
>      caron    |   ~    | ~c -> č  ~g -> ğ
>      breve    |   ~    | ~a -> ă
> +    macron   |   -    | -a -> ā  -/e -> ǣ  -- -> ¯
>    dot above  |   / .  | /g -> ġ   .g -> ġ
>      misc     | \" ~ /  | \"s -> ß  ~d -> ð  ~t -> þ  /a -> å  /e -> æ  /o -> 
> ø
>     symbol    |   ~    | ~> -> »  ~< -> «  ~! -> ¡  ~? -> ¿  ~~ -> ¸
> @@ -1112,6 +1113,23 @@ of characters from a single Latin-N charset.
>  " nil t nil nil nil nil nil nil nil nil t)
>  
>  (quail-define-rules
> + ("--" ?¯)
> + ("-A" ?Ā)
> + ("-a" ?ā)
> + ("-E" ?Ē)
> + ("-e" ?ē)
> + ("-/E" ?Ǣ)
> + ("-/e" ?ǣ)
> + ("-G" ?Ḡ)
> + ("-g" ?ḡ)
> + ("-I" ?Ī)
> + ("-i" ?ī)
> + ("-O" ?Ō)
> + ("-o" ?ō)
> + ("-U" ?Ū)
> + ("-u" ?ū)
> + ("-Y" ?Ȳ)
> + ("-y" ?ȳ)
>   ("' " ?')
>   ("''" ?´)
>   ("'A" ?Á)