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

* lisp/term/ns-win.el (ns-store-cut-buffer-internal)

Browse Source 
(ns-copy-including-secondary): Use gui-set-selection.

Fixes: debbugs:18816
This commit is contained in:
Stefan Monnier 2014-10-24 18:23:43 -04:00
parent 7026b4d8ee
commit ac6839a839
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-10-24 Stefan Monnier <monnier@iro.umontreal.ca>
* term/ns-win.el (ns-store-cut-buffer-internal)
(ns-copy-including-secondary): Use gui-set-selection (bug#18816).
2014-10-24 Martin Rudalics <rudalics@gmx.at>
* mouse.el (mouse-drag-line): Don't use mouse-pixel-position.

7
lisp/term/ns-win.el
View File

@ -718,19 +718,18 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
;;;; Pasteboard support.
(declare-function ns-get-selection-internal "nsselect.m" (buffer))
(declare-function ns-store-selection-internal "nsselect.m" (buffer string))
(define-obsolete-function-alias 'ns-get-cut-buffer-internal
'ns-get-selection-internal "24.1")
(define-obsolete-function-alias 'ns-store-cut-buffer-internal
'ns-store-selection-internal "24.1")
'gui-set-selection "24.1")
(defun ns-copy-including-secondary ()
(interactive)
(call-interactively 'kill-ring-save)
(ns-store-selection-internal 'SECONDARY
(buffer-substring (point) (mark t))))
(gui-set-selection 'SECONDARY (buffer-substring (point) (mark t))))
(defun ns-paste-secondary ()
(interactive)
(insert (ns-get-selection-internal 'SECONDARY)))