diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-10 20:39:45 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-10 20:39:45 -0700 |
| commit | 955cbe7b1720f09b2991b7d981147d9cc79d52e3 (patch) | |
| tree | 72ce39606c71e4ace0891f2127a7ef4fca32c209 /src/fns.c | |
| parent | 95c82688bc8063f0be5a04baee5ea2a18f9ddf6b (diff) | |
| download | emacs-955cbe7b1720f09b2991b7d981147d9cc79d52e3.tar.gz | |
Declare Lisp_Object Q* variables to be 'static' if not exproted.
This makes it easier for human readers (and static analyzers)
to see whether these variables are used from other modules.
* alloc.c, buffer.c, bytecode.c, callint.c, casetab.c, category.c:
* ccl.c, character.c, charset.c, cmds.c, coding.c, composite.c:
* data.c, dbusbind.c, dired.c, editfns.c, eval.c, fileio.c, fns.c:
* font.c, frame.c, fringe.c, ftfont.c, image.c, keyboard.c, keymap.c:
* lread.c, macros.c, minibuf.c, print.c, process.c, search.c:
* sound.c, syntax.c, textprop.c, window.c, xdisp.c, xfaces.c, xfns.c:
* xmenu.c, xselect.c:
Declare Q* vars static if they are not used in other modules.
* ccl.h, character.h, charset.h, coding.h, composite.h, font.h:
* frame.h, intervals.h, keyboard.h, lisp.h, process.h, syntax.h:
Remove decls of unexported vars.
* keyboard.h (EVENT_HEAD_UNMODIFIED): Remove now-unused macro.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/fns.c b/src/fns.c index f4eaaccda33..9ced09c38f6 100644 --- a/src/fns.c +++ b/src/fns.c @@ -49,11 +49,12 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #define NULL ((POINTER_TYPE *)0) #endif -Lisp_Object Qstring_lessp, Qprovide, Qrequire; -Lisp_Object Qyes_or_no_p_history; +Lisp_Object Qstring_lessp; +static Lisp_Object Qprovide, Qrequire; +static Lisp_Object Qyes_or_no_p_history; Lisp_Object Qcursor_in_echo_area; -Lisp_Object Qwidget_type; -Lisp_Object Qcodeset, Qdays, Qmonths, Qpaper; +static Lisp_Object Qwidget_type; +static Lisp_Object Qcodeset, Qdays, Qmonths, Qpaper; static int internal_equal (Lisp_Object , Lisp_Object, int, int); @@ -2541,7 +2542,7 @@ advisable. */) return ret; } -Lisp_Object Qsubfeatures; +static Lisp_Object Qsubfeatures; DEFUN ("featurep", Ffeaturep, Sfeaturep, 1, 2, 0, doc: /* Return t if FEATURE is present in this Emacs. @@ -3354,9 +3355,10 @@ struct Lisp_Hash_Table *weak_hash_tables; /* Various symbols. */ -Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue; +static Lisp_Object Qhash_table_p, Qkey, Qvalue; +Lisp_Object Qeq, Qeql, Qequal; Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness; -Lisp_Object Qhash_table_test, Qkey_or_value, Qkey_and_value; +static Lisp_Object Qhash_table_test, Qkey_or_value, Qkey_and_value; /* Function prototypes. */ |