Rob Riepel <riepel at networking.stanford.edu>

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

2 files changed, 6 insertions, 11 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49a01790684..e74b56f7b41 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-11-07  Rob Riepel  <riepel@networking.stanford.edu>
+
+        * emulation/tpu-mapper.el (tpu-map-key): Remove un-needed cond branch.
+
 2007-11-07  Johan Bockg,Ae(Brd  <bojohan@gnu.org>
 
         * eshell/esh-mode.el (eshell-output-filter):
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index ea48c961cc4..8edf963c8dd 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -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")