Commit ac6839a8 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

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

Fixes: debbugs:18816
parent 7026b4d8
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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment