diff options
| author | Pip Cet | 2024-08-05 21:46:58 +0000 |
|---|---|---|
| committer | Pip Cet | 2024-08-05 21:46:58 +0000 |
| commit | ca258e81b81539dc20a06958f911fc5dcd3df922 (patch) | |
| tree | 37f7d1a5284a89b965779f3e60c519248755970a /src | |
| parent | ee371f55b359b509cd381c87e78b5f5ee9311f37 (diff) | |
| download | emacs-ca258e81b81539dc20a06958f911fc5dcd3df922.tar.gz emacs-ca258e81b81539dc20a06958f911fc5dcd3df922.zip | |
* src/search.c (Fre__describe_compiled): Use 'CHECK_STRING'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/search.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/search.c b/src/search.c index 2ff8b0599c4..087b99d87f3 100644 --- a/src/search.c +++ b/src/search.c | |||
| @@ -3405,6 +3405,7 @@ DEFUN ("re--describe-compiled", Fre__describe_compiled, Sre__describe_compiled, | |||
| 3405 | If RAW is non-nil, just return the actual bytecode. */) | 3405 | If RAW is non-nil, just return the actual bytecode. */) |
| 3406 | (Lisp_Object regexp, Lisp_Object raw) | 3406 | (Lisp_Object regexp, Lisp_Object raw) |
| 3407 | { | 3407 | { |
| 3408 | CHECK_STRING (regexp); | ||
| 3408 | struct regexp_cache *cache_entry | 3409 | struct regexp_cache *cache_entry |
| 3409 | = compile_pattern (regexp, NULL, | 3410 | = compile_pattern (regexp, NULL, |
| 3410 | (!NILP (Vcase_fold_search) | 3411 | (!NILP (Vcase_fold_search) |