Mercurial > emacs
comparison src/mocklisp.c @ 40133:471f00614030
(Finsert_string, Fml_if, Fml_provide_prefix_argument)
(Fml_prefix_argument_loop): Add usage: string to doc string.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 21 Oct 2001 14:20:44 +0000 |
parents | f269d9565635 |
children | e6c3a4ad65ce |
comparison
equal
deleted
inserted
replaced
40132:75fe73bea452 | 40133:471f00614030 |
---|---|
41 * } | 41 * } |
42 * return Qnil; | 42 * return Qnil; |
43 * } | 43 * } |
44 */ | 44 */ |
45 | 45 |
46 DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, "Mocklisp version of `if'.") | 46 DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, |
47 "Mocklisp version of `if'. | |
48 usage: (ml-if COND THEN ELSE...)") | |
47 (args) | 49 (args) |
48 Lisp_Object args; | 50 Lisp_Object args; |
49 { | 51 { |
50 register Lisp_Object val; | 52 register Lisp_Object val; |
51 struct gcpro gcpro1; | 53 struct gcpro gcpro1; |
135 return (EQ (Vmocklisp_arguments, Qinteractive)) ? Qt : Qnil; | 137 return (EQ (Vmocklisp_arguments, Qinteractive)) ? Qt : Qnil; |
136 } | 138 } |
137 | 139 |
138 DEFUN ("ml-provide-prefix-argument", Fml_provide_prefix_argument, Sml_provide_prefix_argument, | 140 DEFUN ("ml-provide-prefix-argument", Fml_provide_prefix_argument, Sml_provide_prefix_argument, |
139 2, UNEVALLED, 0, | 141 2, UNEVALLED, 0, |
140 "Evaluate second argument, using first argument as prefix arg value.") | 142 "Evaluate second argument, using first argument as prefix arg value. |
143 usage: (ml-provide-prefix-argument ARG1 ARG2)") | |
141 (args) | 144 (args) |
142 Lisp_Object args; | 145 Lisp_Object args; |
143 { | 146 { |
144 struct gcpro gcpro1; | 147 struct gcpro gcpro1; |
145 GCPRO1 (args); | 148 GCPRO1 (args); |
148 return Feval (Fcar (Fcdr (args))); | 151 return Feval (Fcar (Fcdr (args))); |
149 } | 152 } |
150 | 153 |
151 DEFUN ("ml-prefix-argument-loop", Fml_prefix_argument_loop, Sml_prefix_argument_loop, | 154 DEFUN ("ml-prefix-argument-loop", Fml_prefix_argument_loop, Sml_prefix_argument_loop, |
152 0, UNEVALLED, 0, | 155 0, UNEVALLED, 0, |
153 "") | 156 "usage: (ml-prefix-argument-loop ...)") |
154 (args) | 157 (args) |
155 Lisp_Object args; | 158 Lisp_Object args; |
156 { | 159 { |
157 register Lisp_Object tem; | 160 register Lisp_Object tem; |
158 register int i; | 161 register int i; |
199 } | 202 } |
200 #endif /* 0 */ | 203 #endif /* 0 */ |
201 DEFUN ("insert-string", Finsert_string, Sinsert_string, 0, MANY, 0, | 204 DEFUN ("insert-string", Finsert_string, Sinsert_string, 0, MANY, 0, |
202 "Mocklisp-compatibility insert function.\n\ | 205 "Mocklisp-compatibility insert function.\n\ |
203 Like the function `insert' except that any argument that is a number\n\ | 206 Like the function `insert' except that any argument that is a number\n\ |
204 is converted into a string by expressing it in decimal.") | 207 is converted into a string by expressing it in decimal. |
208 usage: (insert-string &rest ARGS)") | |
205 (nargs, args) | 209 (nargs, args) |
206 int nargs; | 210 int nargs; |
207 Lisp_Object *args; | 211 Lisp_Object *args; |
208 { | 212 { |
209 register int argnum; | 213 register int argnum; |