(tpu-load-xkeys): Use `convert-standard-filename' to

set the name of the key mapping file.

1 files changed, 10 insertions, 4 deletions

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 3961240e6fd..f088e53f29e 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -2367,12 +2367,18 @@ If FILE is nil, try to load a default file.  The default file names are
         (tpu-xkeys-file
          (setq file (expand-file-name tpu-xkeys-file)))
         (tpu-lucid-emacs19-p
-         (setq file (expand-file-name "~/.tpu-lucid-keys")))
+         (setq file (convert-standard-filename
+                     (expand-file-name "~/.tpu-lucid-keys"))))
         (tpu-emacs19-p
-         (setq file (expand-file-name "~/.tpu-keys"))
+         (setq file (convert-standard-filename
+                     (expand-file-name "~/.tpu-keys")))
          (and (not (file-exists-p file))
-              (file-exists-p (expand-file-name "~/.tpu-gnu-keys"))
-              (tpu-copy-keyfile (expand-file-name "~/.tpu-gnu-keys") file))))
+              (file-exists-p
+               (convert-standard-filename
+                (expand-file-name "~/.tpu-gnu-keys")))
+              (tpu-copy-keyfile
+               (convert-standard-filename
+                (expand-file-name "~/.tpu-gnu-keys") file)))))
   (cond ((file-readable-p file)
          (load-file file))
         (t