(tpu-map-key): Use with-no-warning to suppress byte-opt warning.

diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index 3f216ca8a2bb94ffbec658db06ffd64cbcd57c77..ea48c961cc4f49a58758b346348183e8767e14d0 100644 (file)
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -187,7 +187,7 @@
              ;; bogosity to get next prompt to come up, if the user hits <CR>!
              ;; check periodically to see if this is still needed...
              (t
-              (format "%s" tpu-key))))
+              (with-no-warnings (format "%s" tpu-key)))))
     (message "Press %s%s: " ident descrip)
     (setq tpu-key-seq (read-event))
     (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]"))
@@ -199,8 +199,9 @@
           (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
-          (format "%s" tpu-key))))
+          (with-no-warnings (format "%s" tpu-key)))))
     tpu-key)
 
 (set-buffer "Keys")