Mercurial > emacs
changeset 6792:385261457584
If server is a Sun, call menu-bar-enable-clipboard.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 10 Apr 1994 08:56:50 +0000 |
| parents | 7036e4fd549f |
| children | 15e380b232fa |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.