aboutsummaryrefslogtreecommitdiffstats
path: root/src/callint.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/callint.c')
-rw-r--r--src/callint.c14
1 files changed, 5 insertions, 9 deletions
diff --git a/src/callint.c b/src/callint.c
index 45e5bd9ed9b..5716a6fdd47 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -140,8 +140,7 @@ usage: (interactive &optional ARGS) */)
140/* Quotify EXP: if EXP is constant, return it. 140/* Quotify EXP: if EXP is constant, return it.
141 If EXP is not constant, return (quote EXP). */ 141 If EXP is not constant, return (quote EXP). */
142Lisp_Object 142Lisp_Object
143quotify_arg (exp) 143quotify_arg (register Lisp_Object exp)
144 register Lisp_Object exp;
145{ 144{
146 if (!INTEGERP (exp) && !STRINGP (exp) 145 if (!INTEGERP (exp) && !STRINGP (exp)
147 && !NILP (exp) && !EQ (exp, Qt)) 146 && !NILP (exp) && !EQ (exp, Qt))
@@ -152,8 +151,7 @@ quotify_arg (exp)
152 151
153/* Modify EXP by quotifying each element (except the first). */ 152/* Modify EXP by quotifying each element (except the first). */
154Lisp_Object 153Lisp_Object
155quotify_args (exp) 154quotify_args (Lisp_Object exp)
156 Lisp_Object exp;
157{ 155{
158 register Lisp_Object tail; 156 register Lisp_Object tail;
159 Lisp_Object next; 157 Lisp_Object next;
@@ -169,8 +167,7 @@ char *callint_argfuns[]
169 = {"", "point", "mark", "region-beginning", "region-end"}; 167 = {"", "point", "mark", "region-beginning", "region-end"};
170 168
171static void 169static void
172check_mark (for_region) 170check_mark (int for_region)
173 int for_region;
174{ 171{
175 Lisp_Object tem; 172 Lisp_Object tem;
176 tem = Fmarker_buffer (current_buffer->mark); 173 tem = Fmarker_buffer (current_buffer->mark);
@@ -191,8 +188,7 @@ check_mark (for_region)
191 of VALUES to do its job. */ 188 of VALUES to do its job. */
192 189
193static void 190static void
194fix_command (input, values) 191fix_command (Lisp_Object input, Lisp_Object values)
195 Lisp_Object input, values;
196{ 192{
197 if (CONSP (input)) 193 if (CONSP (input))
198 { 194 {
@@ -897,7 +893,7 @@ Its numeric meaning is what you would get from `(interactive "p")'. */)
897} 893}
898 894
899void 895void
900syms_of_callint () 896syms_of_callint (void)
901{ 897{
902 point_marker = Fmake_marker (); 898 point_marker = Fmake_marker ();
903 staticpro (&point_marker); 899 staticpro (&point_marker);