Use `convert-standard-filename' to set the name

of the key mapping file.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index d327b4f4ee4..ba6d032fd6a 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -365,7 +365,9 @@
 ;;;
 ;;;  Save the key mapping program
 ;;;
-(let ((file (if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-keys")))
+(let ((file
+       (convert-standard-filename
+        (if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-keys"))))
   (set-visited-file-name
    (read-file-name (format "Save key mapping to file (default %s): " file) "" file)))
 (save-buffer)