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

set the name of the key mapping file.

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 3961240e6fd5eba22430c998d18b3b4881b932a7..f088e53f29edc3a668b6bcbaa1ac9c9c89a00f31 100644 (file)
--- 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