Mercurial > emacs
changeset 63964:cb3452fe10a5
(tpu-mark): Fix previous change.
(zmacs-regions): Add defvar.
(repeat-complex-command-map): Everything about that deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Jul 2005 19:31:46 +0000 |
| parents | bca488f8a2c4 |
| children | 11ea7e1defc8 |
| files | lisp/emulation/tpu-edt.el |
| diffstat | 1 files changed, 1 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- 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)) ;;;