# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1194406749 0
# Node ID b2723afaaa59811f2bfa5dc95a8a8e2902e3e908
# Parent  e1bde34ff0d5616f2020196947b468a0747dd27d
Rob Riepel  <riepel at networking.stanford.edu>

(tpu-map-key): Remove un-needed cond branch.

diff -r e1bde34ff0d5 -r b2723afaaa59 lisp/emulation/tpu-mapper.el
--- a/lisp/emulation/tpu-mapper.el	Wed Nov 07 03:34:45 2007 +0000
+++ b/lisp/emulation/tpu-mapper.el	Wed Nov 07 03:39:09 2007 +0000
@@ -183,11 +183,7 @@
 	       (insert (format"(global-set-key %s %s)\n" tpu-key func))
 	       (set-buffer "Gold-Keys")
 	       (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func))
-	       (set-buffer "Directions"))
-	      ;; bogosity to get next prompt to come up, if the user hits <CR>!
-	      ;; check periodically to see if this is still needed...
-	      (t
-	       (with-no-warnings (format "%s" tpu-key)))))
+	       (set-buffer "Directions"))))
     (message "Press %s%s: " ident descrip)
     (setq tpu-key-seq (read-event))
     (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]"))
@@ -196,12 +192,7 @@
 	   (insert (format"(define-key tpu-global-map %s %s)\n" tpu-key func))
 	   (set-buffer "Gold-Keys")
 	   (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func))
-	   (set-buffer "Directions"))
-	  ;; bogosity to get next prompt to come up, if the user hits <CR>!
-	  ;; check periodically to see if this is still needed...
-	  ;; byte-opt warns that the return value is unused.
-	  (t
-	   (with-no-warnings (format "%s" tpu-key)))))
+	   (set-buffer "Directions"))))
     tpu-key)
 
 (set-buffer "Keys")