Mercurial > hg > xemacs-beta

diff lisp/select.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 7df0dd720c89
children 57709be46d1b
line wrap: on
line diff
--- a/lisp/select.el	Mon Aug 13 10:33:19 2007 +0200
+++ b/lisp/select.el	Mon Aug 13 10:34:13 2007 +0200
@@ -53,6 +53,7 @@
   (interactive "*")
   (case (device-type (selected-device))
     (x (x-delete-primary-selection))
+    (mswindows (mswindows-clear-clipboard))
     (otherwise nil)))
 
 (defun yank-clipboard-selection ()