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
4991d130
Commit
4991d130
authored
Jul 02, 2014
by
Stefan Monnier
Browse files
* mouse.el (mouse-yank-primary, mouse-yank-secondary): Use insert-for-yank.
Fixes: debbugs:17271
parent
cc4f9c83
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/mouse.el
lisp/mouse.el
+2
-2
No files found.
lisp/ChangeLog
View file @
4991d130
2014-07-02 Stefan Monnier <monnier@iro.umontreal.ca>
* mouse.el (mouse-yank-primary, mouse-yank-secondary):
Use insert-for-yank (bug#17271).
2014-07-02 Leo Liu <sdl.web@gmail.com>
* emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):
...
...
lisp/mouse.el
View file @
4991d130
...
...
@@ -1101,7 +1101,7 @@ regardless of where you click."
(
unless
primary
(
error
"No selection is available"
))
(
push-mark
(
point
))
(
insert
primary
)))
(
insert
-for-yank
primary
)))
(
defun
mouse-kill-ring-save
(
click
)
"Copy the region between point and the mouse click in the kill ring.
...
...
@@ -1383,7 +1383,7 @@ regardless of where you click."
(
or
mouse-yank-at-point
(
mouse-set-point
click
))
(
let
((
secondary
(
x-get-selection
'SECONDARY
)))
(
if
secondary
(
insert
secondary
)
(
insert
-for-yank
secondary
)
(
error
"No secondary selection"
))))
(
defun
mouse-kill-secondary
()
...
...
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