Mercurial > hg > xemacs-beta

comparison src/select-msw.c @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children 74fd4e045ea6
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
143 143
144 return ret; 144 return ret;
145 } 145 }
146 146
147 DEFUN ("mswindows-selection-exists-p", Fmswindows_selection_exists_p, 0, 0, 0, /* 147 DEFUN ("mswindows-selection-exists-p", Fmswindows_selection_exists_p, 0, 0, 0, /*
148 Whether there is an mswindows selection. 148 Whether there is an MS-Windows selection.
149 */ 149 */
150 ()) 150 ())
151 { 151 {
152 return IsClipboardFormatAvailable (CF_TEXT) ? Qt : Qnil; 152 return IsClipboardFormatAvailable (CF_TEXT) ? Qt : Qnil;
153 } 153 }
154 154
155 DEFUN ("mswindows-delete-selection", Fmswindows_delete_selection, 0, 0, 0, /* 155 DEFUN ("mswindows-delete-selection", Fmswindows_delete_selection, 0, 0, 0, /*
156 Whether there is an mswindows selection. 156 Remove the current MS-Windows selection from the clipboard.
157 */ 157 */
158 ()) 158 ())
159 { 159 {
160 return EmptyClipboard () ? Qt : Qnil; 160 return EmptyClipboard () ? Qt : Qnil;
161 } 161 }