keymap-trans not working

[Christopher Roy Bratusek <zanghar freenet de>]

Hi all,

I just found that snippet, but it's not working, though it looks interresting:

  (define-match-window-setter 'keymap-trans
    (lambda (w prop value)
     (declare (unused prop))
      (let ((keymap (or (window-get w 'keymap)
                        (window-put w 'keymap (copy-sequence window-keymap)))))
        (mapcar
         (lambda (pair)         ; pair of from and to keys
            (bind-keys keymap (car pair)
              (lambda () (interactive)
                (synthesize-event (lookup-event (cadr pair)) (input-focus))))) value))))

try it out (example):

(add-window-matcher 'WM_NAME "^Nautiloid$"
  '(keymap-trans . (("M-C-h" "M-C-v"))))

(I've got another matcher, set via sawfish/custom that renames *Nautilus* to Nautiloid)

Now then pressing M-C-h it should send M-C-v to the app, but that does not work ...

any clue?

ah yes, original code by Scott Scriven, but he's no longer working on sawfish, sadly.
And this one can't be exposed via UI (atleast currently), as it needs "special" quoting.

Thanks in advance,
Chris

Attachment: signature.asc
Description: Dies ist ein digital signierter Nachrichtenteil