From e803d7673b4770fd088de9c2f3ddf30d09e3a027 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 19 Jan 1996 22:44:37 +0000 Subject: [PATCH] Use `convert-standard-filename' to set the name of the key mapping file. --- lisp/emulation/tpu-mapper.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2