Mercurial > emacs

changeset 14227:04dba88947bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-load-xkeys): Use `convert-standard-filename' to set the name of the key mapping file.
author Karl Heuer <kwzh@gnu.org>
date Fri, 19 Jan 1996 22:43:41 +0000
parents ad275aca6fc5
children 7b43c39dbcfa
files lisp/emulation/tpu-edt.el
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el	Fri Jan 19 22:39:00 1996 +0000
+++ b/lisp/emulation/tpu-edt.el	Fri Jan 19 22:43:41 1996 +0000
@@ -2367,12 +2367,18 @@
 	(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