mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(tpu-mark): Fix previous change.

Browse Source 
(zmacs-regions): Add defvar.
(repeat-complex-command-map): Everything about that deleted.
This commit is contained in:
Richard M. Stallman 2005-07-03 19:31:46 +00:00
parent c9b6a3a6d3
commit 8a26ec4e18
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/emulation/tpu-edt.el
View File

@ -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))
;;;