diff options
| -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." | |||
| 1181 | for i across orig-name | 1181 | for i across orig-name |
| 1182 | for byte = (format "%x" i) | 1182 | for byte = (format "%x" i) |
| 1183 | do (aset str j (aref byte 0)) | 1183 | do (aset str j (aref byte 0)) |
| 1184 | (aset str (1+ j) (aref byte 1)) | 1184 | (aset str (1+ j) (if (length> byte 1) |
| 1185 | (aref byte 1) | ||
| 1186 | ?\_)) | ||
| 1185 | finally return str)) | 1187 | finally return str)) |
| 1186 | (human-readable (string-replace | 1188 | (human-readable (string-replace |
| 1187 | "-" "_" orig-name)) | 1189 | "-" "_" orig-name)) |