Re: Passing user selection to a command

[Heime]

Sent with Proton Mail secure email.

On Tuesday, March 19th, 2024 at 11:01 PM, Bruno Barbier <brubar.cs@gmail.com> 
wrote:

> Hi,
> 
> Heime heimeborgia@protonmail.com writes:
> 
> > How can I pass the user selection to 'activate-input-method' ?
> > 
> > (defun glossus ()
> > 
> > (interactive
> > (list
> > (let ( (cseq '("italian-alt-postfix" "italian-keyboard"
> > "italian-postfix")) )
> > (completing-read
> > " Glossus: " cseq nil t "italian-postfix"))))
> > 
> > (setq ispell-local-dictionary "it_IT")
> > (activate-input-method "italian-postfix") )
> 
> 
> IIUC, you could do this:
> 
> (defun my-glossus (user-sel) ;; <==== var name here
> (interactive
> (list
> (let ( (cseq '("italian-alt-postfix" "italian-keyboard"
> "italian-postfix")) )
> (completing-read
> " Glossus: " cseq nil t "italian-postfix"))))
> 
> (setq ispell-local-dictionary "it_IT")
> (activate-input-method user-sel))
> 
> Bruno

The documentation states that if some other input method is already active,
it is to be turned off first.  How can I make the function do this ?