# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765968210 0
# Node ID 385261457584209ef73c2b2ad7814e0dd68865e9
# Parent  7036e4fd549f9878048ead9d4ab413513d5edb5f
If server is a Sun, call menu-bar-enable-clipboard.

diff -r 7036e4fd549f -r 385261457584 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Sun Apr 10 06:06:51 1994 +0000
+++ b/lisp/term/x-win.el	Sun Apr 10 08:56:50 1994 +0000
@@ -619,6 +619,11 @@
 (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
 			    x-cut-buffer-max))
 
+;; Sun expects the menu bar cut and paste commands to use the clipboard.
+(if (string-match "X11/NeWS - Sun Microsystems Inc\\."
+		  (x-server-vendor))
+    (menu-bar-enable-clipboard))
+
 ;; Apply a geometry resource to the initial frame.  Put it at the end
 ;; of the alist, so that anything specified on the command line takes
 ;; precedence.