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 ----
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
