diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-12-28 12:12:16 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2022-01-17 11:54:52 +0100 |
| commit | 9e64aeff40872e5080fa04015234103cb9bcf3bf (patch) | |
| tree | f87cdd9de18785d34537a962eda38e20f3269ae7 /lisp/emacs-lisp | |
| parent | e488601849627c53b1638fbab1d115518e0ee794 (diff) | |
| download | emacs-9e64aeff40872e5080fa04015234103cb9bcf3bf.tar.gz emacs-9e64aeff40872e5080fa04015234103cb9bcf3bf.tar.bz2 emacs-9e64aeff40872e5080fa04015234103cb9bcf3bf.zip | |
* 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
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 2ced6277add..a363bed3642 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)) |