* Re: master d8f9cf7772: Add more characters with macron in C-x 8 map and latin input methods
[not found] ` <20220614152824.72D83C00BAF@vcs2.savannah.gnu.org>
@ 2022-06-14 15:59 ` Stefan Monnier
2022-06-14 16:21 ` Robert Pluim
0 siblings, 1 reply; 3+ messages in thread
From: Stefan Monnier @ 2022-06-14 15:59 UTC (permalink / raw)
To: emacs-devel; +Cc: Robert Pluim
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" ?Á)
^ permalink raw reply [flat|nested] 3+ messages in thread