Mercurial > hg > xemacs-beta
annotate src/dragdrop.c @ 5652:cc6f0266bc36
Avoid #'delq in core Lisp, for the sake of style, a very slightly smaller binary
lisp/ChangeLog addition:
2012-05-01 Aidan Kehoe <kehoea@parhasard.net>
Avoid #'delq in core code, for the sake of style and a (very
slightly) smaller binary.
* behavior.el (disable-behavior):
* behavior.el (compute-behavior-group-children):
* buff-menu.el (buffers-tab-items):
* byte-optimize.el (byte-optimize-delay-constants-math):
* byte-optimize.el (byte-optimize-logmumble):
* byte-optimize.el (byte-decompile-bytecode-1):
* byte-optimize.el (byte-optimize-lapcode):
* bytecomp.el:
* bytecomp.el (byte-compile-arglist-warn):
* bytecomp.el (byte-compile-warn-about-unresolved-functions):
* bytecomp.el (byte-compile-lambda):
* bytecomp.el (byte-compile-out-toplevel):
* bytecomp.el (byte-compile-insert):
* bytecomp.el (byte-compile-defalias-warn):
* cl-macs.el (cl-upcase-arg):
* cl-macs.el (cl-transform-lambda):
* cl-macs.el (cl-do-proclaim):
* cl-macs.el (defstruct):
* cl-macs.el (cl-make-type-test):
* cl-macs.el (define-compiler-macro):
* cl-macs.el (delete-duplicates):
* cus-edit.el (widget-face-value-delete):
* cus-edit.el (face-history):
* easymenu.el (easy-menu-remove):
* files.el (files-fetch-hook-value):
* files.el (file-expand-wildcards):
* font-lock.el (font-lock-update-removed-keyword-alist):
* font-lock.el (font-lock-remove-keywords):
* frame.el (frame-initialize):
* frame.el (frame-notice-user-settings):
* frame.el (set-frame-font):
* frame.el (delete-other-frames):
* frame.el (get-frame-for-buffer-noselect):
* gnuserv.el (gnuserv-kill-buffer-function):
* gnuserv.el (gnuserv-check-device):
* gnuserv.el (gnuserv-kill-client):
* gnuserv.el (gnuserv-buffer-done-1):
* gtk-font-menu.el (gtk-reset-device-font-menus):
* gutter-items.el (buffers-tab-items):
* gutter.el (set-gutter-element-visible-p):
* info.el (Info-find-file-node):
* info.el (Info-history-add):
* info.el (Info-build-annotation-completions):
* info.el (Info-index):
* info.el (Info-reannotate-node):
* itimer.el (delete-itimer):
* itimer.el (start-itimer):
* lib-complete.el (lib-complete:cache-completions):
* loadhist.el (unload-feature):
* menubar-items.el (build-buffers-menu-internal):
* menubar.el (delete-menu-item):
* menubar.el (relabel-menu-item):
* msw-font-menu.el (mswindows-reset-device-font-menus):
* mule/make-coding-system.el (fixed-width-generate-helper):
* next-error.el (next-error-find-buffer):
* obsolete.el:
* obsolete.el (find-non-ascii-charset-string):
* obsolete.el (find-non-ascii-charset-region):
* occur.el (multi-occur-by-filename-regexp):
* occur.el (occur-1):
* packages.el (packages-package-hierarchy-directory-names):
* packages.el (package-get-key-1):
* process.el (setenv):
* simple.el (undo):
* simple.el (handle-pre-motion-command-current-command-is-motion):
* sound.el (load-sound-file):
* wid-edit.el (widget-field-value-delete):
* wid-edit.el (widget-checklist-match-inline):
* wid-edit.el (widget-checklist-match-find):
* wid-edit.el (widget-editable-list-delete-at):
* wid-edit.el (widget-editable-list-entry-create):
* window.el (quit-window):
* x-font-menu.el (x-reset-device-font-menus-core):
1. Replace (delq nil (mapcar ....)) with analogous (mapcan ...)
forms; this is in non-dumped files, it was done previously in
dumped files.
2. Replace (delq FOO (copy-sequence BAR)) with (remove* FOO BAR),
where #'eq and #'eql are equivalent
3. Replace (delq FOO BAR) with (delete* FOO BAR), where FOO is not
a non-fixnum number. Saves a little space in the dumped file
(since the compiler macro adds :test #'eq to the delete* call if
it's not clear that FOO is not a non-fixnum number).
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 01 May 2012 16:17:42 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* Drag'n'Drop definitions |
| 2 created 03-may-98 by Oliver Graf <ograf@fga.de> | |
| 3 Copyright (C) 1998 Oliver Graf <ograf@fga.de> | |
| 2367 | 4 Copyright (C) 2004 Ben Wing. |
| 428 | 5 |
| 6 This file is part of XEmacs. | |
| 7 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4790
diff
changeset
|
8 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 9 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4790
diff
changeset
|
10 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4790
diff
changeset
|
11 option) any later version. |
| 428 | 12 |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4790
diff
changeset
|
19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 20 |
| 21 /* Synched up with: Not in FSF. */ | |
| 22 | |
| 23 /* This file should be Mule-ized. */ | |
| 24 | |
| 25 /* A short introduction to the new Drag'n'Drop Model: | |
| 26 | |
| 27 A drop generates a extended misc-user-event, as defined in events.[ch]. | |
| 28 This event contains the same as a eval and a button event. | |
| 29 The function of a drop is set to 'dragdrop-drop-dispatch' which will be | |
| 30 defined in ../lisp/dragdrop.el. | |
| 31 The object of the misc-user-event has the following format: | |
| 32 ( TYPE . DATA ) | |
| 3025 | 33 TYPE is one of `dragdrop-MIME' and `dragdrop-URL' |
| 34 DATA - if TYPE is `dragdrop-URL', DATA is a list of valid URL strings. It | |
| 428 | 35 is always a list, also if only one URL string is within it. |
| 3025 | 36 - if TYPE is `dragdrop-MIME', DATA is a list of MIME elements. |
| 428 | 37 Each can be a string or a list. |
| 38 if it is a string it is the pure MIME data complete with header | |
| 39 and body. | |
| 40 if it is a list it should look like | |
| 41 ( MIME-TYPE MIME-ENCODING MIME-DATA ) | |
| 42 MIME-TYPE list of type and key.value conses. Same as in tm-view | |
| 43 MIME-ENC the same (a string in this case) | |
| 44 MIME-DATA is a string | |
| 45 */ | |
| 46 | |
| 47 #include <config.h> | |
| 48 #include "lisp.h" | |
| 49 #include "dragdrop.h" | |
| 50 | |
| 51 /* The supported protocol list */ | |
| 52 Lisp_Object Vdragdrop_protocols; | |
| 53 | |
| 54 /* Drag'n'Drop data types known by XEmacs */ | |
| 55 Lisp_Object Qdragdrop_MIME; | |
| 56 Lisp_Object Qdragdrop_URL; | |
| 57 | |
| 58 /* External defined functions to handle Drag'n'Drop */ | |
| 59 Lisp_Object Qdragdrop_drop_dispatch; | |
| 60 | |
| 61 /* from wget -- thanxx Hrvoje */ | |
| 62 /* A list of unsafe characters for encoding, as per RFC1738. '@' and | |
| 63 ':' (not listed in RFC) were added because of user/password | |
| 64 encoding, and \033 for safe printing. */ | |
| 65 | |
| 66 #define URL_UNSAFE " <>\"#%{}|\\^~[]`@:\033" | |
| 67 | |
| 68 /* HEX digit -> ASCII char */ | |
| 69 #define HEXD2ASC(x) (((x) < 10) ? ((x) + '0') : ((x) - 10 + 'A')) | |
| 70 | |
| 71 /* Encodes the unsafe characters (listed in URL_UNSAFE) in a given | |
| 72 string, returning a malloc-ed %XX encoded string. | |
| 73 if method is != NULL it is prepended to the string. */ | |
| 2367 | 74 Ibyte * |
| 75 dnd_url_hexify_string (const Ibyte *s, const Ibyte *m) | |
| 428 | 76 { |
| 2367 | 77 const Ibyte *b; |
| 78 Ibyte *p, *res; | |
| 79 Bytecount i; | |
| 428 | 80 |
| 81 b = s; | |
| 82 for (i = 0; *s; s++, i++) | |
| 83 if (strchr (URL_UNSAFE, *s)) | |
| 84 i += 2; /* Two more characters (hex digits) */ | |
| 85 if (m) | |
| 86 { | |
| 2367 | 87 res = xnew_ibytes (i + ITEXT_ZTERM_SIZE + qxestrlen (m)); |
| 88 qxestrcpy (res, m); | |
| 89 p = res + qxestrlen (m); | |
| 428 | 90 } |
| 91 else | |
| 92 { | |
| 2367 | 93 res = xnew_ibytes (i + ITEXT_ZTERM_SIZE); |
| 428 | 94 p = res; |
| 95 } | |
| 96 for (s = b; *s; s++) | |
| 97 if (strchr (URL_UNSAFE, *s)) | |
| 98 { | |
| 2367 | 99 const Ibyte c = *s; |
| 428 | 100 *p++ = '%'; |
| 101 *p++ = HEXD2ASC (c >> 4); | |
| 102 *p++ = HEXD2ASC (c & 0xf); | |
| 103 } | |
| 104 else | |
| 105 *p++ = *s; | |
| 106 *p = '\0'; | |
| 107 return res; | |
| 108 } | |
| 109 | |
| 110 void | |
| 111 syms_of_dragdrop (void) | |
| 112 { | |
| 563 | 113 DEFSYMBOL (Qdragdrop_MIME); |
| 114 DEFSYMBOL (Qdragdrop_URL); | |
| 115 DEFSYMBOL (Qdragdrop_drop_dispatch); | |
| 428 | 116 } |
| 117 | |
| 118 void | |
| 119 vars_of_dragdrop (void) | |
| 120 { | |
| 121 Fprovide (intern ("dragdrop-api")); | |
| 122 | |
| 123 DEFVAR_CONST_LISP ("dragdrop-protocols", &Vdragdrop_protocols /* | |
| 124 A list of supported Drag'n'drop protocols. | |
| 125 Each element is the feature symbol of the protocol. | |
| 126 */ ); | |
| 127 | |
| 128 Vdragdrop_protocols = Qnil; | |
| 129 | |
| 130 #ifdef HAVE_MS_WINDOWS | |
| 2367 | 131 Vdragdrop_protocols = Fcons (Qmswindows, Vdragdrop_protocols); |
| 428 | 132 #endif |
| 133 #ifdef HAVE_CDE | |
| 2367 | 134 Vdragdrop_protocols = Fcons (intern ("cde"), Vdragdrop_protocols); |
| 428 | 135 #endif |
| 462 | 136 #ifdef HAVE_GTK |
| 2367 | 137 Vdragdrop_protocols = Fcons (Qgtk, Vdragdrop_protocols); |
| 462 | 138 #endif |
| 428 | 139 } |