diff options
| author | Mattias Engdegård | 2025-02-19 19:57:16 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2025-02-20 20:14:33 +0100 |
| commit | b481fbe92f793bae2ccd9d2d4efdaf0549390a41 (patch) | |
| tree | 03faf4f45b3be3b1d68d70a1f66c4e92b5a91d85 /src | |
| parent | 241e8e5fcf8b4624dc39890a8749f7574a8a6398 (diff) | |
| download | emacs-b481fbe92f793bae2ccd9d2d4efdaf0549390a41.tar.gz emacs-b481fbe92f793bae2ccd9d2d4efdaf0549390a41.zip | |
* src/fns.c (Fmapconcat): Faster fast-path condition
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -3450,7 +3450,7 @@ FUNCTION must be a function of one argument, and must return a value | |||
| 3450 | return empty_unibyte_string; | 3450 | return empty_unibyte_string; |
| 3451 | Lisp_Object *args; | 3451 | Lisp_Object *args; |
| 3452 | SAFE_ALLOCA_LISP (args, args_alloc); | 3452 | SAFE_ALLOCA_LISP (args, args_alloc); |
| 3453 | if (EQ (function, Qidentity)) | 3453 | if (BASE_EQ (function, Qidentity)) |
| 3454 | { | 3454 | { |
| 3455 | /* Fast path when no function call is necessary. */ | 3455 | /* Fast path when no function call is necessary. */ |
| 3456 | if (CONSP (sequence)) | 3456 | if (CONSP (sequence)) |