From 4d02fc25640fe8f43702df874f107d7100d80a17 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 1 Jul 2007 01:57:21 +0000 Subject: [PATCH] (Fcompleting_read): New value `confirm-only' for `require-match'. --- src/ChangeLog | 5 +++++ src/minibuf.c | 24 +++++++++++++++++++++--- 2 files changed, 26 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 1c13ade00d3..b87b05f8e27 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2007-07-01 Stefan Monnier + + * minibuf.c (Fcompleting_read): New value `confirm-only' + for `require-match'. + 2007-06-28 Stefan Monnier * fileio.c (Fdo_auto_save): Revert last patch installed unwillingly as diff --git a/src/minibuf.c b/src/minibuf.c index 94e06365a91..c2654d02b04 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1717,9 +1717,15 @@ PREDICATE limits completion to a subset of COLLECTION. See `try-completion' and `all-completions' for more details on completion, COLLECTION, and PREDICATE. -If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless - the input is (or completes to) an element of COLLECTION or is null. - If it is also not t, typing RET does not exit if it does non-null completion. +REQUIRE-MATCH can take the following values: +- t means that the user is not allowed to exit unless + the input is (or completes to) an element of COLLECTION or is null. +- nil means that the user can exit with any input. +- `confirm-only' means that the user can exit with any input, but she will + need to confirm her choice if the input is not an element of COLLECTION. +- anything else behaves like t except that typing RET does not exit if it + does non-null completion. + If the input is null, `completing-read' returns DEF, or an empty string if DEF is nil, regardless of the value of REQUIRE-MATCH. @@ -2230,6 +2236,18 @@ a repetition of this command will exit. */) goto exit; } + if (EQ (Vminibuffer_completion_confirm, intern ("confirm-only"))) + { /* The user is permitted to exit with an input that's rejected + by test-completion, but at the condition to confirm her choice. */ + if (EQ (current_kboard->Vlast_command, Vthis_command)) + goto exit; + else + { + temp_echo_area_glyphs (build_string (" [Confirm]")); + return Qnil; + } + } + /* Call do_completion, but ignore errors. */ SET_PT (ZV); val = internal_condition_case (complete_and_exit_1, Qerror, -- 2.11.4.GIT