procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
set the name of the key mapping file.
This commit is contained in:
Karl Heuer 1996-01-19 22:43:41 +00:00
parent 89132f25ac
commit a96c462fce
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/emulation/tpu-edt.el
View file

@ -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