Mercurial > hg > xemacs-beta

comparison src/dragdrop.c @ 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 c42ec1d1cded
children 19dcec799385
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
40 Each can be a string or a list. 40 Each can be a string or a list.
41 if it is a string it is the pure MIME data complete with header 41 if it is a string it is the pure MIME data complete with header
42 and body. 42 and body.
43 if it is a list it should look like 43 if it is a list it should look like
44 ( MIME-TYPE MIME-ENCODING MIME-DATA ) 44 ( MIME-TYPE MIME-ENCODING MIME-DATA )
45 MIME-TYPE should have the format as required by tm-view, but 45 MIME-TYPE list of type and key.value conses. Same as in tm-view
46 is a string
47 MIME-ENC the same (a string in this case) 46 MIME-ENC the same (a string in this case)
48 MIME-DATA is a string 47 MIME-DATA is a string
49 */ 48 */
50 49
51 #include <config.h> 50 #include <config.h>
52 #include "lisp.h" 51 #include "lisp.h"
53 #include "dragdrop.h" 52 #include "dragdrop.h"
53
54 /* The supported protocol list */
55 Lisp_Object Vdragdrop_protocols;
54 56
55 /* Drag'n'Drop data types known by XEmacs */ 57 /* Drag'n'Drop data types known by XEmacs */
56 Lisp_Object Qdragdrop_MIME; 58 Lisp_Object Qdragdrop_MIME;
57 Lisp_Object Qdragdrop_URL; 59 Lisp_Object Qdragdrop_URL;
58 60
113 { 115 {
114 defsymbol (&Qdragdrop_MIME, "dragdrop-MIME"); 116 defsymbol (&Qdragdrop_MIME, "dragdrop-MIME");
115 defsymbol (&Qdragdrop_URL, "dragdrop-URL"); 117 defsymbol (&Qdragdrop_URL, "dragdrop-URL");
116 defsymbol (&Qdragdrop_drop_dispatch, "dragdrop-drop-dispatch"); 118 defsymbol (&Qdragdrop_drop_dispatch, "dragdrop-drop-dispatch");
117 } 119 }
120
121 void
122 vars_of_dragdrop (void)
123 {
124 Fprovide (intern ("dragdrop-api"));
125
126 DEFVAR_CONST_LISP ("dragdrop-protocols", &Vdragdrop_protocols /*
127 A list of supported Drag'n'drop protocols.
128 Each element is the feature symbol of the protocol.
129 */ );
130
131 Vdragdrop_protocols = Qnil;
132
133 #ifdef HAVE_MSWINDOWS
134 Vdragdrop_protocols = Fcons ( Qmswindows , Vdragdrop_protocols );
135 #endif
136 #ifdef HAVE_CDE
137 Vdragdrop_protocols = Fcons ( intern ("cde") , Vdragdrop_protocols );
138 #endif
139 #ifdef HAVE_OFFIX_DND
140 Vdragdrop_protocols = Fcons ( intern ("offix") , Vdragdrop_protocols );
141 #endif
142 }