# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120419106 0
# Node ID cb3452fe10a53cf47033fa792d6797b624c47c0f
# Parent  bca488f8a2c4a5f4404cd494e3359b64c3ce0057
(tpu-mark): Fix previous change.
(zmacs-regions): Add defvar.
(repeat-complex-command-map): Everything about that deleted.

diff -r bca488f8a2c4 -r cb3452fe10a5 lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Sun Jul 03 19:27:34 2005 +0000
+++ b/lisp/emulation/tpu-edt.el	Sun Jul 03 19:31:46 2005 +0000
@@ -542,7 +542,7 @@
 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.
@@ -2264,24 +2264,12 @@
 
 
 ;;;
-;;;  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
 ;;;
 (define-key minibuffer-local-map "\eOM" 'exit-minibuffer)
 (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))
 
 
 ;;;