Rob Riepel <riepel at networking.stanford.edu>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49a01790684aa858b19be25839f5c8188a635c03..e74b56f7b414a2df75078bd5deede409c725ff7c 100644 (file)
--- 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\e,Ae\e(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 ea48c961cc4f49a58758b346348183e8767e14d0..8edf963c8dd3479ba9d80700299d1716e89d0fd6 100644 (file)
--- 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")