From a96c462fce18dfc714388298333035c08653e345 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 19 Jan 1996 22:43:41 +0000 Subject: [PATCH] (tpu-load-xkeys): Use `convert-standard-filename' to set the name of the key mapping file. --- lisp/emulation/tpu-edt.el | 14 ++++++++++---- 1 file 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 -- 2.39.2