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

(tpu-load-xkeys): Use `convert-standard-filename' to

set the name of the key mapping file.
parent 89132f25
......@@ -2367,12 +2367,18 @@ If FILE is nil, try to load a default file. The default file names are
(tpu-xkeys-file
(setq file (expand-file-name tpu-xkeys-file)))
(tpu-lucid-emacs19-p
(setq file (expand-file-name "~/.tpu-lucid-keys")))
(setq file (convert-standard-filename
(expand-file-name "~/.tpu-lucid-keys"))))
(tpu-emacs19-p
(setq file (expand-file-name "~/.tpu-keys"))
(setq file (convert-standard-filename
(expand-file-name "~/.tpu-keys")))
(and (not (file-exists-p file))
(file-exists-p (expand-file-name "~/.tpu-gnu-keys"))
(tpu-copy-keyfile (expand-file-name "~/.tpu-gnu-keys") file))))
(file-exists-p
(convert-standard-filename
(expand-file-name "~/.tpu-gnu-keys")))
(tpu-copy-keyfile
(convert-standard-filename
(expand-file-name "~/.tpu-gnu-keys") file)))))
(cond ((file-readable-p file)
(load-file file))
(t
......
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