From: Glenn Morris Date: Wed, 7 Nov 2007 03:39:19 +0000 (+0000) Subject: Rob Riepel X-Git-Tag: emacs-pretest-23.0.90~9847 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ffadbb8c39f7260d5e7e79220b571eda293620f;p=emacs.git Rob Riepel (tpu-map-key): Remove un-needed cond branch. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 49a01790684..e74b56f7b41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-11-07 Rob Riepel + + * emulation/tpu-mapper.el (tpu-map-key): Remove un-needed cond branch. + 2007-11-07 Johan Bockg,Ae(Brd * eshell/esh-mode.el (eshell-output-filter): diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index ea48c961cc4..8edf963c8dd 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -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 ! - ;; 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 ! - ;; 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")