[Texmacs-dev] Re: [TeXmacs] Re: Modifier mapping suddenly broken?

[Lionel Elie Mamane]

On Tue, Nov 30, 2004 at 08:00:00PM +0100, Joris van der Hoeven wrote:

> Please try to replace the routine

> (define (get-default-hyper-modifier)
>   (let ((s (eval-system "xmodmap | grep Hyper_L")))
>     (cond ((string-starts? s "mod")
>          (string-append "Mod" (substring s 3 4)))
>         (else "Mod3"))))

> in kbd-config.scm by

> (define (get-default-hyper-modifier*)
 -------> cut <-------
> (define (get-default-hyper-modifier)
>   (with s (get-default-hyper-modifier*)
>     (if (= s (get-default-meta-modifier)) "Mod3" s)))

It works with "(if (equal? s (get-default-meta-modifier)) "Mod3" s)))"
:)

Meta is recognised as Meta now. And Alt as Alt. Works.

-- 
Lionel