diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-11-07 03:39:19 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-11-07 03:39:19 +0000 |
| commit | 6ffadbb8c39f7260d5e7e79220b571eda293620f (patch) | |
| tree | 7227f3e720482074121d27b60360e249c1814575 | |
| parent | dafac6f36e195e6ce263f12018243a13e84c4616 (diff) | |
| download | emacs-6ffadbb8c39f7260d5e7e79220b571eda293620f.tar.gz | |
Rob Riepel <riepel at networking.stanford.edu>
(tpu-map-key): Remove un-needed cond branch.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emulation/tpu-mapper.el | 13 |
2 files changed, 6 insertions, 11 deletions
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 <riepel@networking.stanford.edu> + + * emulation/tpu-mapper.el (tpu-map-key): Remove un-needed cond branch. + 2007-11-07 Johan Bockg,Ae(Brd <bojohan@gnu.org> * 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 <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") |