aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/search.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/search.c b/src/search.c
index 33cb02aa7af..c0deb57213c 100644
--- a/src/search.c
+++ b/src/search.c
@@ -3389,6 +3389,10 @@ syms_of_search (void)
3389 /* Error condition used for failing searches. */ 3389 /* Error condition used for failing searches. */
3390 DEFSYM (Qsearch_failed, "search-failed"); 3390 DEFSYM (Qsearch_failed, "search-failed");
3391 3391
3392 /* Error condition used for failing searches started by user, i.e.,
3393 where failure should not invoke the debugger. */
3394 DEFSYM (Quser_search_failed, "user-search-failed");
3395
3392 /* Error condition signaled when regexp compile_pattern fails. */ 3396 /* Error condition signaled when regexp compile_pattern fails. */
3393 DEFSYM (Qinvalid_regexp, "invalid-regexp"); 3397 DEFSYM (Qinvalid_regexp, "invalid-regexp");
3394 3398
@@ -3397,6 +3401,12 @@ syms_of_search (void)
3397 Fput (Qsearch_failed, Qerror_message, 3401 Fput (Qsearch_failed, Qerror_message,
3398 build_pure_c_string ("Search failed")); 3402 build_pure_c_string ("Search failed"));
3399 3403
3404 Fput (Quser_search_failed, Qerror_conditions,
3405 listn (CONSTYPE_PURE, 4,
3406 Quser_search_failed, Quser_error, Qsearch_failed, Qerror));
3407 Fput (Quser_search_failed, Qerror_message,
3408 build_pure_c_string ("Search failed"));
3409
3400 Fput (Qinvalid_regexp, Qerror_conditions, 3410 Fput (Qinvalid_regexp, Qerror_conditions,
3401 listn (CONSTYPE_PURE, 2, Qinvalid_regexp, Qerror)); 3411 listn (CONSTYPE_PURE, 2, Qinvalid_regexp, Qerror));
3402 Fput (Qinvalid_regexp, Qerror_message, 3412 Fput (Qinvalid_regexp, Qerror_message,