diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-01-19 22:44:37 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-01-19 22:44:37 +0000 |
commit | e803d7673b4770fd088de9c2f3ddf30d09e3a027 (patch) | |
tree | f6dd56057b19d4d261f3b9c8bb49267719a72e68 /lisp/emulation/tpu-mapper.el | |
parent | a96c462fce18dfc714388298333035c08653e345 (diff) | |
download | emacs-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.el | 4 |
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) |