mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(cua--init-global-mark): Install default

Browse source 
binding in cua--global-mark-keymap using cua--self-insert-char-p
to handle all global self inserting characters in gmark mode.
This commit is contained in:
Kim F. Storm 2002-05-25 00:07:26 +00:00
parent 20023b9cb4
commit f8b38495a5
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emulation/cua-gmrk.el
View file

@ -377,6 +377,11 @@ With prefix argument, don't jump to global mark when cancelling it."
(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)