# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799343575 0
# Node ID dfdae6cd817ec6f2e5727be3afde5aff51b1c3dc
# Parent  919ac497342ef6a35c616c9d5cdd0913168ac951
(tpu-copy-keyfile): New function.
(tpu-load-xkeys): Copy key definition file to new default name.

diff -r 919ac497342e -r dfdae6cd817e lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Mon May 01 15:49:09 1995 +0000
+++ b/lisp/emulation/tpu-edt.el	Mon May 01 15:52:55 1995 +0000
@@ -2109,7 +2109,10 @@
 	(tpu-lucid-emacs19-p
 	 (setq file (expand-file-name "~/.tpu-lucid-keys")))
 	(tpu-emacs19-p
-	 (setq file (expand-file-name "~/.tpu-keys"))))
+	 (setq file (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))))
   (cond ((file-readable-p file)
 	 (load-file file))
 	(t
@@ -2142,6 +2145,34 @@
 		  (insert "Nope, I can't seem to find it.  :-(\n\n")
 		  (sit-for 120)))))))
 
+(defun tpu-copy-keyfile (oldname newname)
+  "Copy the TPU-edt X key definitions file to the new default name."
+  (interactive "fOld name: \nFNew name: ")
+  (if (not (get-buffer "*TPU-Notice*")) (generate-new-buffer "*TPU-Notice*"))
+  (set-buffer "*TPU-Notice*")
+  (erase-buffer)
+  (insert "
+  NOTICE --
+
+  The default name of the TPU-edt key definition file has changed
+  from `~/.tpu-gnu-keys' to `~/.tpu-keys'.  With your permission,
+  your key definitions will be copied to the new file.  If you'll
+  never use older versions of Emacs, you can remove the old file.
+  If the copy fails, you'll be asked if you want to create a new
+  key definitions file.  Do you want to copy your key definition
+  file now?
+  ")
+  (save-window-excursion
+    (switch-to-buffer-other-window "*TPU-Notice*")
+    (shrink-window-if-larger-than-buffer)
+    (goto-char (point-min))
+    (beep)
+    (and (tpu-y-or-n-p "Copy key definitions to the new file now? ")
+	 (condition-case conditions
+             (copy-file oldname newname)
+	   (error (message "Sorry, couldn't copy - %s" (cdr conditions)))))
+    (kill-buffer "*TPU-Notice*")))
+
 
 ;;;
 ;;;  Start and Stop TPU-edt