Re: Get a command by its keybinding and also respecting key translation

[Stefan Monnier]

>> > (define-context-key outline-minor-mode-map
>> >   (kbd "<tab>")
>> >   th-outline-context-p
>> >   org-cycle)
>> 
>> You can do it this way:
>> 
>> (define-key outline-minor-mode-map
>> (kdb "<tab>")
>> `(menu-item "dummy" org-cycle
>> :filter ,(lambda (cmd)
>> (if (th-outline-context-p) cmd))))

> Hm, just for educational purposes, could you please explain the
> backquoting and the comma-substitution of the lambda?  I mean, I know
> that `,' in a backquote triggers evaluation, but since a lambda evals to
> itself, what's the point in doing so?

Without backquote and comma, the whole menu-item is just a piece of data
which happens to contain something that looks like a function.
With the backquote and comma, it turns into something that contains
a function, so tools can handle this `lambda' knowing that it *is*
a function (e.g. it can be byte-compiled, can cause warnings if it uses
obsolete functions, can be macro-expanded, ...).

Try to byte-compile

   (equal '(lambda () (foo (bar a b c)))
          (lambda () (foo (bar a b c))))

to see what I mean.  In the presence of lexical-scoping the difference
will be present even without byte-compiling.


        Stefan