Mercurial > hg > xemacs-beta

comparison src/select-msw.c @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 90d73dddcdc4
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
142 CloseClipboard (); 142 CloseClipboard ();
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, /*
148 Whether there is an mswindows selection.
149 */
150 ())
151 {
152 return IsClipboardFormatAvailable (CF_TEXT) ? Qt : Qnil;
153 }
154
155 DEFUN ("mswindows-delete-selection", Fmswindows_delete_selection, 0, 0, 0, /*
156 Whether there is an mswindows selection.
157 */
158 ())
159 {
160 return EmptyClipboard () ? Qt : Qnil;
161 }
162
147 163
148 /************************************************************************/ 164 /************************************************************************/
149 /* initialization */ 165 /* initialization */
150 /************************************************************************/ 166 /************************************************************************/
151 167
152 void 168 void
153 syms_of_select_mswindows (void) 169 syms_of_select_mswindows (void)
154 { 170 {
155 DEFSUBR (Fmswindows_set_clipboard); 171 DEFSUBR (Fmswindows_set_clipboard);
156 DEFSUBR (Fmswindows_get_clipboard); 172 DEFSUBR (Fmswindows_get_clipboard);
173 DEFSUBR (Fmswindows_selection_exists_p);
174 DEFSUBR (Fmswindows_delete_selection);
157 } 175 }
158 176
159 void 177 void
160 vars_of_select_mswindows (void) 178 vars_of_select_mswindows (void)
161 { 179 {