diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-12-28 12:12:16 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-12-28 15:59:32 +0100 |
| commit | e7699bf290926936a3357ada280d3a843f00af23 (patch) | |
| tree | 13ba0a4987473bfebf50a763fc4d74100ba9c1db /lisp/emacs-lisp | |
| parent | e31facd84a125d6481c7bb6fd001429d513e6915 (diff) | |
| download | emacs-e7699bf290926936a3357ada280d3a843f00af23.tar.gz emacs-e7699bf290926936a3357ada280d3a843f00af23.tar.bz2 emacs-e7699bf290926936a3357ada280d3a843f00af23.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).
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 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)) |