Mercurial > hg > xemacs-beta
annotate src/select.h @ 5753:dbd8305e13cb
Warn about non-string non-integer ARG to #'gensym, bytecomp.el.
lisp/ChangeLog addition:
2013-08-21 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el:
* bytecomp.el (gensym):
* bytecomp.el (byte-compile-gensym): New.
Warn that gensym called in a for-effect context is unlikely to be
useful.
Warn about non-string non-integer ARGs, this is incorrect.
Am not changing the function to error with same, most code that
makes the mistake is has no problems, which is why it has survived
so long.
* window-xemacs.el (save-window-excursion/mapping):
* window.el (save-window-excursion):
Call #'gensym with a string, not a symbol.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 21 Aug 2013 19:02:59 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 414 | 1 /* Generic select data structures functions |
| 2 Copyright (C) 1999 Andy Piper | |
| 3 | |
| 4 This file is part of XEmacs. | |
| 5 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2620
diff
changeset
|
6 XEmacs is free software: you can redistribute it and/or modify it |
| 414 | 7 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:
2620
diff
changeset
|
8 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:
2620
diff
changeset
|
9 option) any later version. |
| 414 | 10 |
| 11 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 14 for more details. | |
| 15 | |
| 16 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:
2620
diff
changeset
|
17 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 414 | 18 |
| 19 /* Synched up with: Not in FSF. */ | |
| 20 | |
| 440 | 21 #ifndef INCLUDED_select_h_ |
| 22 #define INCLUDED_select_h_ | |
| 414 | 23 |
| 442 | 24 /* X Atoms */ |
| 25 extern Lisp_Object QPRIMARY, QSECONDARY, QSTRING, QINTEGER, QCLIPBOARD, | |
| 26 QTIMESTAMP, QTEXT, QDELETE, QMULTIPLE, QINCR, QEMACS_TMP, QTARGETS, QATOM, | |
| 27 QNULL, QATOM_PAIR, QCOMPOUND_TEXT; | |
| 414 | 28 |
| 442 | 29 /* Windows clipboard formats */ |
| 30 extern Lisp_Object QCF_TEXT, QCF_BITMAP, QCF_METAFILEPICT, QCF_SYLK, QCF_DIF, | |
| 31 QCF_TIFF, QCF_OEMTEXT, QCF_DIB, QCF_DIBV5, QCF_PALETTE, QCF_PENDATA, | |
| 32 QCF_RIFF, QCF_WAVE, QCF_UNICODETEXT, QCF_ENHMETAFILE, QCF_HDROP, QCF_LOCALE, | |
| 33 QCF_OWNERDISPLAY, QCF_DSPTEXT, QCF_DSPBITMAP, QCF_DSPMETAFILEPICT, | |
| 34 QCF_DSPENHMETAFILE; | |
| 35 | |
| 36 /* Selection strategies */ | |
| 37 extern Lisp_Object Qreplace_all, Qreplace_existing, Qappend; | |
| 414 | 38 |
| 39 /* "Selection owner couldn't convert selection" */ | |
| 40 extern Lisp_Object Qselection_conversion_error; | |
| 41 | |
| 442 | 42 /* Selection input & output */ |
| 43 Lisp_Object select_convert_in (Lisp_Object selection, | |
| 44 Lisp_Object type, | |
| 45 Lisp_Object value); | |
| 46 Lisp_Object select_convert_out (Lisp_Object selection, | |
| 47 Lisp_Object type, | |
| 48 Lisp_Object value); | |
| 49 Lisp_Object select_coerce (Lisp_Object selection, | |
| 50 Lisp_Object type, | |
| 51 Lisp_Object value); | |
| 52 | |
| 53 /* Notifications */ | |
| 414 | 54 void handle_selection_clear (Lisp_Object selection_symbol); |
| 55 | |
| 442 | 56 void select_notify_buffer_kill (Lisp_Object buffer); |
| 57 | |
| 2620 | 58 Lisp_Object get_selection_raw_time(Lisp_Object selection); |
| 59 | |
| 442 | 60 /* Lisp functions we export for other files' use */ |
| 61 EXFUN (Fregister_selection_data_type, 2); | |
| 62 EXFUN (Fselection_data_type_name, 2); | |
| 63 EXFUN (Favailable_selection_types, 2); | |
| 64 EXFUN (Fselection_owner_p, 1); | |
| 65 EXFUN (Fselection_exists_p, 3); | |
| 66 | |
| 440 | 67 #endif /* INCLUDED_select_h_ */ |