annotate etc/custom/right-pushed.xpm @ 4642:48b45a606961

Support #'function-arglist with built-in special forms. Also fix a couple of bugs in lisp/help.el. lisp/ChangeLog addition: 2009-06-14 Aidan Kehoe <kehoea@parhasard.net> * help.el (describe-function-1): Check macro-p, not macrop, when describing whether a symbol has an associated macro or an associated function. Relevant with autoloaded macros. (function-arglist): Accept multi-line arglists in built-in functions, as found in #'write-region-internal. #'dontusethis-set-symbol-value-handler is still broken for other reasons. src/ChangeLog addition: 2009-06-14 Aidan Kehoe <kehoea@parhasard.net> * eval.c (For): * eval.c (Fand): * eval.c (Fif): * eval.c (Fwhen): * eval.c (Fcond): * eval.c (Fprogn): * eval.c (Fprog1): * eval.c (Fprog2): * eval.c (FletX): * eval.c (Flet): * eval.c (Fwhile): * eval.c (Fdefvar): * eval.c (Fdefconst): * eval.c (Frun_hooks): * eval.c (Frun_hooks_with_args): * eval.c (Frun_hooks_with_args_until_success): * eval.c (Frun_hooks_with_args_until_failure): Add arguments information, understood by #'function-arglist, to all these special forms, functions and macros. Remove the argument information that was already there that was not understood by #'function-arglist.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 14 Jun 2009 15:07:13 +0100
parents 43dd3413c7c7
children 7910031dd78a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
155
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
1 /* XPM */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
2 static char * right_xpm[] = {
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
3 "10 10 5 1",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
4 " c Gray40",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
5 ". c Gray40",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
6 "X c none",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
7 "o c Gray75",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
8 "O c Gray90",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
9 " .XXXXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
10 " ...XXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
11 " ....XXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
12 " oo....XX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
13 " oooo....",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
14 " ooooOOOO",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
15 " ooOOOOXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
16 " OOOOXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
17 " OOOXXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
18 " OXXXXXXXX"};