Change to upcase in both branches of emoji rename

This completes 828e191631.
This commit is contained in:
TEC 2022-12-09 01:48:44 +08:00
parent e63e847cb7
commit c6fa8f77f4
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 3 additions and 1 deletions

View File

@ -11978,7 +11978,9 @@ and they will be renamed to the first capture group of the regexp."
t))
(rename-file image
(expand-file-name
(downcase (file-name-nondirectory image))
(file-name-with-extension
(upcase (file-name-nondirectory image))
(file-name-extension image))
emoji-dir)
t)))
images)