Mercurial > emacs

comparison lisp/term/x-win.el @ 14122:353ec8b5ede5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-cut-buffer-or-selection-value): Don't print messages about failure to get selection or cut buffer.
author Karl Heuer <kwzh@gnu.org>
date Tue, 09 Jan 1996 23:20:39 +0000
parents 0e813fc58516
children 23cc3f54e536
comparison
equal deleted inserted replaced
14121:8df78fb06aef 14122:353ec8b5ede5
576 (let (text) 576 (let (text)
577 577
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))
591 591
592 (cond 592 (cond