aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-09 23:20:39 +0000
committerKarl Heuer1996-01-09 23:20:39 +0000
commit5fd72a24746744fd09c9224715cdd1bc4b4572a3 (patch)
tree344150760c0a69d67293cfc6e464a25a4bfb0e51
parentf7f786081adfcf22b71d6a5547a4eddfd008c70d (diff)
downloademacs-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.el4
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))