master e7699bf290: * Fix native comp for non trivial function names (bug#52833)

[Andrea Corallo]

branch: master
commit e7699bf290926936a3357ada280d3a843f00af23
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Fix native comp for non trivial function names (bug#52833)
    
    * lisp/emacs-lisp/comp.el (comp-c-func-name): Fix native compilation
    for functions with function names containing non trivial
    characters (bug#52833).
---
 lisp/emacs-lisp/comp.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index b51224088f..ea52aba5d3 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1181,7 +1181,9 @@ clashes."
                           for i across orig-name
                           for byte = (format "%x" i)
                           do (aset str j (aref byte 0))
-                             (aset str (1+ j) (aref byte 1))
+                             (aset str (1+ j) (if (length> byte 1)
+                                                  (aref byte 1)
+                                                ?\_))
                           finally return str))
          (human-readable (string-replace
                           "-" "_" orig-name))