procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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 contained in:
Andrea Corallo 2021-12-28 12:12:16 +01:00
parent e31facd84a
commit e7699bf290
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/comp.el
View file

@ -1181,7 +1181,9 @@ clashes."
for i across orig-name for i across orig-name
for byte = (format "%x" i) for byte = (format "%x" i)
do (aset str j (aref byte 0)) 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)) finally return str))
(human-readable (string-replace (human-readable (string-replace
"-" "_" orig-name)) "-" "_" orig-name))