[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el |
Date: |
Sun, 03 Jul 2005 15:31:46 -0400 |
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 ----