From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Jul 2005 19:31:46 +0000 (+0000)
Subject: (tpu-mark): Fix previous change.
X-Git-Tag: emacs-pretest-22.0.90~8475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a26ec4e18c4ed7e87b07b9b889765f46d3898e4;p=emacs.git

(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 02b4da7bedc..d685bec1e65 100644
--- 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))
 
 
 ;;;