[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el

[Richard M . Stallman]

Index: emacs/lisp/emulation/tpu-edt.el
diff -c emacs/lisp/emulation/tpu-edt.el:1.41 
emacs/lisp/emulation/tpu-edt.el:1.42
*** emacs/lisp/emulation/tpu-edt.el:1.41        Sun Jul  3 19:27:05 2005
--- emacs/lisp/emulation/tpu-edt.el     Sun Jul  3 19:31:46 2005
***************
*** 542,548 ****
  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)))))
  
  (defun tpu-set-mark (pos)
    "TPU-edt version of the `set-mark' function.
--- 542,548 ----
  Return the appropriate value of the mark for the current
  version of Emacs."
    (cond (tpu-lucid-emacs-p (mark (not zmacs-regions)))
!       (t (and mark-active (mark (not transient-mark-mode))))))
  
  (defun tpu-set-mark (pos)
    "TPU-edt version of the `set-mark' function.
***************
*** 2264,2287 ****
  
  
  ;;;
- ;;;  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))
  
  
  ;;;
--- 2264,2275 ----