Commit 97ec208f authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

Remove extern declarations in .c files, .h files have them.

* src/xterm.c:
* src/xdisp.c:
* src/process.c:
* src/msdos.c:
* src/image.c:
* src/gtkutil.c:
* src/fileio.c:
* src/eval.c: Remove declarations.
parent 94eed851
2010-08-06 Dan Nicolaescu <dann@ics.uci.edu>
Remove extern declarations in .c files, .h files have them.
* xterm.c:
* xdisp.c:
* process.c:
* msdos.c:
* image.c:
* gtkutil.c:
* fileio.c:
* eval.c: Remove declarations.
* frame.c (frame_params): Make const.
* lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
......
......@@ -1629,7 +1629,6 @@ See also the function `condition-case'. */)
That is a special case--don't do this in other situations. */
register struct handler *allhandlers = handlerlist;
Lisp_Object conditions;
extern int waiting_for_input;
Lisp_Object string;
Lisp_Object real_error_symbol;
struct backtrace *bp;
......@@ -3432,7 +3431,6 @@ Output stream used is value of `standard-output'. */)
register int i;
Lisp_Object tail;
Lisp_Object tem;
extern Lisp_Object Vprint_level;
struct gcpro gcpro1;
XSETFASTINT (Vprint_level, 3);
......
......@@ -854,8 +854,6 @@ filesystem tree, not (expand-file-name ".." dirname). */)
To avoid this, we set default_directory to the root of the
current drive. */
extern char *emacs_root_dir (void);
default_directory = build_string (emacs_root_dir ());
#else
default_directory = build_string ("/");
......
......@@ -291,7 +291,6 @@ file_for_image (Lisp_Object image)
{
Lisp_Object specified_file = Qnil;
Lisp_Object tail;
extern Lisp_Object QCfile;
for (tail = XCDR (image);
NILP (specified_file) && CONSP (tail) && CONSP (XCDR (tail));
......
......@@ -126,6 +126,9 @@ typedef struct ns_bitmap_record Bitmap_Record;
Lisp_Object Vx_bitmap_file_path;
/* The symbol `postscript' identifying images of this type. */
Lisp_Object Qpostscript;
static void x_disable_image (struct frame *, struct image *);
static void x_edge_detection (struct frame *, struct image *, Lisp_Object,
......@@ -1756,8 +1759,6 @@ lookup_image (struct frame *f, Lisp_Object spec)
/* If not found, create a new image and cache it. */
if (img == NULL)
{
extern Lisp_Object Qpostscript;
BLOCK_INPUT;
img = make_image (spec, hash);
cache_image (f, img);
......@@ -7742,10 +7743,6 @@ svg_load_image (struct frame *f, /* Pointer to emacs frame structure. *
#define HAVE_GHOSTSCRIPT 1
#endif /* HAVE_X_WINDOWS */
/* The symbol `postscript' identifying images of this type. */
Lisp_Object Qpostscript;
#ifdef HAVE_GHOSTSCRIPT
static int gs_image_p (Lisp_Object object);
......
......@@ -1453,7 +1453,6 @@ IT_note_mouse_highlight (struct frame *f, int x, int y)
/* Look for a `help-echo' property. */
{
Lisp_Object help;
extern Lisp_Object Qhelp_echo;
/* Check overlays first. */
help = Qnil;
......
......@@ -6361,8 +6361,7 @@ sigchld_handler (int signo)
{
int old_errno = errno;
Lisp_Object proc;
register struct Lisp_Process *p;
extern EMACS_TIME *input_available_clear_time;
struct Lisp_Process *p;
SIGNAL_THREAD_CHECK (signo);
......
......@@ -10195,7 +10195,6 @@ build_desired_tool_bar_string (struct frame *f)
int enabled_p = !NILP (PROP (TOOL_BAR_ITEM_ENABLED_P));
int selected_p = !NILP (PROP (TOOL_BAR_ITEM_SELECTED_P));
int hmargin, vmargin, relief, idx, end;
extern Lisp_Object QCrelief, QCmargin, QCconversion;
/* If image is a vector, choose the image according to the
button state. */
......
......@@ -7628,7 +7628,6 @@ x_connection_closed (Display *dpy, const char *error_message)
/* If DPYINFO is null, this means we didn't open the display
in the first place, so don't try to close it. */
{
extern void (*fatal_error_signal_hook) (void);
fatal_error_signal_hook = x_fatal_error_signal;
XtCloseDisplay (dpy);
fatal_error_signal_hook = NULL;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment