aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
authorJan D2010-07-02 14:19:53 +0200
committerJan D2010-07-02 14:19:53 +0200
commitf57e2426f0e8a6b251be71b6f62237fd286998ea (patch)
treea8db36e415ea69b4196881b44122454317510f46 /src/lread.c
parent383e09700c9b3d175c506301d363be4597827db7 (diff)
downloademacs-f57e2426f0e8a6b251be71b6f62237fd286998ea.tar.gz
emacs-f57e2426f0e8a6b251be71b6f62237fd286998ea.zip
Remove __P and P_ from .c and .m files and definition of P_
* lisp.h: * atimer.h: Remove define for P_. * alloc.c: Remove __P and P_ from .c and .m files. * atimer.c: * buffer.c: * callint.c: * category.c: * charset.c: * chartab.c: * cm.c: * coding.c: * composite.c: * data.c: * dired.c: * dispnew.c: * doc.c: * editfns.c: * emacs.c: * eval.c: * fileio.c: * filelock.c: * fns.c: * font.c: * fontset.c: * frame.c: * ftfont.c: * ftxfont.c: * gmalloc.c: * gtkutil.c: * image.c: * indent.c: * intervals.c: * keyboard.c: * keymap.c: * lread.c: * marker.c: * menu.c: * minibuf.c: * print.c: * process.c: * scroll.c: * search.c: * sound.c: * strftime.c: * syntax.c: * sysdep.c: * term.c: * terminal.c: * textprop.c: * unexalpha.c: * w32console.c: * w32fns.c: * w32font.c: * w32menu.c: * w32term.c: * w32uniscribe.c: * window.c: * xdisp.c: * xfaces.c: * xfns.c: * xfont.c: * xftfont.c: * xmenu.c: * xselect.c: * xterm.c: Likewise. * ebrowse.c: Remove P_ and __P. * etags.c: * movemail.c: * pop.c: * update-game-score.c: Likewise.
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c54
1 files changed, 27 insertions, 27 deletions
diff --git a/src/lread.c b/src/lread.c
index c73f7f32e51..16efd7114ea 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -219,18 +219,18 @@ int force_load_messages;
219 219
220static Lisp_Object Vbytecomp_version_regexp; 220static Lisp_Object Vbytecomp_version_regexp;
221 221
222static int read_emacs_mule_char P_ ((int, int (*) (int, Lisp_Object), 222static int read_emacs_mule_char (int, int (*) (int, Lisp_Object),
223 Lisp_Object)); 223 Lisp_Object);
224 224
225static void readevalloop P_ ((Lisp_Object, FILE*, Lisp_Object, 225static void readevalloop (Lisp_Object, FILE*, Lisp_Object,
226 Lisp_Object (*) (), int, 226 Lisp_Object (*) (), int,
227 Lisp_Object, Lisp_Object, 227 Lisp_Object, Lisp_Object,
228 Lisp_Object, Lisp_Object)); 228 Lisp_Object, Lisp_Object);
229static Lisp_Object load_unwind P_ ((Lisp_Object)); 229static Lisp_Object load_unwind (Lisp_Object);
230static Lisp_Object load_descriptor_unwind P_ ((Lisp_Object)); 230static Lisp_Object load_descriptor_unwind (Lisp_Object);
231 231
232static void invalid_syntax P_ ((const char *, int)) NO_RETURN; 232static void invalid_syntax (const char *, int) NO_RETURN;
233static void end_of_file_error P_ (()) NO_RETURN; 233static void end_of_file_error () NO_RETURN;
234 234
235 235
236/* Functions that read one byte from the current source READCHARFUN 236/* Functions that read one byte from the current source READCHARFUN
@@ -239,9 +239,9 @@ static void end_of_file_error P_ (()) NO_RETURN;
239 is 0 or positive, it unreads C, and the return value is not 239 is 0 or positive, it unreads C, and the return value is not
240 interesting. */ 240 interesting. */
241 241
242static int readbyte_for_lambda P_ ((int, Lisp_Object)); 242static int readbyte_for_lambda (int, Lisp_Object);
243static int readbyte_from_file P_ ((int, Lisp_Object)); 243static int readbyte_from_file (int, Lisp_Object);
244static int readbyte_from_string P_ ((int, Lisp_Object)); 244static int readbyte_from_string (int, Lisp_Object);
245 245
246/* Handle unreading and rereading of characters. 246/* Handle unreading and rereading of characters.
247 Write READCHAR to read a character, 247 Write READCHAR to read a character,
@@ -268,7 +268,7 @@ readchar (readcharfun, multibyte)
268{ 268{
269 Lisp_Object tem; 269 Lisp_Object tem;
270 register int c; 270 register int c;
271 int (*readbyte) P_ ((int, Lisp_Object)); 271 int (*readbyte) (int, Lisp_Object);
272 unsigned char buf[MAX_MULTIBYTE_LENGTH]; 272 unsigned char buf[MAX_MULTIBYTE_LENGTH];
273 int i, len; 273 int i, len;
274 int emacs_mule_encoding = 0; 274 int emacs_mule_encoding = 0;
@@ -575,7 +575,7 @@ extern char emacs_mule_bytes[256];
575static int 575static int
576read_emacs_mule_char (c, readbyte, readcharfun) 576read_emacs_mule_char (c, readbyte, readcharfun)
577 int c; 577 int c;
578 int (*readbyte) P_ ((int, Lisp_Object)); 578 int (*readbyte) (int, Lisp_Object);
579 Lisp_Object readcharfun; 579 Lisp_Object readcharfun;
580{ 580{
581 /* Emacs-mule coding uses at most 4-byte for one character. */ 581 /* Emacs-mule coding uses at most 4-byte for one character. */
@@ -635,19 +635,19 @@ read_emacs_mule_char (c, readbyte, readcharfun)
635} 635}
636 636
637 637
638static Lisp_Object read_internal_start P_ ((Lisp_Object, Lisp_Object, 638static Lisp_Object read_internal_start (Lisp_Object, Lisp_Object,
639 Lisp_Object)); 639 Lisp_Object);
640static Lisp_Object read0 P_ ((Lisp_Object)); 640static Lisp_Object read0 (Lisp_Object);
641static Lisp_Object read1 P_ ((Lisp_Object, int *, int)); 641static Lisp_Object read1 (Lisp_Object, int *, int);
642 642
643static Lisp_Object read_list P_ ((int, Lisp_Object)); 643static Lisp_Object read_list (int, Lisp_Object);
644static Lisp_Object read_vector P_ ((Lisp_Object, int)); 644static Lisp_Object read_vector (Lisp_Object, int);
645 645
646static Lisp_Object substitute_object_recurse P_ ((Lisp_Object, Lisp_Object, 646static Lisp_Object substitute_object_recurse (Lisp_Object, Lisp_Object,
647 Lisp_Object)); 647 Lisp_Object);
648static void substitute_object_in_subtree P_ ((Lisp_Object, 648static void substitute_object_in_subtree (Lisp_Object,
649 Lisp_Object)); 649 Lisp_Object);
650static void substitute_in_interval P_ ((INTERVAL, Lisp_Object)); 650static void substitute_in_interval (INTERVAL, Lisp_Object);
651 651
652 652
653/* Get a character from the tty. */ 653/* Get a character from the tty. */
@@ -3873,7 +3873,7 @@ hash_string (ptr, len)
3873void 3873void
3874map_obarray (obarray, fn, arg) 3874map_obarray (obarray, fn, arg)
3875 Lisp_Object obarray; 3875 Lisp_Object obarray;
3876 void (*fn) P_ ((Lisp_Object, Lisp_Object)); 3876 void (*fn) (Lisp_Object, Lisp_Object);
3877 Lisp_Object arg; 3877 Lisp_Object arg;
3878{ 3878{
3879 register int i; 3879 register int i;