Mercurial > emacs
changeset 45503:b5885da440b5
(cua--init-global-mark): Install default
binding in cua--global-mark-keymap using cua--self-insert-char-p
to handle all global self inserting characters in gmark mode.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 25 May 2002 00:07:26 +0000 |
| parents | 3cea63601c2a |
| children | 3ddab99699f4 |
| files | lisp/emulation/cua-gmrk.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/cua-gmrk.el Sat May 25 00:06:56 2002 +0000 +++ b/lisp/emulation/cua-gmrk.el Sat May 25 00:07:26 2002 +0000 @@ -377,6 +377,11 @@ (define-key cua--global-mark-keymap [remap backward-delete-char-untabify] 'cua-delete-backward-char-at-global-mark) (define-key cua--global-mark-keymap [remap self-insert-command] 'cua-insert-char-at-global-mark) (define-key cua--global-mark-keymap [remap self-insert-iso] 'cua-insert-char-at-global-mark) + + ;; Catch self-inserting characters which are "stolen" by other modes + (define-key cua--global-mark-keymap [t] + '(menu-item "sic" cua-insert-char-at-global-mark :filter cua--self-insert-char-p)) + (define-key cua--global-mark-keymap [remap newline] 'cua-insert-newline-at-global-mark) (define-key cua--global-mark-keymap [remap newline-and-indent] 'cua-insert-newline-at-global-mark) (define-key cua--global-mark-keymap "\r" 'cua-insert-newline-at-global-mark)