Commit e803d767 authored by Karl Heuer's avatar Karl Heuer
Browse files

Use `convert-standard-filename' to set the name

of the key mapping file.
parent a96c462f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment