help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Problems with catch and throw


From: Barry Margolin
Subject: Re: Problems with catch and throw
Date: Fri, 05 Oct 2007 02:59:18 -0400
User-agent: MT-NewsWatcher/3.5.2 (PPC Mac OS X)

In article <address@hidden>,
 Tassilo Horn <address@hidden> wrote:

> Hi,
> 
> I use a home-brewn function [1] instead of `execute-extended-command'
> most of the time.  It uses `read-from-minibuffer' to get a command
> abbrev from the user and then executes the command whose abbreviation
> was given.
> 
> Now I'd like to bind TAB in my function so that it aborts
> `read-from-minibuffer' and my function and falls back to
> `execute-extended-command' where the current minibuffer contents are
> inserted as initial input.
> 
> That sounds like a good candidate for catch/throw to me.  A minimal
> working example is:
> 
> --8<---------------cut here---------------start------------->8---
> (catch 'foo
>   (read-from-minibuffer "test: " nil
>                         (let ((map (copy-keymap minibuffer-local-map)))
>                           (define-key map "\C-i" (lambda ()
>                                                    (interactive)
>                                                    (throw 'foo 
>                                 (minibuffer-contents))))
>                           map)))
> --8<---------------cut here---------------end--------------->8---
> 
> Hit `C-j' after the last closing paren and type "foobar" at the "test: "
> prompt.  The form's result is "foobar" then.
> 
> So now here's my function with this mechanism applied.  But it doesn't
> work like the minimal example.  (minibuffer-contents) always returns the
> empty string "".  Why is that?

The problem isn't with minibuffer-contents, it's with

(message "cont = " (minibuffer-contents))

The first argument to message is a format string, and the remaining 
arguments will be substituted for the % codes in the string.  Since you 
don't have any % codes, it never displays the minibuffer contents.  So 
that should be:

(message "cont = %s" (minibuffer-contents))

> 
> --8<---------------cut here---------------start------------->8---
> (defun exec-abbrev-cmd (prefixarg)
>   "Query for a command abbreviation like \"mbm\" and calculate a
> list of all commands of the form \"m[^-]*-b[^-]*-m[^-]*$\".
> 
> If this list has only one item, this command will be executed
> directly. If there a more choices, the user will be queried which
> one to call.
> 
> The PREFIXARG is passed on to the invoked command.
> 
> With TAB fall back to `execute-extended-command'."
>   (interactive "P")
>   (let ((catch-val
>          (catch 'escape-from-exec-abbrev-cmd
>            (let* ((abbrev (read-from-minibuffer
>                            "Command Abbrev: "
>                            nil
>                            (let ((map (copy-keymap minibuffer-local-map)))
>                              (define-key map "\C-i"
>                                (lambda ()
>                                  (interactive)
>                                  ;; WHY RETURN MINIBUFFER-CONTENTS ""
>                                  ;; HERE, ALTHOUGH I TYPED FOOBAR AT THE
>                                  ;; PROMPT???
>                                  (message "cont = " (minibuffer-contents))
>                                  (throw 'escape-from-exec-abbrev-cmd
>                                         (minibuffer-contents))))
>                              map)))
>                   (regexp (concat "^"
>                                   (let ((part-list (split-string abbrev 
>                                 "-")))
>                                     (if (= 1 (length part-list))
>                                         ;; abc => a*-b*-c*
>                                         (mapconcat #'list abbrev "[^-]*-")
>                                       ;; ahead-b-c => ahead*-b*-c*
>                                       (mapconcat #'identity part-list 
>                                 "[^-]*-")))
>                                   "[^-]*$"))
>                   (commands (exec-abbrev-cmd-sort
>                              (remove-if-not (lambda (string)
>                                               (string-match regexp string))
>                                             (let (c)
>                                               (mapatoms
>                                                (lambda (a)
>                                                  (if (commandp a)
>                                                      (push (symbol-name a) 
>                                 c))))
>                                               c)))))
>              (if (not commands)
>                  (message "No such command.")
>                (let ((c (cond ((> (length commands) 1)
>                                (intern
>                                 (if (and (featurep 'ido) ido-mode)
>                                     ;; ido is available and enabled, so use 
>                                 it.
>                                     (ido-completing-read "Command: " 
>                                 commands)
>                                   ;; fallback to normal completion with the
>                                   ;; most frequently used command as default.
>                                   (completing-read (concat "Command (defaults 
>                                 to `"
>                                                            (car commands) 
>                                 "'): ")
>                                                    commands
>                                                    nil t nil nil (car 
>                                 commands)))))
>                               (t (intern (car commands))))))
>                  (call-interactively c t)
>                  (when exec-abbrev-cmd-mode
>                    (exec-abbrev-cmd-record c)))))
>            ;; Always return nil so that an escape with TAB is the only thing
>            ;; that makes `catch-val' non-nil.
>            nil)))
>     (when catch-val
>       (message "catch-val = " catch-val)
>       (execute-extended-command prefixarg)
>       (insert catch-val))))
> --8<---------------cut here---------------end--------------->8---
> 
> I guess it's something obvious, but I cannot see any principal
> difference between the simple working example and the code of my
> function.
> 
> Any pointers are highly welcome!
> 
> Bye,
> Tassilo
> __________
> [1] http://www.tsdh.de/cgi-bin/wiki.pl/exec-abbrev-cmd.el

-- 
Barry Margolin, address@hidden
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***


reply via email to

[Prev in Thread] Current Thread [Next in Thread]