diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-07-11 13:43:34 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-07-11 13:52:01 +0200 |
| commit | 5990da629074b09212d7dea31811d0429e3e2fb8 (patch) | |
| tree | 4e2081294c1efc440d98ee06187b8a00c3e89c49 /lisp/emacs-lisp | |
| parent | 050252043fe85e12412de311a08f0159cd89e92a (diff) | |
| download | emacs-5990da629074b09212d7dea31811d0429e3e2fb8.tar.gz emacs-5990da629074b09212d7dea31811d0429e3e2fb8.tar.bz2 emacs-5990da629074b09212d7dea31811d0429e3e2fb8.zip | |
Simplify str_to_multibyte and related code
* src/character.h (str_to_multibyte):
* src/character.c (str_to_multibyte): Remove `nbytes` argument; return
it instead. Copy forwards.
* src/fns.c (concat_to_string, Fstring_make_multibyte):
Use str_to_multibyte.
(string_make_multibyte): Remove.
(string_to_multibyte):
* src/print.c (print_string): Adapt calls.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 352ac40663c..b7147a7f50f 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1288,8 +1288,6 @@ See Info node `(elisp) Integer Basics'." form)) ;; Fixme: delete-char -> delete-region (byte-coded) -;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte, -;; string-make-multibyte for constant args. (put 'set 'byte-optimizer #'byte-optimize-set) (defun byte-optimize-set (form) |