diff options
| author | Karl Heuer | 1996-01-09 23:20:39 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-09 23:20:39 +0000 |
| commit | 5fd72a24746744fd09c9224715cdd1bc4b4572a3 (patch) | |
| tree | 344150760c0a69d67293cfc6e464a25a4bfb0e51 | |
| parent | f7f786081adfcf22b71d6a5547a4eddfd008c70d (diff) | |
| download | emacs-5fd72a24746744fd09c9224715cdd1bc4b4572a3.tar.gz emacs-5fd72a24746744fd09c9224715cdd1bc4b4572a3.zip | |
(x-cut-buffer-or-selection-value): Don't print messages
about failure to get selection or cut buffer.
| -rw-r--r-- | lisp/term/x-win.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 1e8cb5a5cba..3deb6328a6c 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -578,13 +578,13 @@ This is in addition to the primary selection.") | |||
| 578 | ;; Don't die if x-get-selection signals an error. | 578 | ;; Don't die if x-get-selection signals an error. |
| 579 | (condition-case c | 579 | (condition-case c |
| 580 | (setq text (x-get-selection 'PRIMARY)) | 580 | (setq text (x-get-selection 'PRIMARY)) |
| 581 | (error (message "%s" c))) | 581 | (error nil)) |
| 582 | (if (string= text "") (setq text nil)) | 582 | (if (string= text "") (setq text nil)) |
| 583 | 583 | ||
| 584 | (if x-select-enable-clipboard | 584 | (if x-select-enable-clipboard |
| 585 | (condition-case c | 585 | (condition-case c |
| 586 | (setq text (x-get-selection 'CLIPBOARD)) | 586 | (setq text (x-get-selection 'CLIPBOARD)) |
| 587 | (error (message "%s" c)))) | 587 | (error nil))) |
| 588 | (if (string= text "") (setq text nil)) | 588 | (if (string= text "") (setq text nil)) |
| 589 | (or text (setq text (x-get-cut-buffer 0))) | 589 | (or text (setq text (x-get-cut-buffer 0))) |
| 590 | (if (string= text "") (setq text nil)) | 590 | (if (string= text "") (setq text nil)) |