Mercurial > emacs
comparison lisp/term/x-win.el @ 10056:920dae6ba331
(Calling menu-bar-enable-clipboard): Be less selective matching Suns.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 23 Nov 1994 04:46:14 +0000 |
| parents | bb1027a75918 |
| children | e36adc507c9b |
comparison
equal
deleted
inserted
replaced
| 10055:cb713218845a | 10056:920dae6ba331 |
|---|---|
| 683 | 683 |
| 684 (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100) | 684 (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100) |
| 685 x-cut-buffer-max)) | 685 x-cut-buffer-max)) |
| 686 | 686 |
| 687 ;; Sun expects the menu bar cut and paste commands to use the clipboard. | 687 ;; Sun expects the menu bar cut and paste commands to use the clipboard. |
| 688 (if (string-match "X11/NeWS - Sun Microsystems Inc\\." | 688 ;; This has ,? to match both on Sunos and on Solaris. |
| 689 (if (string-match " Sun Microsystems,? Inc\\." | |
| 689 (x-server-vendor)) | 690 (x-server-vendor)) |
| 690 (menu-bar-enable-clipboard)) | 691 (menu-bar-enable-clipboard)) |
| 691 | 692 |
| 692 ;; Apply a geometry resource to the initial frame. Put it at the end | 693 ;; Apply a geometry resource to the initial frame. Put it at the end |
| 693 ;; of the alist, so that anything specified on the command line takes | 694 ;; of the alist, so that anything specified on the command line takes |