diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-30 06:24:00 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-30 06:24:00 +0000 |
| commit | d70184ba35be663016bc457e02bc0c794c841cc2 (patch) | |
| tree | bef1be411adf17d534308c85f4d61e628c9ca109 | |
| parent | 798bd43727b4397d3d4e7e620610a8e3431aa2f4 (diff) | |
| download | emacs-d70184ba35be663016bc457e02bc0c794c841cc2.tar.gz emacs-d70184ba35be663016bc457e02bc0c794c841cc2.tar.bz2 emacs-d70184ba35be663016bc457e02bc0c794c841cc2.zip | |
(tpu-map-key): Use with-no-warning to suppress byte-opt warning.
| -rw-r--r-- | lisp/emulation/tpu-mapper.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index 3f216ca8a2b..ea48c961cc4 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -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") |