annotate src/offix-types.h @ 4694:2ac296807b88

Don't needlessly intern symbols, #'function-arglist, #'cl-function-arglist 2009-09-20 Aidan Kehoe <kehoea@parhasard.net> * help.el (function-arglist): Show the double-quotes in the sample output, correctly. Bind print-gensym to nil, now we're using uninterned symbols. Don't #'mapcar + #'intern to create uppercase symbols, use #'loop and #'make-symbol instead. * cl-macs.el (cl-upcase-arg): Don't intern the upcased symbols we're using for cosmetic reasons. Trust #'true-list-p in #'cl-function-arglist to detect circularity. (cl-function-arglist): Bind print-gensym to nil, now we're printing uninterned symbols and would prefer to avoid the gensym syntax. (cl-transform-lambda): Only add the Common Lisp lambda list: argument information when that differs frmo the normal argument information.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 20 Sep 2009 21:41:22 +0100
parents 74fd4e045ea6
children 697ef44129c6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
197
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
1 /*
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
2 Copyright (C) 1996 César Crusius
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
3
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
4 This file is part of the DND Library. This library is free
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
5 software; you can redistribute it and/or modify it under the terms of
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
6 the GNU Library General Public License as published by the Free
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
7 Software Foundation; either version 2 of the License, or (at your
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
8 option) any later version. This library is distributed in the hope
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
9 that it will be useful, but WITHOUT ANY WARRANTY; without even the
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
10 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
11 PURPOSE. See the GNU Library General Public License for more details.
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
12 You should have received a copy of the GNU Library General Public
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
13 License along with this library; if not, write to the Free Software
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
14 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
15 */
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
16
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 197
diff changeset
17 #ifndef INCLUDED_offix_types_h_
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 197
diff changeset
18 #define INCLUDED_offix_types_h_
197
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
19
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
20 #define DndNotDnd -1
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
21 #define DndUnknown 0
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
22 #define DndRawData 1
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
23 #define DndFile 2
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
24 #define DndFiles 3
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
25 #define DndText 4
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
26 #define DndDir 5
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
27 #define DndLink 6
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
28 #define DndExe 7
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
29 #define DndURL 8
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
30 #define DndMIME 9
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
31
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
32 #define DndEND 10
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
33
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 197
diff changeset
34 #endif /* INCLUDED_offix_types_h_ */