* w32-common-fns.el (x-server-version, x-select-enable-clipboard): Declare.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b27fbea0d14bb4c7600174f381c36894cc73256c..1bb24cb549f22d254e92ce98aa3e879be8ab6af1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -31,6 +31,9 @@
 
        * term/w32-win.el (create-default-fontset): Declare.
 
+       * w32-common-fns.el (x-server-version, x-select-enable-clipboard):
+       Declare.
+
        * window.el (x-display-pixel-height, tool-bar-lines-needed): Declare.
        (fit-frame-to-buffer): Explicit error if --without-x.
        (mouse-autoselect-window-select): Silence compiler.

diff --git a/lisp/w32-common-fns.el b/lisp/w32-common-fns.el
index 5d8d7171860a75e3a0a38175c216ea2fc98f61f0..6b1c3ac976ec932b5e417be01f0d3f827c60f1b3 100644 (file)
--- a/lisp/w32-common-fns.el
+++ b/lisp/w32-common-fns.el
@@ -23,6 +23,8 @@
 ;;; and Cygwin Emacs compiled to use the native Windows widget
 ;;; library.
 
+(declare-function x-server-version "w32fns.c" (&optional terminal))
+
 (defun w32-version ()
   "Return the MS-Windows version numbers.
 The value is a list of three integers: the major and minor version
@@ -100,6 +102,7 @@ in `selection-converter-alist', which see."
 ;; current selection against it, and avoid passing back our own text
 ;; from x-selection-value.
 (defvar x-last-selected-text nil)
+(defvar x-select-enable-clipboard)
 
 (defun x-get-selection-value ()
   "Return the value of the current selection.