From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 14 Jul 2019 19:10:56 +0000 (+0200)
Subject: improve comp-c-func-name
X-Git-Tag: emacs-28.0.90~2727^2~1348
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=721d1102986ad16bc71dc7a460ad08cbbe3ae979;p=emacs.git

improve comp-c-func-name
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 849b15f4225..116a1c24456 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -150,7 +150,7 @@ LIMPLE basic block.")
          (human-readable (replace-regexp-in-string
                           "-" "_" orig-name))
          (human-readable (replace-regexp-in-string
-                          (rx (not (any "a-z_"))) "" human-readable)))
+                          (rx (not (any "0-9a-z_"))) "" human-readable)))
     (concat "F" crypted "_" human-readable)))
 
 (defun comp-decrypt-lambda-list (x)