Mercurial > emacs
changeset 85949:b2723afaaa59
Rob Riepel <riepel at networking.stanford.edu>
(tpu-map-key): Remove un-needed cond branch.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 07 Nov 2007 03:39:09 +0000 |
| parents | e1bde34ff0d5 |
| children | ba090ec72685 |
| files | lisp/emulation/tpu-mapper.el |
| diffstat | 1 files changed, 2 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-mapper.el Wed Nov 07 03:34:45 2007 +0000 +++ b/lisp/emulation/tpu-mapper.el Wed Nov 07 03:39:09 2007 +0000 @@ -183,11 +183,7 @@ (insert (format"(global-set-key %s %s)\n" tpu-key func)) (set-buffer "Gold-Keys") (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func)) - (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... - (t - (with-no-warnings (format "%s" tpu-key))))) + (set-buffer "Directions")))) (message "Press %s%s: " ident descrip) (setq tpu-key-seq (read-event)) (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) @@ -196,12 +192,7 @@ (insert (format"(define-key tpu-global-map %s %s)\n" tpu-key func)) (set-buffer "Gold-Keys") (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func)) - (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 - (with-no-warnings (format "%s" tpu-key))))) + (set-buffer "Directions")))) tpu-key) (set-buffer "Keys")