Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ed8bc9f8
Commit
ed8bc9f8
authored
Feb 24, 2007
by
Kim F. Storm
Browse files
(cua-paste): Handle x-clipboard-yank.
(cua--init-keymaps): Remap x-clipboard-yank to cua-paste.
parent
b0943f48
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
0 deletions
+3
-0
lisp/emulation/cua-base.el
lisp/emulation/cua-base.el
+3
-0
No files found.
lisp/emulation/cua-base.el
View file @
ed8bc9f8
...
...
@@ -930,6 +930,8 @@ If global mark is active, copy from register or one character."
(
if
arg
(
goto-char
pt
))))
((
eq
this-original-command
'clipboard-yank
)
(
clipboard-yank
))
((
eq
this-original-command
'x-clipboard-yank
)
(
x-clipboard-yank
))
(
t
(
yank
arg
)))))))
...
...
@@ -1406,6 +1408,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
;; replace region with rectangle or element on kill ring
(
define-key
cua-global-keymap
[remap
yank]
'cua-paste
)
(
define-key
cua-global-keymap
[remap
clipboard-yank]
'cua-paste
)
(
define-key
cua-global-keymap
[remap
x-clipboard-yank]
'cua-paste
)
;; replace current yank with previous kill ring element
(
define-key
cua-global-keymap
[remap
yank-pop]
'cua-paste-pop
)
;; set mark
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment