From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 19 Jan 1996 22:43:41 +0000 (+0000)
Subject: (tpu-load-xkeys): Use `convert-standard-filename' to
X-Git-Tag: emacs-19.34~1633
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a96c462fce18dfc714388298333035c08653e345;p=emacs.git

(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 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