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

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

Browse source 
of the key mapping file.
This commit is contained in:
Karl Heuer 1996-01-19 22:44:37 +00:00
parent a96c462fce
commit e803d7673b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emulation/tpu-mapper.el
View file

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