From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 19 Jan 1996 22:44:37 +0000 (+0000)
Subject: Use `convert-standard-filename' to set the name
X-Git-Tag: emacs-19.34~1632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e803d7673b4770fd088de9c2f3ddf30d09e3a027;p=emacs.git

Use `convert-standard-filename' to set the name
of the key mapping file.
---

diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index d327b4f4ee4..ba6d032fd6a 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -365,7 +365,9 @@
 ;;;
 ;;;  Save the key mapping program
 ;;;
-(let ((file (if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-keys")))
+(let ((file
+       (convert-standard-filename
+	(if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-keys"))))
   (set-visited-file-name
    (read-file-name (format "Save key mapping to file (default %s): " file) "" file)))
 (save-buffer)