(tpu-mark): Fix previous change.

(zmacs-regions): Add defvar.
(repeat-complex-command-map): Everything about that deleted.

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 02b4da7bedc354e1e8f15b2b8240ff7bed105900..d685bec1e652958646404d8d8ce110dca2d291d5 100644 (file)
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -542,7 +542,7 @@ Otherwise sets the tpu-match markers to nil and returns nil."
 Return the appropriate value of the mark for the current
 version of Emacs."
   (cond (tpu-lucid-emacs-p (mark (not zmacs-regions)))
-       (and mark-active (mark (not transient-mark-mode)))))
+       (t (and mark-active (mark (not transient-mark-mode))))))
 
 (defun tpu-set-mark (pos)
   "TPU-edt version of the `set-mark' function.
@@ -2263,16 +2263,6 @@ Accepts a prefix argument for the number of tpu-pan-columns to scroll."
 (define-key GOLD-SS3-map "M" 'tpu-substitute)                 ; KPenter
 
 
-;;;
-;;;  Repeat complex command map additions to make arrows work
-;;;
-(cond ((boundp 'repeat-complex-command-map)
-       (define-key repeat-complex-command-map "\e[A" 'previous-complex-command)
-       (define-key repeat-complex-command-map "\e[B" 'next-complex-command)
-       (define-key repeat-complex-command-map "\eOA" 'previous-complex-command)
-       (define-key repeat-complex-command-map "\eOB" 'next-complex-command)))
-
-
 ;;;
 ;;;  Minibuffer map additions to make KP_enter = RET
 ;;;
@@ -2280,8 +2270,6 @@ Accepts a prefix argument for the number of tpu-pan-columns to scroll."
 (define-key minibuffer-local-ns-map "\eOM" 'exit-minibuffer)
 (define-key minibuffer-local-completion-map "\eOM" 'exit-minibuffer)
 (define-key minibuffer-local-must-match-map "\eOM" 'minibuffer-complete-and-exit)
-(and (boundp 'repeat-complex-command-map)
-     (define-key repeat-complex-command-map "\eOM" 'exit-minibuffer))
 
 
 ;;;