summaryrefslogtreecommitdiff
path: root/lisp/emulation/tpu-mapper.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-01-19 22:44:37 +0000
committerKarl Heuer <kwzh@gnu.org>1996-01-19 22:44:37 +0000
commite803d7673b4770fd088de9c2f3ddf30d09e3a027 (patch)
treef6dd56057b19d4d261f3b9c8bb49267719a72e68 /lisp/emulation/tpu-mapper.el
parenta96c462fce18dfc714388298333035c08653e345 (diff)
downloademacs-e803d7673b4770fd088de9c2f3ddf30d09e3a027.tar.gz
Use `convert-standard-filename' to set the name
of the key mapping file.
Diffstat (limited to 'lisp/emulation/tpu-mapper.el')
-rw-r--r--lisp/emulation/tpu-mapper.el4
1 files changed, 3 insertions, 1 deletions
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)