Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
51 (defun delete-primary-selection () 51 (defun delete-primary-selection ()
52 "Delete the selection without copying it to the Clipboard or the kill ring." 52 "Delete the selection without copying it to the Clipboard or the kill ring."
53 (interactive "*") 53 (interactive "*")
54 (case (device-type (selected-device)) 54 (case (device-type (selected-device))
55 (x (x-delete-primary-selection)) 55 (x (x-delete-primary-selection))
56 (mswindows (mswindows-clear-clipboard))
56 (otherwise nil))) 57 (otherwise nil)))
57 58
58 (defun yank-clipboard-selection () 59 (defun yank-clipboard-selection ()
59 "Insert the current Clipboard selection at point." 60 "Insert the current Clipboard selection at point."
60 (interactive "*") 61 (interactive "*")