From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 28 Dec 2021 11:12:16 +0000 (+0100)
Subject: * Fix native comp for non trivial function names (bug#52833)
X-Git-Tag: emacs-29.0.90~3396
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7699bf290926936a3357ada280d3a843f00af23;p=emacs.git

* 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).
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index b51224088f1..ea52aba5d32 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))