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 |