diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-24 17:28:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-24 17:28:10 +0200 |
| commit | 28bf38743db6656715c5f3221d52467cbac4872f (patch) | |
| tree | c6792af2272de6ef3bdcb421d63ec220d41e616a | |
| parent | b4543dfa9e72deeee607ffa9396a680c51a00968 (diff) | |
| download | emacs-28bf38743db6656715c5f3221d52467cbac4872f.tar.gz emacs-28bf38743db6656715c5f3221d52467cbac4872f.tar.bz2 emacs-28bf38743db6656715c5f3221d52467cbac4872f.zip | |
Tweak Fdirectory_append for efficiency
* src/fileio.c (Fdirectory_append): Make slightly more efficient.
| -rw-r--r-- | src/fileio.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index a4f08383776..ddce4723f42 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -795,7 +795,8 @@ usage: (record DIRECTORY &rest COMPONENTS) */) for (i = 0; i < nargs; i++) { Lisp_Object arg = args[i]; - if (STRING_MULTIBYTE (arg)) + /* Use multibyte or all-ASCII strings as is. */ + if (STRING_MULTIBYTE (arg) || SCHARS (arg) == SBYTES (arg)) elements[i] = arg; else elements[i] = make_multibyte_string (SSDATA (arg), SCHARS (arg), |