From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 May 1995 15:52:55 +0000 (+0000)
Subject: (tpu-copy-keyfile): New function.
X-Git-Tag: emacs-19.34~4221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb78a29127709f531d26dd84a5a65f125d2a5187;p=emacs.git

(tpu-copy-keyfile): New function.
(tpu-load-xkeys): Copy key definition file to new default name.
---

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index a28a312e621..d6524dc7f5d 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -2109,7 +2109,10 @@ If FILE is nil, try to load a default file.  The default file names are
 	(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 @@ If FILE is nil, try to load a default file.  The default file names are
 		  (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