diff options
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) |