* lisp.h (INFUN): Remove. Suggested by Dan Nicolaescu in

<http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00393.html>.
All uses spelled out.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8b566b0d95e4728b36b7054a15c5ca545e3f0084..29b2457e08a2f83159d959367ea99922e5dc0008 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-04-14  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * lisp.h (INFUN): Remove.  Suggested by Dan Nicolaescu in
+       <http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00393.html>.
+       All uses spelled out.
+
        Don't publish debugger-only interfaces to other modules.
        * lisp.h (safe_debug_print, debug_output_compilation_hack):
        (verify_bytepos, count_markers): Move decls to the only modules

diff --git a/src/buffer.c b/src/buffer.c
index 7b543b80a2556fb3e0970cd3bfc1820d42300aec..c649836adb8f3be4c56f42d4de8741eae8544b41 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -100,8 +100,8 @@ static char buffer_permanent_local_flags[MAX_PER_BUFFER_VARS];
 
 int last_per_buffer_idx;
 
-INFUN (Fset_buffer_major_mode, 1);
-INFUN (Fdelete_overlay, 1);
+static Lisp_Object Fset_buffer_major_mode (Lisp_Object);
+static Lisp_Object Fdelete_overlay (Lisp_Object);
 static void call_overlay_mod_hooks (Lisp_Object list, Lisp_Object overlay,
                                     int after, Lisp_Object arg1,
                                     Lisp_Object arg2, Lisp_Object arg3);

diff --git a/src/callproc.c b/src/callproc.c
index 57f058aa165ee32c211829db52a20c6a4b716540..3726eb3cc7fd8f8a088d4d054fdd8d75e274d6ae 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -96,7 +96,7 @@ int synch_process_retcode;
 /* Nonzero if this is termination due to exit.  */
 static int call_process_exited;
 
-INFUN (Fgetenv_internal, 2);
+static Lisp_Object Fgetenv_internal (Lisp_Object, Lisp_Object);
 
 static Lisp_Object
 call_process_kill (Lisp_Object fdpid)

diff --git a/src/composite.c b/src/composite.c
index cccc75cc1b93e5fc2e0d48d6dc240dbee14d4319..fab7cb86ba8492705863a33c987b0365d39c4620 100644 (file)
--- a/src/composite.c
+++ b/src/composite.c
@@ -158,7 +158,8 @@ static Lisp_Object Qauto_composition_function;
    auto-compositions.  */
 #define MAX_AUTO_COMPOSITION_LOOKBACK 3
 
-INFUN (Fcomposition_get_gstring, 4);
+static Lisp_Object Fcomposition_get_gstring (Lisp_Object, Lisp_Object,
+                                            Lisp_Object, Lisp_Object);
 
 /* Temporary variable used in macros COMPOSITION_XXX.  */
 Lisp_Object composition_temp;

diff --git a/src/dired.c b/src/dired.c
index 20d5b58667047415e9904f8f556a9c2c0255133d..60d7bc64974a4e9c55774c6cd2c047d49199c643 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -87,7 +87,7 @@ static Lisp_Object Qfile_attributes;
 static Lisp_Object Qfile_attributes_lessp;
 
 static int scmp (const char *, const char *, int);
-INFUN (Ffile_attributes, 2);
+static Lisp_Object Ffile_attributes (Lisp_Object, Lisp_Object);
 \f
 #ifdef WINDOWSNT
 Lisp_Object

diff --git a/src/doc.c b/src/doc.c
index a793011990f2c190707896116d7027dd7b961b81..354aff849794b457656f6f08258d0576f9079a36 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -42,8 +42,9 @@ static char *get_doc_string_buffer;
 static int get_doc_string_buffer_size;
 
 static unsigned char *read_bytecode_pointer;
-INFUN (Fdocumentation_property, 3);
-INFUN (Fsnarf_documentation, 1);
+static Lisp_Object Fdocumentation_property (Lisp_Object, Lisp_Object,
+                                           Lisp_Object);
+static Lisp_Object Fsnarf_documentation (Lisp_Object);
 
 /* readchar in lread.c calls back here to fetch the next byte.
    If UNREADFLAG is 1, we unread a byte.  */

diff --git a/src/editfns.c b/src/editfns.c
index 30974e0b50ee3936cff8ec9b86ace76a2c654cda..5e1dcce027544271fa6aa2936e08fda892be0560 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -108,7 +108,7 @@ static void transpose_markers (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT,
                               EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT);
 
 static Lisp_Object Qbuffer_access_fontify_functions;
-INFUN (Fuser_full_name, 1);
+static Lisp_Object Fuser_full_name (Lisp_Object);
 
 /* Symbol for the text property used to mark fields.  */
 

diff --git a/src/eval.c b/src/eval.c
index 4d0786fc0d4bfe58e091fd0e00b0e5a83d7ee4ef..c068f5f3fbf94efb7e1730681d9c573d0274cb22 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -142,7 +142,7 @@ static Lisp_Object funcall_lambda (Lisp_Object, size_t, Lisp_Object *);
 static void unwind_to_catch (struct catchtag *, Lisp_Object) NO_RETURN;
 static int interactive_p (int);
 static Lisp_Object apply_lambda (Lisp_Object fun, Lisp_Object args);
-INFUN (Ffetch_bytecode, 1);
+static Lisp_Object Ffetch_bytecode (Lisp_Object);
 \f
 void
 init_eval_once (void)

diff --git a/src/fileio.c b/src/fileio.c
index b4a464940c59add82d3f2d7ca6a839cf20c64601..7f749536d56af251c25f60a4e2eb60b69d4a1f1f 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -144,7 +144,7 @@ Lisp_Object Qfile_name_history;
 
 static Lisp_Object Qcar_less_than_car;
 
-INFUN (Fmake_symbolic_link, 3);
+static Lisp_Object Fmake_symbolic_link (Lisp_Object, Lisp_Object, Lisp_Object);
 static int a_write (int, Lisp_Object, int, int,
                     Lisp_Object *, struct coding_system *);
 static int e_write (int, Lisp_Object, int, int, struct coding_system *);

diff --git a/src/image.c b/src/image.c
index 5e5d3509eaa6930099dc551aa302470fe8882478..fb555725b823b2acac691e9ed76045ac1efd2ff3 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -137,7 +137,7 @@ static void free_color_table (void);
 static unsigned long *colors_in_color_table (int *n);
 static unsigned long lookup_pixel_color (struct frame *f, unsigned long p);
 #endif
-INFUN (Finit_image_library, 2);
+static Lisp_Object Finit_image_library (Lisp_Object, Lisp_Object);
 
 /* Code to deal with bitmaps.  Bitmaps are referenced by their bitmap
    id, which is just an int that this section returns.  Bitmaps are

diff --git a/src/insdel.c b/src/insdel.c
index 8733054e9cd05b1466204f63e5f33f17ac2105f3..82dce13af98dfdf483e79fed8e1ecd7d26c7855e 100644 (file)
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -48,7 +48,7 @@ static void adjust_markers_for_replace (EMACS_INT, EMACS_INT, EMACS_INT,
                                        EMACS_INT, EMACS_INT, EMACS_INT);
 static void adjust_point (EMACS_INT nchars, EMACS_INT nbytes);
 
-INFUN (Fcombine_after_change_execute, 0);
+static Lisp_Object Fcombine_after_change_execute (void);
 
 /* List of elements of the form (BEG-UNCHANGED END-UNCHANGED CHANGE-AMOUNT)
    describing changes which happened while combine_after_change_calls

diff --git a/src/keyboard.c b/src/keyboard.c
index 29062a77e32ffdb9a86704d7e9b701c616518413..28e7e5bd463b381a6d2a16cfb1cd53a393b25ccc 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -458,7 +458,8 @@ static void interrupt_signal (int signalnum);
 #ifdef SIGIO
 static void input_available_signal (int signo);
 #endif
-INFUN (Fcommand_execute, 4);
+static Lisp_Object (Fcommand_execute) (Lisp_Object, Lisp_Object, Lisp_Object,
+                                      Lisp_Object);
 static void handle_interrupt (void);
 static void quit_throw_to_read_char (void) NO_RETURN;
 static void timer_start_idle (void);
@@ -1193,7 +1194,7 @@ This also exits all active minibuffers.  */)
   Fthrow (Qtop_level, Qnil);
 }
 
-INFUN (Fexit_recursive_edit, 0) NO_RETURN;
+static Lisp_Object Fexit_recursive_edit (void) NO_RETURN;
 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "",
        doc: /* Exit from the innermost recursive edit or minibuffer.  */)
   (void)
@@ -1204,7 +1205,7 @@ DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0,
   error ("No recursive edit is in progress");
 }
 
-INFUN (Fabort_recursive_edit, 0) NO_RETURN;
+static Lisp_Object Fabort_recursive_edit (void) NO_RETURN;
 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "",
        doc: /* Abort the command that requested this recursive edit or minibuffer input.  */)
   (void)

diff --git a/src/keymap.c b/src/keymap.c
index ba958077f0dae0ba0843abbd513beb681b9451b5..8713bcf1279309ead6040598f7c41b528603f3e2 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -71,7 +71,7 @@ static Lisp_Object where_is_cache;
 /* Which keymaps are reverse-stored in the cache.  */
 static Lisp_Object where_is_cache_keymaps;
 
-INFUN (Flookup_key, 3);
+static Lisp_Object Flookup_key (Lisp_Object, Lisp_Object, Lisp_Object);
 static Lisp_Object store_in_keymap (Lisp_Object, Lisp_Object, Lisp_Object);
 static void fix_submap_inheritance (Lisp_Object, Lisp_Object, Lisp_Object);
 
@@ -957,7 +957,7 @@ store_in_keymap (Lisp_Object keymap, register Lisp_Object idx, Lisp_Object def)
   return def;
 }
 
-INFUN (Fcopy_keymap, 1);
+static Lisp_Object Fcopy_keymap (Lisp_Object);
 
 static Lisp_Object
 copy_keymap_item (Lisp_Object elt)

diff --git a/src/lisp.h b/src/lisp.h
index d629c40198a1bbd3bf5ceb5616fa0116368febfa..09830a980f2322c7fe83bea4e94af21a4d68cddb 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2276,8 +2276,6 @@ void staticpro (Lisp_Object *);
    appropriate prototype.  */
 #define EXFUN(fnname, maxargs) \
   extern Lisp_Object fnname DEFUN_ARGS_ ## maxargs
-#define INFUN(fnname, maxargs) \
-  static Lisp_Object fnname DEFUN_ARGS_ ## maxargs
 
 /* Forward declarations for prototypes.  */
 struct window;

diff --git a/src/process.c b/src/process.c
index 0cec8977ad014c5e475abc00590ec1879707033c..741f2e363f3a08ccae81f797f5cc9314e1338b15 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -235,7 +235,7 @@ static int process_output_skip;
 #define process_output_delay_count 0
 #endif
 
-INFUN (Fget_process, 1);
+static Lisp_Object Fget_process (Lisp_Object);
 static void create_process (Lisp_Object, char **, Lisp_Object);
 static int keyboard_bit_set (SELECT_TYPE *);
 static void deactivate_process (Lisp_Object);
@@ -1084,7 +1084,7 @@ DEFUN ("process-query-on-exit-flag",
 }
 
 #ifdef DATAGRAM_SOCKETS
-INFUN (Fprocess_datagram_address, 1);
+static Lisp_Object Fprocess_datagram_address (Lisp_Object);
 #endif
 
 DEFUN ("process-contact", Fprocess_contact, Sprocess_contact,

diff --git a/src/syntax.c b/src/syntax.c
index ce203948b047fbcbdb5baf2c1b0aa7f82eb5168e..031409144b1ecbcbc7eb74cedd3f2f2056c5b49e 100644 (file)
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -141,7 +141,7 @@ static EMACS_INT find_start_begv;
 static int find_start_modiff;
 
 
-INFUN (Fsyntax_table_p, 1);
+static Lisp_Object Fsyntax_table_p (Lisp_Object);
 static Lisp_Object skip_chars (int, Lisp_Object, Lisp_Object, int);
 static Lisp_Object skip_syntaxes (int, Lisp_Object, Lisp_Object);
 static Lisp_Object scan_lists (EMACS_INT, EMACS_INT, EMACS_INT, int);

diff --git a/src/textprop.c b/src/textprop.c
index 7ce488334e88ffa433291aeeff12ab326b4d9f1f..a0d7d2689c492fa4d8dcd7f96c69249f29dd94ef 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -76,7 +76,8 @@ static Lisp_Object interval_insert_behind_hooks;
 static Lisp_Object interval_insert_in_front_hooks;
 
 static void text_read_only (Lisp_Object) NO_RETURN;
-INFUN (Fprevious_property_change, 3);
+static Lisp_Object Fprevious_property_change (Lisp_Object, Lisp_Object,
+                                             Lisp_Object);
 
 
 /* Signal a `text-read-only' error.  This function makes it easier

diff --git a/src/window.c b/src/window.c
index 9ee35025d323d2eab33a4fd03f613bd8571abbc2..5d059535614f4666289a0d4c62a8aa405c854fec 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -3278,10 +3278,12 @@ change_window_heights (Lisp_Object window, int n)
 \f
 int window_select_count;
 
-INFUN (Fset_window_margins, 3);
-INFUN (Fset_window_fringes, 4);
-INFUN (Fset_window_scroll_bars, 4);
-INFUN (Fset_window_vscroll, 3);
+static Lisp_Object Fset_window_margins (Lisp_Object, Lisp_Object, Lisp_Object);
+static Lisp_Object Fset_window_fringes (Lisp_Object, Lisp_Object, Lisp_Object,
+                                       Lisp_Object);
+static Lisp_Object Fset_window_scroll_bars (Lisp_Object, Lisp_Object,
+                                           Lisp_Object, Lisp_Object);
+static Lisp_Object Fset_window_vscroll (Lisp_Object, Lisp_Object, Lisp_Object);
 
 static void
 run_funs (Lisp_Object funs)