diff options
| author | Richard M. Stallman | 1996-09-13 18:30:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-13 18:30:41 +0000 |
| commit | cb252880e55ab80a0244117c3f3b699db307f3ce (patch) | |
| tree | 4f519d893c8baf8ff30d74f18a66fd7a5219476b /src | |
| parent | be15a5185343840c5c7278e2a0c2c9bb05b198d8 (diff) | |
| download | emacs-cb252880e55ab80a0244117c3f3b699db307f3ce.tar.gz emacs-cb252880e55ab80a0244117c3f3b699db307f3ce.zip | |
(recursive_edit_1): Handle a string as the throw value.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 19f8dbb3b57..cb9ce1f9921 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -750,6 +750,10 @@ recursive_edit_1 () | |||
| 750 | val = command_loop (); | 750 | val = command_loop (); |
| 751 | if (EQ (val, Qt)) | 751 | if (EQ (val, Qt)) |
| 752 | Fsignal (Qquit, Qnil); | 752 | Fsignal (Qquit, Qnil); |
| 753 | /* Handle throw from read_minibuf when using minibuffer | ||
| 754 | while it's active but we're in another window. */ | ||
| 755 | if (STRINGP (val)) | ||
| 756 | Fsignal (Qerror, Fcons (val, Qnil)); | ||
| 753 | 757 | ||
| 754 | return unbind_to (count, Qnil); | 758 | return unbind_to (count, Qnil); |
| 755 | } | 759 | } |