Make Emacs functions such as Fatom 'static' by default.

This makes it easier for human readers (and static analyzers)
to see whether these functions can be called from other modules.
DEFUN now defines a static function.  To make the function external
so that it can be used in other C modules, use the new macro DEFUE.
* lisp.h (DEFINE_FUNC): New macro, with the old contents of DEFUN.
(DEFUN): Rewrite in terms of DEFINE_FUNC.  It now generates a
static function definition.  Use DEFUE if you want an extern one.
(DEFUE, INFUN): New macros.
(Funibyte_char_to_multibyte, Fsyntax_table_p, Finit_image_library):
(Feval_region, Fbacktrace, Ffetch_bytecode, Fswitch_to_buffer):
(Ffile_executable_p, Fmake_symbolic_link, Fcommand_execute):
(Fget_process, Fdocumentation_property, Fbyte_code, Ffile_attributes):
Remove decls, since these functions are now static.
(Funintern, Fget_internal_run_time): New decls, since these functions
were already external.
* alloc.c, buffer.c, callint.c, callproc.c, casefiddle.c, casetab.c:
* ccl.c, character.c, chartab.c, cmds.c, coding.c, data.c, dispnew.c:
* doc.c, editfns.c, emacs.c, eval.c, fileio.c, filelock.c, floatfns.c:
* fns.c, font.c, fontset.c, frame.c, image.c, indent.c:
* keyboard.c, keymap.c, lread.c:
* macros.c, marker.c, menu.c, minibuf.c, print.c, process.c, search.c:
* syntax.c, term.c, terminal.c, textprop.c, undo.c:
* window.c, xdisp.c, xfaces.c, xfns.c, xmenu.c, xsettings.c:
Mark functions with DEFUE instead of DEFUN,
if they are used in other modules.
* buffer.c (Fset_buffer_major_mode, Fdelete_overlay): New forward
decls for now-static functions.
* buffer.h (Fdelete_overlay): Remove decl.
* callproc.c (Fgetenv_internal): Mark as internal.
* composite.c (Fremove_list_of_text_properties): Remove decl.
(Fcomposition_get_gstring): New forward static decl.
* composite.h (Fcomposite_get_gstring): Remove decl.
* dired.c (Ffile_attributes): New forward static decl.
* doc.c (Fdocumntation_property): New forward static decl.
* eval.c (Ffetch_bytecode): New forward static decl.
(Funintern): Remove extern decl; now in .h file where it belongs.
* fileio.c (Fmake_symbolic_link): New forward static decl.
* image.c (Finit_image_library): New forward static decl.
* insdel.c (Fcombine_after_change_execute): Make forward decl static.
* intervals.h (Fprevious_property_change):
(Fremove_list_of_text_properties): Remove decls.
* keyboard.c (Fthis_command_keys): Remove decl.
(Fcommand_execute): New forward static decl.
* keymap.c (Flookup_key): New forward static decl.
(Fcopy_keymap): Now static.
* keymap.h (Flookup_key): Remove decl.
* process.c (Fget_process): New forward static decl.
(Fprocess_datagram_address): Mark as internal.
* syntax.c (Fsyntax_table_p): New forward static decl.
(skip_chars): Remove duplicate decl.
* textprop.c (Fprevious_property_change): New forward static decl.
* window.c (Fset_window_fringes, Fset_window_scroll_bars):
Now internal.
(Fset_window_margins, Fset_window_vscroll): New forward static decls.
* window.h (Fset_window_vscroll, Fset_window_margins): Remove decls.

1 files changed, 44 insertions, 44 deletions

diff --git a/src/fns.c b/src/fns.c
index 09ce8c1b597..f4eaaccda33 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -61,7 +61,7 @@ static int internal_equal (Lisp_Object , Lisp_Object, int, int);
 extern long time ();
 #endif
 
-DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0,
+DEFUE ("identity", Fidentity, Sidentity, 1, 1, 0,
        doc: /* Return the argument unchanged.  */)
   (Lisp_Object arg)
 {
@@ -105,7 +105,7 @@ Other values of LIMIT are ignored.  */)
 
 /* Random data-structure functions */
 
-DEFUN ("length", Flength, Slength, 1, 1, 0,
+DEFUE ("length", Flength, Slength, 1, 1, 0,
        doc: /* Return the length of vector, list or string SEQUENCE.
 A byte-code function object is also allowed.
 If the string contains multibyte characters, this is not necessarily
@@ -190,7 +190,7 @@ If STRING is multibyte, this may be greater than the length of STRING.  */)
   return make_number (SBYTES (string));
 }
 
-DEFUN ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0,
+DEFUE ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0,
        doc: /* Return t if two strings have identical contents.
 Case is significant, but text properties are ignored.
 Symbols are also allowed; their print names are used instead.  */)
@@ -210,7 +210,7 @@ Symbols are also allowed; their print names are used instead.  */)
   return Qt;
 }
 
-DEFUN ("compare-strings", Fcompare_strings, Scompare_strings, 6, 7, 0,
+DEFUE ("compare-strings", Fcompare_strings, Scompare_strings, 6, 7, 0,
        doc: /* Compare the contents of two strings, converting to multibyte if needed.
 In string STR1, skip the first START1 characters and stop at END1.
 In string STR2, skip the first START2 characters and stop at END2.
@@ -311,7 +311,7 @@ If string STR1 is greater, the value is a positive number N;
   return Qt;
 }
 
-DEFUN ("string-lessp", Fstring_lessp, Sstring_lessp, 2, 2, 0,
+DEFUE ("string-lessp", Fstring_lessp, Sstring_lessp, 2, 2, 0,
        doc: /* Return t if first arg string is less than second in lexicographic order.
 Case is significant.
 Symbols are also allowed; their print names are used instead.  */)
@@ -372,7 +372,7 @@ concat3 (Lisp_Object s1, Lisp_Object s2, Lisp_Object s3)
   return concat (3, args, Lisp_String, 0);
 }
 
-DEFUN ("append", Fappend, Sappend, 0, MANY, 0,
+DEFUE ("append", Fappend, Sappend, 0, MANY, 0,
        doc: /* Concatenate all the arguments and make the result a list.
 The result is a list whose elements are the elements of all the arguments.
 Each argument may be a list, vector or string.
@@ -383,7 +383,7 @@ usage: (append &rest SEQUENCES)  */)
   return concat (nargs, args, Lisp_Cons, 1);
 }
 
-DEFUN ("concat", Fconcat, Sconcat, 0, MANY, 0,
+DEFUE ("concat", Fconcat, Sconcat, 0, MANY, 0,
        doc: /* Concatenate all the arguments and make the result a string.
 The result is a string whose elements are the elements of all the arguments.
 Each argument may be a string or a list or vector of characters (integers).
@@ -393,7 +393,7 @@ usage: (concat &rest SEQUENCES)  */)
   return concat (nargs, args, Lisp_String, 0);
 }
 
-DEFUN ("vconcat", Fvconcat, Svconcat, 0, MANY, 0,
+DEFUE ("vconcat", Fvconcat, Svconcat, 0, MANY, 0,
        doc: /* Concatenate all the arguments and make the result a vector.
 The result is a vector whose elements are the elements of all the arguments.
 Each argument may be a list, vector or string.
@@ -404,7 +404,7 @@ usage: (vconcat &rest SEQUENCES)   */)
 }
 
 
-DEFUN ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0,
+DEFUE ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0,
        doc: /* Return a copy of a list, vector, string or char-table.
 The elements of a list or vector are not copied; they are shared
 with the original.  */)
@@ -944,7 +944,7 @@ string_make_unibyte (Lisp_Object string)
   return ret;
 }
 
-DEFUN ("string-make-multibyte", Fstring_make_multibyte, Sstring_make_multibyte,
+DEFUE ("string-make-multibyte", Fstring_make_multibyte, Sstring_make_multibyte,
        1, 1, 0,
        doc: /* Return the multibyte equivalent of STRING.
 If STRING is unibyte and contains non-ASCII characters, the function
@@ -962,7 +962,7 @@ string the same way whether it is unibyte or multibyte.)  */)
   return string_make_multibyte (string);
 }
 
-DEFUN ("string-make-unibyte", Fstring_make_unibyte, Sstring_make_unibyte,
+DEFUE ("string-make-unibyte", Fstring_make_unibyte, Sstring_make_unibyte,
        1, 1, 0,
        doc: /* Return the unibyte equivalent of STRING.
 Multibyte character codes are converted to unibyte according to
@@ -976,7 +976,7 @@ the low 8 bits of each character.  */)
   return string_make_unibyte (string);
 }
 
-DEFUN ("string-as-unibyte", Fstring_as_unibyte, Sstring_as_unibyte,
+DEFUE ("string-as-unibyte", Fstring_as_unibyte, Sstring_as_unibyte,
        1, 1, 0,
        doc: /* Return a unibyte string with the same individual bytes as STRING.
 If STRING is unibyte, the result is STRING itself.
@@ -1000,7 +1000,7 @@ If STRING is multibyte and contains a character of charset
   return string;
 }
 
-DEFUN ("string-as-multibyte", Fstring_as_multibyte, Sstring_as_multibyte,
+DEFUE ("string-as-multibyte", Fstring_as_multibyte, Sstring_as_multibyte,
        1, 1, 0,
        doc: /* Return a multibyte string with the same individual bytes as STRING.
 If STRING is multibyte, the result is STRING itself.
@@ -1038,7 +1038,7 @@ If you're not sure, whether to use `string-as-multibyte' or
   return string;
 }
 
-DEFUN ("string-to-multibyte", Fstring_to_multibyte, Sstring_to_multibyte,
+DEFUE ("string-to-multibyte", Fstring_to_multibyte, Sstring_to_multibyte,
        1, 1, 0,
        doc: /* Return a multibyte string with the same individual chars as STRING.
 If STRING is multibyte, the result is STRING itself.
@@ -1084,7 +1084,7 @@ an error is signaled.  */)
 }
 
 
-DEFUN ("copy-alist", Fcopy_alist, Scopy_alist, 1, 1, 0,
+DEFUE ("copy-alist", Fcopy_alist, Scopy_alist, 1, 1, 0,
        doc: /* Return a copy of ALIST.
 This is an alist which represents the same mapping from objects to objects,
 but does not share the alist structure with ALIST.
@@ -1110,7 +1110,7 @@ Elements of ALIST that are not conses are also shared.  */)
   return alist;
 }
 
-DEFUN ("substring", Fsubstring, Ssubstring, 2, 3, 0,
+DEFUE ("substring", Fsubstring, Ssubstring, 2, 3, 0,
        doc: /* Return a new string whose contents are a substring of STRING.
 The returned string consists of the characters between index FROM
 \(inclusive) and index TO (exclusive) of STRING.  FROM and TO are
@@ -1269,7 +1269,7 @@ substring_both (Lisp_Object string, EMACS_INT from, EMACS_INT from_byte,
   return res;
 }
 
-DEFUN ("nthcdr", Fnthcdr, Snthcdr, 2, 2, 0,
+DEFUE ("nthcdr", Fnthcdr, Snthcdr, 2, 2, 0,
        doc: /* Take cdr N times on LIST, return the result.  */)
   (Lisp_Object n, Lisp_Object list)
 {
@@ -1285,7 +1285,7 @@ DEFUN ("nthcdr", Fnthcdr, Snthcdr, 2, 2, 0,
   return list;
 }
 
-DEFUN ("nth", Fnth, Snth, 2, 2, 0,
+DEFUE ("nth", Fnth, Snth, 2, 2, 0,
        doc: /* Return the Nth element of LIST.
 N counts from zero.  If LIST is not that long, nil is returned.  */)
   (Lisp_Object n, Lisp_Object list)
@@ -1293,7 +1293,7 @@ N counts from zero.  If LIST is not that long, nil is returned.  */)
   return Fcar (Fnthcdr (n, list));
 }
 
-DEFUN ("elt", Felt, Selt, 2, 2, 0,
+DEFUE ("elt", Felt, Selt, 2, 2, 0,
        doc: /* Return element of SEQUENCE at index N.  */)
   (register Lisp_Object sequence, Lisp_Object n)
 {
@@ -1306,7 +1306,7 @@ DEFUN ("elt", Felt, Selt, 2, 2, 0,
   return Faref (sequence, n);
 }
 
-DEFUN ("member", Fmember, Smember, 2, 2, 0,
+DEFUE ("member", Fmember, Smember, 2, 2, 0,
        doc: /* Return non-nil if ELT is an element of LIST.  Comparison done with `equal'.
 The value is actually the tail of LIST whose car is ELT.  */)
   (register Lisp_Object elt, Lisp_Object list)
@@ -1324,7 +1324,7 @@ The value is actually the tail of LIST whose car is ELT.  */)
   return Qnil;
 }
 
-DEFUN ("memq", Fmemq, Smemq, 2, 2, 0,
+DEFUE ("memq", Fmemq, Smemq, 2, 2, 0,
        doc: /* Return non-nil if ELT is an element of LIST.  Comparison done with `eq'.
 The value is actually the tail of LIST whose car is ELT.  */)
   (register Lisp_Object elt, Lisp_Object list)
@@ -1372,7 +1372,7 @@ The value is actually the tail of LIST whose car is ELT.  */)
   return Qnil;
 }
 
-DEFUN ("assq", Fassq, Sassq, 2, 2, 0,
+DEFUE ("assq", Fassq, Sassq, 2, 2, 0,
        doc: /* Return non-nil if KEY is `eq' to the car of an element of LIST.
 The value is actually the first element of LIST whose car is KEY.
 Elements of LIST that are not conses are ignored.  */)
@@ -1418,7 +1418,7 @@ assq_no_quit (Lisp_Object key, Lisp_Object list)
   return CAR_SAFE (list);
 }
 
-DEFUN ("assoc", Fassoc, Sassoc, 2, 2, 0,
+DEFUE ("assoc", Fassoc, Sassoc, 2, 2, 0,
        doc: /* Return non-nil if KEY is `equal' to the car of an element of LIST.
 The value is actually the first element of LIST whose car equals KEY.  */)
   (Lisp_Object key, Lisp_Object list)
@@ -1469,7 +1469,7 @@ assoc_no_quit (Lisp_Object key, Lisp_Object list)
   return CONSP (list) ? XCAR (list) : Qnil;
 }
 
-DEFUN ("rassq", Frassq, Srassq, 2, 2, 0,
+DEFUE ("rassq", Frassq, Srassq, 2, 2, 0,
        doc: /* Return non-nil if KEY is `eq' to the cdr of an element of LIST.
 The value is actually the first element of LIST whose cdr is KEY.  */)
   (register Lisp_Object key, Lisp_Object list)
@@ -1500,7 +1500,7 @@ The value is actually the first element of LIST whose cdr is KEY.  */)
   return CAR (list);
 }
 
-DEFUN ("rassoc", Frassoc, Srassoc, 2, 2, 0,
+DEFUE ("rassoc", Frassoc, Srassoc, 2, 2, 0,
        doc: /* Return non-nil if KEY is `equal' to the cdr of an element of LIST.
 The value is actually the first element of LIST whose cdr equals KEY.  */)
   (Lisp_Object key, Lisp_Object list)
@@ -1536,7 +1536,7 @@ The value is actually the first element of LIST whose cdr equals KEY.  */)
   return CAR (list);
 }
 
-DEFUN ("delq", Fdelq, Sdelq, 2, 2, 0,
+DEFUE ("delq", Fdelq, Sdelq, 2, 2, 0,
        doc: /* Delete by side effect any occurrences of ELT as a member of LIST.
 The modified LIST is returned.  Comparison is done with `eq'.
 If the first member of LIST is ELT, there is no way to remove it by side effect;
@@ -1568,7 +1568,7 @@ to be sure of changing the value of `foo'.  */)
   return list;
 }
 
-DEFUN ("delete", Fdelete, Sdelete, 2, 2, 0,
+DEFUE ("delete", Fdelete, Sdelete, 2, 2, 0,
        doc: /* Delete by side effect any occurrences of ELT as a member of SEQ.
 SEQ must be a list, a vector, or a string.
 The modified SEQ is returned.  Comparison is done with `equal'.
@@ -1688,7 +1688,7 @@ to be sure of changing the value of `foo'.  */)
   return seq;
 }
 
-DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0,
+DEFUE ("nreverse", Fnreverse, Snreverse, 1, 1, 0,
        doc: /* Reverse LIST by modifying cdr pointers.
 Return the reversed list.  */)
   (Lisp_Object list)
@@ -1710,7 +1710,7 @@ Return the reversed list.  */)
   return prev;
 }
 
-DEFUN ("reverse", Freverse, Sreverse, 1, 1, 0,
+DEFUE ("reverse", Freverse, Sreverse, 1, 1, 0,
        doc: /* Reverse LIST, copying.  Return the reversed list.
 See also the function `nreverse', which is used more often.  */)
   (Lisp_Object list)
@@ -1728,7 +1728,7 @@ See also the function `nreverse', which is used more often.  */)
 
 Lisp_Object merge (Lisp_Object org_l1, Lisp_Object org_l2, Lisp_Object pred);
 
-DEFUN ("sort", Fsort, Ssort, 2, 2, 0,
+DEFUE ("sort", Fsort, Ssort, 2, 2, 0,
        doc: /* Sort LIST, stably, comparing elements using PREDICATE.
 Returns the sorted list.  LIST is modified by side effects.
 PREDICATE is called with two elements of LIST, and should return non-nil
@@ -1819,7 +1819,7 @@ merge (Lisp_Object org_l1, Lisp_Object org_l2, Lisp_Object pred)
 
 /* This does not check for quits.  That is safe since it must terminate.  */
 
-DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0,
+DEFUE ("plist-get", Fplist_get, Splist_get, 2, 2, 0,
        doc: /* Extract a value from a property list.
 PLIST is a property list, which is a list of the form
 \(PROP1 VALUE1 PROP2 VALUE2...).  This function returns the value
@@ -1852,7 +1852,7 @@ properties on the list.  This function never signals an error.  */)
   return Qnil;
 }
 
-DEFUN ("get", Fget, Sget, 2, 2, 0,
+DEFUE ("get", Fget, Sget, 2, 2, 0,
        doc: /* Return the value of SYMBOL's PROPNAME property.
 This is the last value stored with `(put SYMBOL PROPNAME VALUE)'.  */)
   (Lisp_Object symbol, Lisp_Object propname)
@@ -1861,7 +1861,7 @@ This is the last value stored with `(put SYMBOL PROPNAME VALUE)'.  */)
   return Fplist_get (XSYMBOL (symbol)->plist, propname);
 }
 
-DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0,
+DEFUE ("plist-put", Fplist_put, Splist_put, 3, 3, 0,
        doc: /* Change value in PLIST of PROP to VAL.
 PLIST is a property list, which is a list of the form
 \(PROP1 VALUE1 PROP2 VALUE2 ...).  PROP is a symbol and VAL is any object.
@@ -1894,7 +1894,7 @@ The PLIST is modified by side effects.  */)
   return plist;
 }
 
-DEFUN ("put", Fput, Sput, 3, 3, 0,
+DEFUE ("put", Fput, Sput, 3, 3, 0,
        doc: /* Store SYMBOL's PROPNAME property with value VALUE.
 It can be retrieved with `(get SYMBOL PROPNAME)'.  */)
   (Lisp_Object symbol, Lisp_Object propname, Lisp_Object value)
@@ -1974,7 +1974,7 @@ Floating-point numbers of equal value are `eql', but they may not be `eq'.  */)
     return EQ (obj1, obj2) ? Qt : Qnil;
 }
 
-DEFUN ("equal", Fequal, Sequal, 2, 2, 0,
+DEFUE ("equal", Fequal, Sequal, 2, 2, 0,
        doc: /* Return t if two Lisp objects have similar structure and contents.
 They must have the same data type.
 Conses are compared by comparing the cars and the cdrs.
@@ -2222,7 +2222,7 @@ nconc2 (Lisp_Object s1, Lisp_Object s2)
   return Fnconc (2, args);
 }
 
-DEFUN ("nconc", Fnconc, Snconc, 0, MANY, 0,
+DEFUE ("nconc", Fnconc, Snconc, 0, MANY, 0,
        doc: /* Concatenate any number of lists by altering them.
 Only the last argument is not altered, and need not be a list.
 usage: (nconc &rest LISTS)  */)
@@ -2342,7 +2342,7 @@ mapcar1 (EMACS_INT leni, Lisp_Object *vals, Lisp_Object fn, Lisp_Object seq)
   UNGCPRO;
 }
 
-DEFUN ("mapconcat", Fmapconcat, Smapconcat, 3, 3, 0,
+DEFUE ("mapconcat", Fmapconcat, Smapconcat, 3, 3, 0,
        doc: /* Apply FUNCTION to each element of SEQUENCE, and concat the results as strings.
 In between each pair of results, stick in SEPARATOR.  Thus, " " as
 SEPARATOR results in spaces between the values returned by FUNCTION.
@@ -2383,7 +2383,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   return ret;
 }
 
-DEFUN ("mapcar", Fmapcar, Smapcar, 2, 2, 0,
+DEFUE ("mapcar", Fmapcar, Smapcar, 2, 2, 0,
        doc: /* Apply FUNCTION to each element of SEQUENCE, and make a list of the results.
 The result is a list just as long as SEQUENCE.
 SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
@@ -2561,7 +2561,7 @@ SUBFEATURE can be used to check a specific subfeature of FEATURE.  */)
   return (NILP (tem)) ? Qnil : Qt;
 }
 
-DEFUN ("provide", Fprovide, Sprovide, 1, 2, 0,
+DEFUE ("provide", Fprovide, Sprovide, 1, 2, 0,
        doc: /* Announce that FEATURE is a feature of the current Emacs.
 The optional argument SUBFEATURES should be a list of symbols listing
 particular subfeatures supported in this version of FEATURE.  */)
@@ -2699,7 +2699,7 @@ The normal messages at start and end of loading FILENAME are suppressed.  */)
    bottleneck of Widget operation.  Here is their translation to C,
    for the sole reason of efficiency.  */
 
-DEFUN ("plist-member", Fplist_member, Splist_member, 2, 2, 0,
+DEFUE ("plist-member", Fplist_member, Splist_member, 2, 2, 0,
        doc: /* Return non-nil if PLIST has the property PROP.
 PLIST is a property list, which is a list of the form
 \(PROP1 VALUE1 PROP2 VALUE2 ...\).  PROP is a symbol.
@@ -4248,7 +4248,7 @@ DEFUN ("sxhash", Fsxhash, Ssxhash, 1, 1, 0,
 }
 
 
-DEFUN ("make-hash-table", Fmake_hash_table, Smake_hash_table, 0, MANY, 0,
+DEFUE ("make-hash-table", Fmake_hash_table, Smake_hash_table, 0, MANY, 0,
        doc: /* Create and return a new hash table.
 
 Arguments are specified as keyword/argument pairs.  The following
@@ -4436,7 +4436,7 @@ DEFUN ("clrhash", Fclrhash, Sclrhash, 1, 1, 0,
 }
 
 
-DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0,
+DEFUE ("gethash", Fgethash, Sgethash, 2, 3, 0,
        doc: /* Look up KEY in TABLE and return its associated value.
 If KEY is not found, return DFLT which defaults to nil.  */)
   (Lisp_Object key, Lisp_Object table, Lisp_Object dflt)
@@ -4447,7 +4447,7 @@ If KEY is not found, return DFLT which defaults to nil.  */)
 }
 
 
-DEFUN ("puthash", Fputhash, Sputhash, 3, 3, 0,
+DEFUE ("puthash", Fputhash, Sputhash, 3, 3, 0,
        doc: /* Associate KEY with VALUE in hash table TABLE.
 If KEY is already present in table, replace its current value with
 VALUE.  */)
@@ -4467,7 +4467,7 @@ VALUE.  */)
 }
 
 
-DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0,
+DEFUE ("remhash", Fremhash, Sremhash, 2, 2, 0,
        doc: /* Remove KEY from TABLE.  */)
   (Lisp_Object key, Lisp_Object table)
 {