Re: Problems with catch and throw

[Tassilo Horn <tassilo@member.fsf.org>]

Tassilo Horn <tassilo@member.fsf.org> writes:

Hi,

> Ok, then the real question is: How can I invoke
> `execute-extended-command' with an initial input string?

For the record:  That seems to be not possible, but you can mimic its
behavior like this:

--8<---------------cut here---------------start------------->8---
(let ((command (completing-read "M-x "
                                (let (commands)
                                  (mapatoms (lambda (a)
                                              (when (commandp a)
                                                (push (symbol-name a)
                                                      commands))))
                                  commands)
                                nil t catch-val)))
  (command-execute (intern command) t nil t))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo