[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r118194: * lisp/term/ns-win.el (ns-store-cut-buffer-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r118194: * lisp/term/ns-win.el (ns-store-cut-buffer-internal) |
Date: |
Fri, 24 Oct 2014 22:23:50 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 118194
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18816
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2014-10-24 18:23:43 -0400
message:
* lisp/term/ns-win.el (ns-store-cut-buffer-internal)
(ns-copy-including-secondary): Use gui-set-selection.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/term/ns-win.el nswin.el-20091113204419-o5vbwnq5f7feedwu-8708
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-10-24 09:58:43 +0000
+++ b/lisp/ChangeLog 2014-10-24 22:23:43 +0000
@@ -1,3 +1,8 @@
+2014-10-24 Stefan Monnier <address@hidden>
+
+ * term/ns-win.el (ns-store-cut-buffer-internal)
+ (ns-copy-including-secondary): Use gui-set-selection (bug#18816).
+
2014-10-24 Martin Rudalics <address@hidden>
* mouse.el (mouse-drag-line): Don't use mouse-pixel-position.
=== modified file 'lisp/term/ns-win.el'
--- a/lisp/term/ns-win.el 2014-10-21 15:27:18 +0000
+++ b/lisp/term/ns-win.el 2014-10-24 22:23:43 +0000
@@ -718,19 +718,18 @@
;;;; 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r118194: * lisp/term/ns-win.el (ns-store-cut-buffer-internal),
Stefan Monnier <=