Mercurial > emacs
changeset 14228:7b43c39dbcfa
Use `convert-standard-filename' to set the name
of the key mapping file.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 19 Jan 1996 22:44:37 +0000 |
| parents | 04dba88947bc |
| children | d9ef2de9c722 |
| files | lisp/emulation/tpu-mapper.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-mapper.el Fri Jan 19 22:43:41 1996 +0000 +++ b/lisp/emulation/tpu-mapper.el Fri Jan 19 22:44:37 1996 +0000 @@ -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)