* lisp/term/ns-win.el: Add functions to ns frame, not x frame.

Fixes: debbugs:18614

2 files changed, 8 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5ef6703e68..1f9ac164cfa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-10-02  David Raynes  <rayners@gmail.com>  (tiny change)
+
+        * term/ns-win.el: Add functions to ns frame, not x frame (bug#18614).
+
 2014-10-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * obsolete/lucid.el (read-number): Remove, redundant.
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 5889baf6946..b1d3a00df0c 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -971,10 +971,10 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
                      (when gui-select-enable-clipboard
                        (ns-set-pasteboard text))))
 
-(gui-method-define gui-own-selection x #'ns-own-selection-internal)
-(gui-method-define gui-disown-selection x #'ns-disown-selection-internal)
-(gui-method-define gui-selection-owner-p x #'ns-selection-owner-p)
-(gui-method-define gui-get-selection x #'x-get-selection-internal) ;FIXME:name!
+(gui-method-define gui-own-selection ns #'ns-own-selection-internal)
+(gui-method-define gui-disown-selection ns #'ns-disown-selection-internal)
+(gui-method-define gui-selection-owner-p ns #'ns-selection-owner-p)
+(gui-method-define gui-get-selection ns #'x-get-selection-internal) ;FIXME:name!
 
 (provide 'ns-win)