[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-mapper.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-mapper.el,v |
Date: |
Tue, 30 Oct 2007 06:24:01 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/10/30 06:24:01
Index: tpu-mapper.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/tpu-mapper.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- tpu-mapper.el 29 Oct 2007 15:32:33 -0000 1.23
+++ tpu-mapper.el 30 Oct 2007 06:24:00 -0000 1.24
@@ -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")