diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2022-07-11 17:31:38 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2022-07-11 17:35:01 +0200 |
commit | 871db806e686236d76e8ddbf3b11dc4bbdc0b91e (patch) | |
tree | 08bf90d5b92351b6a25fdbfc96895871d3bb1595 | |
parent | ac0027f6a5480bd4739fdf71413a19012f400483 (diff) | |
download | emacs-871db806e686236d76e8ddbf3b11dc4bbdc0b91e.tar.gz emacs-871db806e686236d76e8ddbf3b11dc4bbdc0b91e.tar.bz2 emacs-871db806e686236d76e8ddbf3b11dc4bbdc0b91e.zip |
Remove obsolete uses of obsolete functions
* src/minibuf.c (minibuf_conform_representation): Remove.
(Ftry_completion): Don't call it.
(Ftest_completion): Don't use the obsolete Fstring_make_unibyte or
Fstring_make_multibyte; they don't serve any useful purpose here.
We don't try to equate unibyte and multibyte raw bytes in symbol
lookups elsewhere and there is no reason to do it here.
-rw-r--r-- | src/minibuf.c | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 0fba334b22b..bedc5644807 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1545,18 +1545,6 @@ function, instead of the usual behavior. */) return unbind_to (count, result); } -static Lisp_Object -minibuf_conform_representation (Lisp_Object string, Lisp_Object basis) -{ - if (STRING_MULTIBYTE (string) == STRING_MULTIBYTE (basis)) - return string; - - if (STRING_MULTIBYTE (string)) - return Fstring_make_unibyte (string); - else - return Fstring_make_multibyte (string); -} - static bool match_regexps (Lisp_Object string, Lisp_Object regexps, bool ignore_case) @@ -1817,7 +1805,7 @@ or from one of the possible completions. */) don't change the case of what the user typed. */ if (completion_ignore_case && bestmatchsize == SCHARS (string) && SCHARS (bestmatch) > bestmatchsize) - return minibuf_conform_representation (string, bestmatch); + return string; /* Return t if the supplied string is an exact match (counting case); it does not require any change to be made. */ @@ -2090,19 +2078,6 @@ the values STRING, PREDICATE and `lambda'. */) SSDATA (string), SCHARS (string), SBYTES (string)); - if (!SYMBOLP (tem)) - { - if (STRING_MULTIBYTE (string)) - string = Fstring_make_unibyte (string); - else - string = Fstring_make_multibyte (string); - - tem = oblookup (collection, - SSDATA (string), - SCHARS (string), - SBYTES (string)); - } - if (completion_ignore_case && !SYMBOLP (tem)) { for (i = ASIZE (collection) - 1; i >= 0; i--) |