Mercurial > emacs
comparison lisp/emulation/tpu-mapper.el @ 85781:32324df93013
(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 | 29e75576e47f |
children | b2723afaaa59 |
comparison
equal
deleted
inserted
replaced
85780:1b8904c5babf | 85781:32324df93013 |
---|---|
185 (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func)) | 185 (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func)) |
186 (set-buffer "Directions")) | 186 (set-buffer "Directions")) |
187 ;; bogosity to get next prompt to come up, if the user hits <CR>! | 187 ;; bogosity to get next prompt to come up, if the user hits <CR>! |
188 ;; check periodically to see if this is still needed... | 188 ;; check periodically to see if this is still needed... |
189 (t | 189 (t |
190 (format "%s" tpu-key)))) | 190 (with-no-warnings (format "%s" tpu-key))))) |
191 (message "Press %s%s: " ident descrip) | 191 (message "Press %s%s: " ident descrip) |
192 (setq tpu-key-seq (read-event)) | 192 (setq tpu-key-seq (read-event)) |
193 (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) | 193 (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) |
194 (cond ((not (equal tpu-key tpu-return)) | 194 (cond ((not (equal tpu-key tpu-return)) |
195 (set-buffer "Keys") | 195 (set-buffer "Keys") |
197 (set-buffer "Gold-Keys") | 197 (set-buffer "Gold-Keys") |
198 (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func)) | 198 (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func)) |
199 (set-buffer "Directions")) | 199 (set-buffer "Directions")) |
200 ;; bogosity to get next prompt to come up, if the user hits <CR>! | 200 ;; bogosity to get next prompt to come up, if the user hits <CR>! |
201 ;; check periodically to see if this is still needed... | 201 ;; check periodically to see if this is still needed... |
202 ;; byte-opt warns that the return value is unused. | |
202 (t | 203 (t |
203 (format "%s" tpu-key)))) | 204 (with-no-warnings (format "%s" tpu-key))))) |
204 tpu-key) | 205 tpu-key) |
205 | 206 |
206 (set-buffer "Keys") | 207 (set-buffer "Keys") |
207 (insert " | 208 (insert " |
208 ;; Arrows | 209 ;; Arrows |