From 721d1102986ad16bc71dc7a460ad08cbbe3ae979 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 14 Jul 2019 21:10:56 +0200 Subject: [PATCH] improve comp-c-func-name --- lisp/emacs-lisp/comp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5