summaryrefslogtreecommitdiff
path: root/lisp/term
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-01-09 23:20:39 +0000
committerKarl Heuer <kwzh@gnu.org>1996-01-09 23:20:39 +0000
commit73b2cc5a6bdb0981a54422c88d5a6c6c598e3565 (patch)
treef7cf0f57483164e0e8cf692b78bc6e78d3d9cad5 /lisp/term
parent9116e2578ccab15e37a0c955f70c4e2f9e9a2580 (diff)
downloademacs-73b2cc5a6bdb0981a54422c88d5a6c6c598e3565.tar.gz
(x-cut-buffer-or-selection-value): Don't print messages
about failure to get selection or cut buffer.
Diffstat (limited to 'lisp/term')
-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.")
;; Don't die if x-get-selection signals an error.
(condition-case c
(setq text (x-get-selection 'PRIMARY))
- (error (message "%s" c)))
+ (error nil))
(if (string= text "") (setq text nil))
(if x-select-enable-clipboard
(condition-case c
(setq text (x-get-selection 'CLIPBOARD))
- (error (message "%s" c))))
+ (error nil)))
(if (string= text "") (setq text nil))
(or text (setq text (x-get-cut-buffer 0)))
(if (string= text "") (setq text nil))