mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2007-10-30 06:24:00 +00:00
parent 798bd43727
commit d70184ba35
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emulation/tpu-mapper.el
View file

@ -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")