# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822091477 0
# Node ID 7b43c39dbcfac37636b9bd74d250653e823066a9
# Parent  04dba88947bce60841ef17e2b1e5c7c77a280d7c
Use `convert-standard-filename' to set the name
of the key mapping file.

diff -r 04dba88947bc -r 7b43c39dbcfa lisp/emulation/tpu-mapper.el
--- a/lisp/emulation/tpu-mapper.el	Fri Jan 19 22:43:41 1996 +0000
+++ b/lisp/emulation/tpu-mapper.el	Fri Jan 19 22:44:37 1996 +0000
@@ -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)