diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-11-07 03:46:22 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-11-07 03:46:22 +0000 |
| commit | c74e901d7f21678f300a1f47be091ff34760a3e2 (patch) | |
| tree | 4cc192aa998bc40e867113d6cb2ba1c842be4e80 /lisp/emulation | |
| parent | 6ffadbb8c39f7260d5e7e79220b571eda293620f (diff) | |
| download | emacs-c74e901d7f21678f300a1f47be091ff34760a3e2.tar.gz | |
(tpu-map-key): Use unless rather than cond.
Remove superfluous concats. Move final set-buffer to non-emacs-specific code.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/tpu-mapper.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index 8edf963c8dd..b3ad67ec4df 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -176,24 +176,24 @@ (interactive) (if (featurep 'xemacs) (progn - (setq tpu-key-seq (read-key-sequence (format "Press %s%s: " ident descrip))) - (setq tpu-key (concat "[" (format "%s" (event-key (aref tpu-key-seq 0))) "]")) - (cond ((not (equal tpu-key tpu-return)) - (set-buffer "Keys") - (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")))) + (setq tpu-key-seq (read-key-sequence + (format "Press %s%s: " ident descrip)) + tpu-key (format "[%s]" (event-key (aref tpu-key-seq 0)))) + (unless (equal tpu-key tpu-return) + (set-buffer "Keys") + (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)))) (message "Press %s%s: " ident descrip) - (setq tpu-key-seq (read-event)) - (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) - (cond ((not (equal tpu-key tpu-return)) - (set-buffer "Keys") - (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")))) - tpu-key) + (setq tpu-key-seq (read-event) + tpu-key (format "[%s]" tpu-key-seq)) + (unless (equal tpu-key tpu-return) + (set-buffer "Keys") + (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") + tpu-key) (set-buffer "Keys") (insert " |