Mercurial > emacs

changeset 85781:32324df93013

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-map-key): Use with-no-warning to suppress byte-opt warning.
author Glenn Morris <rgm@gnu.org>
date Tue, 30 Oct 2007 06:24:00 +0000
parents 1b8904c5babf
children c0f20db3e35a
files lisp/emulation/tpu-mapper.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/tpu-mapper.el	Tue Oct 30 06:23:06 2007 +0000
+++ b/lisp/emulation/tpu-mapper.el	Tue Oct 30 06:24:00 2007 +0000
@@ -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")