[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 9e64aeff40: * Fix native comp for non trivial function names (b
From: |
Andrea Corallo |
Subject: |
emacs-28 9e64aeff40: * Fix native comp for non trivial function names (bug#52833) |
Date: |
Mon, 17 Jan 2022 05:58:12 -0500 (EST) |
branch: emacs-28
commit 9e64aeff40872e5080fa04015234103cb9bcf3bf
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).
This commit is the backport of e7699bf290.
Do not merge to master
---
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 2ced6277ad..a363bed364 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 9e64aeff40: * Fix native comp for non trivial function names (bug#52833),
Andrea Corallo <=