Commit 06bc58d8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Eval key definitions and clean up upon completion.

Persistent completion status message.
parent 158a958d
;;; tpu-mapper.el --- Create a TPU-edt keymap file for x-windows emacs.
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
;; Author: Rob Riepel <>
;; Maintainer: Rob Riepel <>
......@@ -361,13 +361,31 @@
(set-buffer "Keys")
;;; Save the key mapping program and blow this pop stand
;;; Save the key mapping program
(let ((file (if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-keys")))
(read-file-name (format "Save key mapping to file (default %s): " file) "" file)))
(message "tpu-mapper done")
;;; Load the newly defined keys and clean up
(kill-buffer (current-buffer))
(kill-buffer "*scratch*")
(kill-buffer "Gold-Keys")
;;; Let them know it worked.
(switch-to-buffer "Directions")
(insert "
A custom TPU-edt keymap file has been created.
Press GOLD-k to remove this buffer and continue editing.
(goto-char (point-min))
;;; tpu-mapper.el ends here
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