Mercurial > emacs
changeset 109425:773dc1704474
Merge from mainline.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 05 Jul 2010 22:49:04 +0000 |
| parents | 79cf9151e229 (current diff) 783986775ee8 (diff) |
| children | 812261a6ffd2 |
| files | |
| diffstat | 40 files changed, 1253 insertions(+), 2154 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jul 04 23:34:54 2010 +0000 +++ b/lisp/ChangeLog Mon Jul 05 22:49:04 2010 +0000 @@ -1,3 +1,12 @@ +2010-07-05 Chong Yidong <cyd@stupidchicken.com> + + * menu-bar.el (menu-bar-mode): + * tool-bar.el (tool-bar-mode): Replace default-frame-alist element + if it has been set. + + * mouse.el (mouse-drag-track): Call mouse-start-end to handle + word/line selection (Bug#6565). + 2010-07-04 Juanma Barranquero <lekktu@gmail.com> * net/dbus.el (dbus-send-signal): Declare function.
--- a/lisp/menu-bar.el Sun Jul 04 23:34:54 2010 +0000 +++ b/lisp/menu-bar.el Mon Jul 05 22:49:04 2010 +0000 @@ -1937,15 +1937,20 @@ ;; Turn the menu-bars on all frames on or off. (let ((val (if menu-bar-mode 1 0))) (dolist (frame (frame-list)) - (set-frame-parameter frame 'menu-bar-lines val))) - + (set-frame-parameter frame 'menu-bar-lines val)) + ;; If the user has given `default-frame-alist' a `menu-bar-lines' + ;; parameter, replace it. + (if (assq 'menu-bar-lines default-frame-alist) + (setq default-frame-alist + (cons (cons 'menu-bar-lines val) + (assq-delete-all 'menu-bar-lines + default-frame-alist))))) ;; Make the message appear when Emacs is idle. We can not call message ;; directly. The minor-mode message "Menu-bar mode disabled" comes ;; after this function returns, overwriting any message we do here. (when (and (called-interactively-p 'interactive) (not menu-bar-mode)) (run-with-idle-timer 0 nil 'message - "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear.")) - menu-bar-mode) + "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) (defun toggle-menu-bar-mode-from-frame (&optional arg) "Toggle menu bar on or off, based on the status of the current frame.
--- a/lisp/mouse.el Sun Jul 04 23:34:54 2010 +0000 +++ b/lisp/mouse.el Mon Jul 05 22:49:04 2010 +0000 @@ -936,25 +936,30 @@ ;; treatment, in case we click on a link inside an ;; intangible text. (mouse-on-link-p start-posn))) + (click-count (1- (event-click-count start-event))) ;; Suppress automatic hscrolling, because that is a nuisance ;; when setting point near the right fringe (but see below). (automatic-hscrolling-saved automatic-hscrolling) (automatic-hscrolling nil) event end end-point) - (setq mouse-selection-click-count (1- (event-click-count start-event))) + (setq mouse-selection-click-count click-count) ;; In case the down click is in the middle of some intangible text, ;; use the end of that text, and put it in START-POINT. (if (< (point) start-point) (goto-char start-point)) (setq start-point (point)) - ;; Activate the mark. + ;; Activate the region, using `mouse-start-end' to determine where + ;; to put point and mark (e.g., double-click will select a word). (setq transient-mark-mode (if (eq transient-mark-mode 'lambda) '(only) (cons 'only transient-mark-mode))) - (push-mark nil nil t) + (let ((range (mouse-start-end start-point start-point click-count))) + (goto-char (nth 0 range)) + (push-mark nil nil t) + (goto-char (nth 1 range))) ;; Track the mouse until we get a non-movement event. (track-mouse @@ -1017,8 +1022,9 @@ (copy-region-as-kill (mark) (point))))) ;; If point hasn't moved, run the binding of the ;; terminating up-event. - (if do-multi-click (goto-char start-point)) - (deactivate-mark) + (if do-multi-click + (goto-char start-point) + (deactivate-mark)) (when (and (functionp fun) (= start-hscroll (window-hscroll start-window)) ;; Don't run the up-event handler if the window
--- a/lisp/tool-bar.el Sun Jul 04 23:34:54 2010 +0000 +++ b/lisp/tool-bar.el Mon Jul 05 22:49:04 2010 +0000 @@ -52,13 +52,19 @@ :global t :group 'mouse :group 'frames - ;; Make tool-bar even if terminal is non-graphical (Bug#1754). (let ((val (if tool-bar-mode 1 0))) (dolist (frame (frame-list)) - (set-frame-parameter frame 'tool-bar-lines val))) - (when tool-bar-mode - (if (= 1 (length (default-value 'tool-bar-map))) ; not yet setup - (tool-bar-setup)))) + (set-frame-parameter frame 'tool-bar-lines val)) + ;; If the user has given `default-frame-alist' a `tool-bar-lines' + ;; parameter, replace it. + (if (assq 'tool-bar-lines default-frame-alist) + (setq default-frame-alist + (cons (cons 'tool-bar-lines val) + (assq-delete-all 'tool-bar-lines + default-frame-alist))))) + (and tool-bar-mode + (= 1 (length (default-value 'tool-bar-map))) ; not yet setup + (tool-bar-setup))) ;;;###autoload ;; Used in the Show/Hide menu, to have the toggle reflect the current frame.
--- a/lwlib/ChangeLog Sun Jul 04 23:34:54 2010 +0000 +++ b/lwlib/ChangeLog Mon Jul 05 22:49:04 2010 +0000 @@ -1,3 +1,17 @@ +2010-07-05 Jan Djärv <jan.h.d@swipnet.se> + + * xlwmenu.c (XlwMenuSetValues, XlwMenuInitialize): Correct prototype. + (display_menu_item): Remove unused variable gi. + (make_windows_if_needed): Remove unused variable screen. + (XlwMenuRedisplay): Remove unused variable i. + + * lwlib-Xaw.c: Include <ctype.h> for isdigit. + (fill_xft_data, set_text): Remove unused variable screen. + (draw_text): Cast bp to FcChar8*. + (find_xft_data): Return 0 if inst or xft_data is not set. + (wm_delete_window): Correct prototype. Initialize widget to 0 + and return if widget is still 0 after loop. + 2010-07-04 Dan Nicolaescu <dann@ics.uci.edu> * lwlib-Xaw.c: Convert function definitions to standard C.
--- a/lwlib/lwlib-Xaw.c Sun Jul 04 23:34:54 2010 +0000 +++ b/lwlib/lwlib-Xaw.c Mon Jul 05 22:49:04 2010 +0000 @@ -26,6 +26,7 @@ #include <stdio.h> #include <setjmp.h> +#include <ctype.h> #include "../src/lisp.h" @@ -151,7 +152,6 @@ { Pixel bg, fg; XColor colors[2]; - int screen = XScreenNumberOfScreen (XtScreen (widget)); data->widget = widget; data->xft_font = font; @@ -252,7 +252,9 @@ char *cp = strchr (bp, '\n'); XftDrawStringUtf8 (data->xft_draw, inverse ? &data->xft_bg : &data->xft_fg, - data->xft_font, x, y, bp, cp ? cp - bp : strlen (bp)); + data->xft_font, x, y, + (FcChar8 *) bp, + cp ? cp - bp : strlen (bp)); bp = cp ? cp + 1 : NULL; /* 1.2 gives reasonable line spacing. */ y += data->xft_font->height * 1.2; @@ -264,7 +266,6 @@ static void set_text (struct widget_xft_data *data, Widget toplevel, char *lbl, int margin) { - int screen = XScreenNumberOfScreen (XtScreen (data->widget)); int width, height; width = get_text_width_and_height (data->widget, lbl, data->xft_font, @@ -293,7 +294,7 @@ inst = lw_get_widget_instance (parent); parent = XtParent (parent); } - if (!inst || !inst->xft_data || !inst->xft_data[0].xft_font) return; + if (!inst || !inst->xft_data || !inst->xft_data[0].xft_font) return 0; for (nr = 0; data == NULL && nr < inst->nr_xft_data; ++nr) { @@ -550,7 +551,10 @@ /* Dialogs pop down on any key press */ static char dialogOverride[] = "<KeyPress>Escape: lwlib_delete_dialog()"; -static void wm_delete_window(Widget w, XtPointer closure, XtPointer call_data); +static void wm_delete_window (Widget w, + XEvent *event, + String *params, + Cardinal *num_params); static XtActionsRec xaw_actions [] = { {"lwlib_delete_dialog", wm_delete_window} }; @@ -851,13 +855,16 @@ } static void -wm_delete_window (Widget w, XtPointer closure, XtPointer call_data) +wm_delete_window (Widget w, + XEvent *event, + String *params, + Cardinal *num_params) { LWLIB_ID id; Cardinal nkids; int i; Widget *kids = 0; - Widget widget, shell; + Widget widget = 0, shell; if (XtIsSubclass (w, dialogWidgetClass)) shell = XtParent (w); @@ -876,6 +883,8 @@ if (XtIsSubclass (widget, dialogWidgetClass)) break; } + if (! widget) return; + id = lw_get_widget_id (widget); if (! id) abort ();
--- a/lwlib/xlwmenu.c Sun Jul 04 23:34:54 2010 +0000 +++ b/lwlib/xlwmenu.c Mon Jul 05 22:49:04 2010 +0000 @@ -185,10 +185,11 @@ }; #undef offset -static Boolean XlwMenuSetValues(Widget current, Widget request, Widget new); +static Boolean XlwMenuSetValues(Widget current, Widget request, Widget new, + ArgList args, Cardinal *num_args); static void XlwMenuRealize(Widget w, Mask *valueMask, XSetWindowAttributes *attributes); static void XlwMenuResize(Widget w); -static void XlwMenuInitialize(Widget request, XlwMenuWidget mw, ArgList args, Cardinal *num_args); +static void XlwMenuInitialize(Widget request, Widget mw, ArgList args, Cardinal *num_args); static void XlwMenuRedisplay(Widget w, XEvent *ev, Region region); static void XlwMenuDestroy(Widget w); static void XlwMenuClassInitialize(void); @@ -1086,7 +1087,6 @@ #ifdef HAVE_XFT if (ws->xft_draw) { - XGlyphInfo gi; int draw_x = ws->width - ws->max_rest_width + mw->menu.arrow_spacing; int draw_y = y + v_spacing + shadow + font_ascent; @@ -1277,9 +1277,6 @@ int i; int start_at; window_state* windows; -#ifdef HAVE_XFT - int screen = XScreenNumberOfScreen (mw->core.screen); -#endif if (mw->menu.windows_length >= n) return; @@ -1852,10 +1849,10 @@ #endif static void -XlwMenuInitialize (Widget request, XlwMenuWidget mw, ArgList args, Cardinal *num_args) +XlwMenuInitialize (Widget request, Widget w, ArgList args, Cardinal *num_args) { /* Get the GCs and the widget size */ - + XlwMenuWidget mw = (XlwMenuWidget) w; Window window = RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw))); Display* display = XtDisplay (mw); @@ -2003,7 +2000,6 @@ XlwMenuRedisplay (Widget w, XEvent *ev, Region region) { XlwMenuWidget mw = (XlwMenuWidget)w; - int i; /* If we have a depth beyond 1, it's because a submenu was displayed. If the submenu has been destroyed, set the depth back to 1. */ @@ -2106,7 +2102,8 @@ #endif static Boolean -XlwMenuSetValues (Widget current, Widget request, Widget new) +XlwMenuSetValues (Widget current, Widget request, Widget new, + ArgList args, Cardinal *num_args) { XlwMenuWidget oldmw = (XlwMenuWidget)current; XlwMenuWidget newmw = (XlwMenuWidget)new;
--- a/src/ChangeLog Sun Jul 04 23:34:54 2010 +0000 +++ b/src/ChangeLog Mon Jul 05 22:49:04 2010 +0000 @@ -1,3 +1,91 @@ +2010-07-05 Dan Nicolaescu <dann@ics.uci.edu> + + * vm-limit.c (memory_warnings): + * keyboard.c (modify_event_symbol): + * floatfns.c (rounding_driver, ceiling2, floor2, truncate2) + (round2, emacs_rint): + * process.c (send_process, old_sigpipe): Convert function + definitions and declarations to standard C. + +2010-07-05 Juanma Barranquero <lekktu@gmail.com> + + * buffer.c, cm.c, eval.c, keyboard.c, process.c, term.c, vm-limit.c, + * xdisp.c: Convert function definitions to standard C. + + * cm.c (cmputc): Arg C is now int, not char. + * process.c (Fmake_network_process): Cast sockaddr_in* to sockaddr*. + +2010-07-05 James Cloos <cloos@jhcloos.com> + + * xterm.h (Xatom_net_wm_name, Xatom_net_wm_icon_name): New. + + * xterm.c (x_term_init): Intern the _NET_WM_NAME and + _NET_WM_ICON_NAME atoms. + + * xfns.c (x_set_name_internal): Set the EWMH _NET_WM_NAME + and _NET_WM_ICON_NAME properties, too, matching what is + done in the Gtk+ case. + +2010-07-05 Jan Djärv <jan.h.d@swipnet.se> + + * xterm.c (XTring_bell, XTset_terminal_window): Fix wrong prototype. + + * xsmfns.c (SSDATA): New macro. + (smc_save_yourself_CB, x_session_initialize): Use SSDATA for strings + passed to strlen/strcpy/strcat. + (create_client_leader_window): Surround with #ifndef USE_GTK. Cast + 7:th arg to XChangeProperty to (unsigned char *) + + * xsettings.c (something_changedCB, parse_settings) + (apply_xft_settings): Reformat prototype. + (something_changedCB, init_gconf): Remove unused variable i. + (read_settings): Remove unused variable long_len. + + * gtkutil.c (xg_get_pixbuf_from_pix_and_mask) + (xg_get_image_for_pixmap, create_dialog) + (xg_get_file_with_selection, xg_get_file_name, update_cl_data) + (menuitem_highlight_callback, make_menu_item) + (xg_create_one_menuitem, create_menus, xg_update_menu_item) + (xg_create_scroll_bar, xg_update_scrollbar_pos) + (xg_set_toolkit_scroll_bar_thumb, xg_tool_bar_button_cb) + (xg_tool_bar_proxy_help_callback, xg_tool_bar_detach_callback) + (xg_tool_bar_attach_callback, xg_tool_bar_help_callback) + (xg_tool_bar_item_expose_callback): Reformat prototype. + (xg_update_menubar): GList *group => GSList *group. + (xg_modify_menubar_widgets): Initialize witem to 0, check witem != 0 + before use. + (update_frame_tool_bar): 4:th param to xg_get_image_for_pixmap changed + to GTK_IMAGE (wimage). + +2010-07-05 Dan Nicolaescu <dann@ics.uci.edu> + + * atimer.c: Use "" instead of <> for local includes for + consistency with the rest of the code. + + * xsmfns.c (smc_save_yourself_CB, smc_error_handler): + * xrdb.c (get_system_name): + * window.c (shrink_windows): + * syntax.c (forw_comment): + * scroll.c (calculate_scrolling, calculate_direct_scrolling) + (ins_del_costs): + * mem-limits.h (start_of_data): + * lread.c (readevalloop): + * gtkutil.c (xg_dialog_response_cb, xg_get_file_with_chooser) + (xg_get_file_with_selection, xg_update_menubar, xg_update_submenu): + * frame.c (x_get_focus_frame): + * floatfns.c (fmod_float): + * fileio.c (choose_write_coding_system): + * emacs.c (fatal_error_signal, init_cmdargs, argmatch) + (malloc_initialize_hook, sort_args, synchronize_locale): + * doprnt.c (doprnt): + * dired.c (compile_pattern): + * data.c (fmod_float): + * chartab.c (map_sub_char_table, map_sub_char_table_for_charset) + (map_char_table_for_charset): + * charset.c (define_charset_internal): + * alloc.c (Fgarbage_collect): Convert declarations or definitions + to standard C. + 2010-07-04 Tetsurou Okazaki <okazaki@be.to> (tiny change) Stefan Monnier <monnier@iro.umontreal.ca>
--- a/src/alloc.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/alloc.c Mon Jul 05 22:49:04 2010 +0000 @@ -5015,7 +5015,7 @@ #ifdef USE_GTK { - extern void xg_mark_data (); + extern void xg_mark_data (void); xg_mark_data (); } #endif
--- a/src/atimer.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/atimer.c Mon Jul 05 22:49:04 2010 +0000 @@ -21,11 +21,11 @@ #include <signal.h> #include <stdio.h> #include <setjmp.h> -#include <lisp.h> -#include <syssignal.h> -#include <systime.h> -#include <blockinput.h> -#include <atimer.h> +#include "lisp.h" +#include "syssignal.h" +#include "systime.h" +#include "blockinput.h" +#include "atimer.h" #ifdef HAVE_UNISTD_H #include <unistd.h>
--- a/src/buffer.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/buffer.c Mon Jul 05 22:49:04 2010 +0000 @@ -180,8 +180,7 @@ /* Lisp_Object Qlisp_mode, Vcheck_symbol; */ void -nsberror (spec) - Lisp_Object spec; +nsberror (Lisp_Object spec) { if (STRINGP (spec)) error ("No buffer named %s", SDATA (spec)); @@ -248,9 +247,7 @@ and don't ever QUIT. */ static Lisp_Object -assoc_ignore_text_properties (key, list) - register Lisp_Object key; - Lisp_Object list; +assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) { register Lisp_Object tail; for (tail = list; CONSP (tail); tail = XCDR (tail)) @@ -312,8 +309,7 @@ } Lisp_Object -get_truename_buffer (filename) - register Lisp_Object filename; +get_truename_buffer (register Lisp_Object filename) { register Lisp_Object tail, buf, tem; @@ -437,9 +433,7 @@ LIST, but for buffer B. */ static struct Lisp_Overlay * -copy_overlays (b, list) - struct buffer *b; - struct Lisp_Overlay *list; +copy_overlays (struct buffer *b, struct Lisp_Overlay *list) { Lisp_Object buffer; struct Lisp_Overlay *result = NULL, *tail = NULL; @@ -489,8 +483,7 @@ copied. */ static void -clone_per_buffer_values (from, to) - struct buffer *from, *to; +clone_per_buffer_values (struct buffer *from, struct buffer *to) { Lisp_Object to_buffer; int offset; @@ -658,8 +651,7 @@ } void -delete_all_overlays (b) - struct buffer *b; +delete_all_overlays (struct buffer *b) { Lisp_Object overlay; @@ -689,8 +681,7 @@ claims it doesn't belong to it. */ void -reset_buffer (b) - register struct buffer *b; +reset_buffer (register struct buffer *b) { b->filename = Qnil; b->file_truename = Qnil; @@ -734,9 +725,7 @@ we preserve those. */ static void -reset_buffer_local_variables (b, permanent_too) - register struct buffer *b; - int permanent_too; +reset_buffer_local_variables (register struct buffer *b, int permanent_too) { register int offset; int i; @@ -993,8 +982,7 @@ in special slots in the buffer object. */ static Lisp_Object -buffer_lisp_local_variables (buf) - struct buffer *buf; +buffer_lisp_local_variables (struct buffer *buf) { Lisp_Object result = Qnil; register Lisp_Object tail; @@ -1293,7 +1281,7 @@ (buffer, visible_ok, frame) register Lisp_Object buffer, visible_ok, frame; { - Lisp_Object Fset_buffer_major_mode (); + Lisp_Object Fset_buffer_major_mode (Lisp_Object buffer); register Lisp_Object tail, buf, notsogood, tem, pred, add_ons; notsogood = Qnil; @@ -1618,8 +1606,7 @@ means that other_buffer is more likely to choose a relevant buffer. */ void -record_buffer (buf) - Lisp_Object buf; +record_buffer (Lisp_Object buf) { register Lisp_Object link, prev; Lisp_Object frame; @@ -1734,8 +1721,7 @@ If NORECORD is non-nil, don't call record_buffer. */ Lisp_Object -switch_to_buffer_1 (buffer_or_name, norecord) - Lisp_Object buffer_or_name, norecord; +switch_to_buffer_1 (Lisp_Object buffer_or_name, Lisp_Object norecord) { register Lisp_Object buffer; @@ -1831,8 +1817,7 @@ time, and that increments windows_or_buffers_changed. */ void -set_buffer_internal (b) - register struct buffer *b; +set_buffer_internal (register struct buffer *b) { if (current_buffer != b) set_buffer_internal_1 (b); @@ -1842,8 +1827,7 @@ This is used by redisplay. */ void -set_buffer_internal_1 (b) - register struct buffer *b; +set_buffer_internal_1 (register struct buffer *b) { register struct buffer *old_buf; register Lisp_Object tail; @@ -1939,8 +1923,7 @@ This avoids certain things that don't need to be done within redisplay. */ void -set_buffer_temp (b) - struct buffer *b; +set_buffer_temp (struct buffer *b) { register struct buffer *old_buf; @@ -2019,8 +2002,7 @@ /* Set the current buffer to BUFFER provided it is alive. */ Lisp_Object -set_buffer_if_live (buffer) - Lisp_Object buffer; +set_buffer_if_live (Lisp_Object buffer) { if (! NILP (XBUFFER (buffer)->name)) Fset_buffer (buffer); @@ -2120,8 +2102,7 @@ } void -validate_region (b, e) - register Lisp_Object *b, *e; +validate_region (register Lisp_Object *b, register Lisp_Object *e) { CHECK_NUMBER_COERCE_MARKER (*b); CHECK_NUMBER_COERCE_MARKER (*e); @@ -2141,8 +2122,7 @@ and return the adjusted position. */ static int -advance_to_char_boundary (byte_pos) - int byte_pos; +advance_to_char_boundary (int byte_pos) { int c; @@ -2644,8 +2624,7 @@ for their current values. */ static void -swap_out_buffer_local_variables (b) - struct buffer *b; +swap_out_buffer_local_variables (struct buffer *b) { Lisp_Object oalist, alist, buffer; @@ -2690,14 +2669,8 @@ default (BEGV or ZV). */ int -overlays_at (pos, extend, vec_ptr, len_ptr, next_ptr, prev_ptr, change_req) - EMACS_INT pos; - int extend; - Lisp_Object **vec_ptr; - int *len_ptr; - EMACS_INT *next_ptr; - EMACS_INT *prev_ptr; - int change_req; +overlays_at (EMACS_INT pos, int extend, Lisp_Object **vec_ptr, int *len_ptr, + EMACS_INT *next_ptr, EMACS_INT *prev_ptr, int change_req) { Lisp_Object overlay, start, end; struct Lisp_Overlay *tail; @@ -2835,13 +2808,8 @@ But we still return the total number of overlays. */ static int -overlays_in (beg, end, extend, vec_ptr, len_ptr, next_ptr, prev_ptr) - int beg, end; - int extend; - Lisp_Object **vec_ptr; - int *len_ptr; - int *next_ptr; - int *prev_ptr; +overlays_in (int beg, int end, int extend, Lisp_Object **vec_ptr, int *len_ptr, + int *next_ptr, int *prev_ptr) { Lisp_Object overlay, ostart, oend; struct Lisp_Overlay *tail; @@ -2962,8 +2930,7 @@ `mouse-face' property overlapping OVERLAY. */ int -mouse_face_overlay_overlaps (overlay) - Lisp_Object overlay; +mouse_face_overlay_overlaps (Lisp_Object overlay) { int start = OVERLAY_POSITION (OVERLAY_START (overlay)); int end = OVERLAY_POSITION (OVERLAY_END (overlay)); @@ -2992,8 +2959,7 @@ /* Fast function to just test if we're at an overlay boundary. */ int -overlay_touches_p (pos) - int pos; +overlay_touches_p (int pos) { Lisp_Object overlay; struct Lisp_Overlay *tail; @@ -3038,8 +3004,7 @@ }; static int -compare_overlays (v1, v2) - const void *v1, *v2; +compare_overlays (const void *v1, const void *v2) { const struct sortvec *s1 = (const struct sortvec *) v1; const struct sortvec *s2 = (const struct sortvec *) v2; @@ -3056,10 +3021,7 @@ The return value is the new size; this may be smaller than the original size if some of the overlays were invalid or were window-specific. */ int -sort_overlays (overlay_vec, noverlays, w) - Lisp_Object *overlay_vec; - int noverlays; - struct window *w; +sort_overlays (Lisp_Object *overlay_vec, int noverlays, struct window *w) { int i, j; struct sortvec *sortvec; @@ -3139,8 +3101,7 @@ /* A comparison function suitable for passing to qsort. */ static int -cmp_for_strings (as1, as2) - char *as1, *as2; +cmp_for_strings (const void *as1, const void *as2) { struct sortstr *s1 = (struct sortstr *)as1; struct sortstr *s2 = (struct sortstr *)as2; @@ -3152,10 +3113,7 @@ } static void -record_overlay_string (ssl, str, str2, pri, size) - struct sortstrlist *ssl; - Lisp_Object str, str2, pri; - int size; +record_overlay_string (struct sortstrlist *ssl, Lisp_Object str, Lisp_Object str2, Lisp_Object pri, int size) { int nbytes; @@ -3211,10 +3169,7 @@ subsequent calls. */ int -overlay_strings (pos, w, pstr) - EMACS_INT pos; - struct window *w; - unsigned char **pstr; +overlay_strings (EMACS_INT pos, struct window *w, unsigned char **pstr) { Lisp_Object overlay, window, str; struct Lisp_Overlay *ov; @@ -3337,9 +3292,7 @@ /* Shift overlays in BUF's overlay lists, to center the lists at POS. */ void -recenter_overlay_lists (buf, pos) - struct buffer *buf; - EMACS_INT pos; +recenter_overlay_lists (struct buffer *buf, EMACS_INT pos) { Lisp_Object overlay, beg, end; struct Lisp_Overlay *prev, *tail, *next; @@ -3488,9 +3441,7 @@ } void -adjust_overlays_for_insert (pos, length) - EMACS_INT pos; - EMACS_INT length; +adjust_overlays_for_insert (EMACS_INT pos, EMACS_INT length) { /* After an insertion, the lists are still sorted properly, but we may need to update the value of the overlay center. */ @@ -3499,9 +3450,7 @@ } void -adjust_overlays_for_delete (pos, length) - EMACS_INT pos; - EMACS_INT length; +adjust_overlays_for_delete (EMACS_INT pos, EMACS_INT length) { if (current_buffer->overlay_center < pos) /* The deletion was to our right. No change needed; the before- and @@ -3526,8 +3475,7 @@ Such an overlay might even have negative size at this point. If so, we'll make the overlay empty. */ void -fix_start_end_in_overlays (start, end) - register int start, end; +fix_start_end_in_overlays (register int start, register int end) { Lisp_Object overlay; struct Lisp_Overlay *before_list, *after_list; @@ -3673,9 +3621,7 @@ was at PREV, and now is at POS. */ void -fix_overlays_before (bp, prev, pos) - struct buffer *bp; - EMACS_INT prev, pos; +fix_overlays_before (struct buffer *bp, EMACS_INT prev, EMACS_INT pos) { /* If parent is nil, replace overlays_before; otherwise, parent->next. */ struct Lisp_Overlay *tail = bp->overlays_before, *parent = NULL, *right_pair; @@ -3841,9 +3787,7 @@ /* Mark a section of BUF as needing redisplay because of overlays changes. */ static void -modify_overlay (buf, start, end) - struct buffer *buf; - EMACS_INT start, end; +modify_overlay (struct buffer *buf, EMACS_INT start, EMACS_INT end) { if (start > end) { @@ -3870,11 +3814,10 @@ } -Lisp_Object Fdelete_overlay (); +Lisp_Object Fdelete_overlay (Lisp_Object overlay); static struct Lisp_Overlay * -unchain_overlay (list, overlay) - struct Lisp_Overlay *list, *overlay; +unchain_overlay (struct Lisp_Overlay *list, struct Lisp_Overlay *overlay) { struct Lisp_Overlay *tmp, *prev; for (tmp = list, prev = NULL; tmp; prev = tmp, tmp = tmp->next) @@ -4333,8 +4276,7 @@ to the end of last_overlay_modification_hooks. */ static void -add_overlay_mod_hooklist (functionlist, overlay) - Lisp_Object functionlist, overlay; +add_overlay_mod_hooklist (Lisp_Object functionlist, Lisp_Object overlay) { int oldsize = XVECTOR (last_overlay_modification_hooks)->size; @@ -4362,10 +4304,8 @@ and the length of deleted or replaced old text. */ void -report_overlay_modification (start, end, after, arg1, arg2, arg3) - Lisp_Object start, end; - int after; - Lisp_Object arg1, arg2, arg3; +report_overlay_modification (Lisp_Object start, Lisp_Object end, int after, + Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3) { Lisp_Object prop, overlay; struct Lisp_Overlay *tail; @@ -4490,10 +4430,8 @@ } static void -call_overlay_mod_hooks (list, overlay, after, arg1, arg2, arg3) - Lisp_Object list, overlay; - int after; - Lisp_Object arg1, arg2, arg3; +call_overlay_mod_hooks (Lisp_Object list, Lisp_Object overlay, int after, + Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3) { struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; @@ -4513,8 +4451,7 @@ /* Delete any zero-sized overlays at position POS, if the `evaporate' property is set. */ void -evaporate_overlays (pos) - EMACS_INT pos; +evaporate_overlays (EMACS_INT pos) { Lisp_Object overlay, hit_list; struct Lisp_Overlay *tail; @@ -4552,9 +4489,7 @@ in the slot with offset OFFSET. */ void -buffer_slot_type_mismatch (newval, type) - Lisp_Object newval; - int type; +buffer_slot_type_mismatch (Lisp_Object newval, int type) { Lisp_Object predicate; @@ -5041,9 +4976,7 @@ /* Allocate NBYTES bytes for buffer B's text buffer. */ static void -alloc_buffer_text (b, nbytes) - struct buffer *b; - size_t nbytes; +alloc_buffer_text (struct buffer *b, size_t nbytes) { POINTER_TYPE *p; @@ -5098,8 +5031,7 @@ /* Free buffer B's text buffer. */ static void -free_buffer_text (b) - struct buffer *b; +free_buffer_text (struct buffer *b) { BLOCK_INPUT; @@ -5122,7 +5054,7 @@ ***********************************************************************/ void -init_buffer_once () +init_buffer_once (void) { int idx; @@ -5318,7 +5250,7 @@ } void -init_buffer () +init_buffer (void) { char *pwd; Lisp_Object temp; @@ -5402,12 +5334,8 @@ } while (0) static void -defvar_per_buffer (bo_fwd, namestring, address, type, doc) - struct Lisp_Buffer_Objfwd *bo_fwd; - char *namestring; - Lisp_Object *address; - Lisp_Object type; - char *doc; +defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, char *namestring, + Lisp_Object *address, Lisp_Object type, char *doc) { struct Lisp_Symbol *sym; int offset; @@ -5435,7 +5363,7 @@ /* initialize the buffer routines */ void -syms_of_buffer () +syms_of_buffer (void) { staticpro (&last_overlay_modification_hooks); last_overlay_modification_hooks @@ -6338,7 +6266,7 @@ } void -keys_of_buffer () +keys_of_buffer (void) { initial_define_key (control_x_map, 'b', "switch-to-buffer"); initial_define_key (control_x_map, 'k', "kill-buffer");
--- a/src/charset.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/charset.c Mon Jul 05 22:49:04 2010 +0000 @@ -1282,17 +1282,13 @@ charset. */ static int -define_charset_internal (name, dimension, code_space, min_code, max_code, - iso_final, iso_revision, emacs_mule_id, - ascii_compatible, supplementary, - code_offset) - Lisp_Object name; - int dimension; - unsigned char *code_space; - unsigned min_code, max_code; - int iso_final, iso_revision, emacs_mule_id; - int ascii_compatible, supplementary; - int code_offset; +define_charset_internal (Lisp_Object name, + int dimension, + unsigned char *code_space, + unsigned min_code, unsigned max_code, + int iso_final, int iso_revision, int emacs_mule_id, + int ascii_compatible, int supplementary, + int code_offset) { Lisp_Object args[charset_arg_max]; Lisp_Object plist[14];
--- a/src/chartab.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/chartab.c Mon Jul 05 22:49:04 2010 +0000 @@ -690,10 +690,9 @@ following characters in TABLE have the same value. */ static Lisp_Object -map_sub_char_table (c_function, function, table, arg, val, range, - default_val, parent) - void (*c_function) (Lisp_Object, Lisp_Object, Lisp_Object); - Lisp_Object function, table, arg, val, range, default_val, parent; +map_sub_char_table (void (*c_function) (Lisp_Object, Lisp_Object, Lisp_Object), + Lisp_Object function, Lisp_Object table, Lisp_Object arg, Lisp_Object val, + Lisp_Object range, Lisp_Object default_val, Lisp_Object parent) { /* Pointer to the elements of TABLE. */ Lisp_Object *contents; @@ -878,12 +877,10 @@ static void -map_sub_char_table_for_charset (c_function, function, table, arg, range, - charset, from, to) - void (*c_function) (Lisp_Object, Lisp_Object); - Lisp_Object function, table, arg, range; - struct charset *charset; - unsigned from, to; +map_sub_char_table_for_charset (void (*c_function) (Lisp_Object, Lisp_Object), + Lisp_Object function, Lisp_Object table, Lisp_Object arg, + Lisp_Object range, struct charset *charset, + unsigned from, unsigned to) { struct Lisp_Sub_Char_Table *tbl = XSUB_CHAR_TABLE (table); int depth = XINT (tbl->depth); @@ -965,12 +962,10 @@ map_charset_chars. */ void -map_char_table_for_charset (c_function, function, table, arg, - charset, from, to) - void (*c_function) (Lisp_Object, Lisp_Object); - Lisp_Object function, table, arg; - struct charset *charset; - unsigned from, to; +map_char_table_for_charset (void (*c_function) (Lisp_Object, Lisp_Object), + Lisp_Object function, Lisp_Object table, Lisp_Object arg, + struct charset *charset, + unsigned from, unsigned to) { Lisp_Object range; int c, i;
--- a/src/cm.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/cm.c Mon Jul 05 22:49:04 2010 +0000 @@ -45,8 +45,7 @@ /* ARGSUSED */ int -evalcost (c) - int c; +evalcost (int c) { cost++; return c; @@ -56,8 +55,7 @@ struct tty_display_info *current_tty; int -cmputc (c) - char c; +cmputc (int c) { if (current_tty->termscript) putc (c & 0177, current_tty->termscript); @@ -326,9 +324,7 @@ #define USECR 3 void -cmgoto (tty, row, col) - struct tty_display_info *tty; - int row, col; +cmgoto (struct tty_display_info *tty, int row, int col) { int homecost, crcost,
--- a/src/data.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/data.c Mon Jul 05 22:49:04 2010 +0000 @@ -2582,7 +2582,7 @@ static Lisp_Object float_arith_driver (double, int, enum arithop, int, Lisp_Object *); -extern Lisp_Object fmod_float (); +extern Lisp_Object fmod_float (Lisp_Object, Lisp_Object); Lisp_Object arith_driver (enum arithop code, int nargs, register Lisp_Object *args)
--- a/src/dired.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/dired.c Mon Jul 05 22:49:04 2010 +0000 @@ -90,7 +90,7 @@ #include "blockinput.h" /* Returns a search buffer, with a fastmap allocated and ready to go. */ -extern struct re_pattern_buffer *compile_pattern (); +extern struct re_pattern_buffer *compile_pattern (Lisp_Object, struct re_registers *, Lisp_Object, int, int); /* From filemode.c. Can't go in Lisp.h because of `stat'. */ extern void filemodestring (struct stat *, char *);
--- a/src/doprnt.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/doprnt.c Mon Jul 05 22:49:04 2010 +0000 @@ -48,8 +48,6 @@ another macro. */ #include "character.h" -static int doprnt1 (); - /* Generate output from a format-spec FORMAT, terminated at position FORMAT_END. Output goes in BUFFER, which has room for BUFSIZE chars.
--- a/src/emacs.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/emacs.c Mon Jul 05 22:49:04 2010 +0000 @@ -157,9 +157,9 @@ static data inside glibc's malloc. */ void *malloc_state_ptr; /* From glibc, a routine that returns a copy of the malloc internal state. */ -extern void *malloc_get_state (); +extern void *malloc_get_state (void); /* From glibc, a routine that overwrites the malloc internal state. */ -extern int malloc_set_state (); +extern int malloc_set_state (void*); /* Non-zero if the MALLOC_CHECK_ environment variable was set while dumping. Used to work around a bug in glibc's malloc. */ int malloc_using_checking; @@ -252,8 +252,8 @@ char **initial_argv; int initial_argc; -static void sort_args (); -void syms_of_emacs (); +static void sort_args (int argc, char **argv); +void syms_of_emacs (void); /* MSVC needs each string be shorter than 2048 bytes, so the usage strings below are split to not overflow this limit. */ @@ -374,8 +374,7 @@ /* Handle bus errors, invalid instruction, etc. */ SIGTYPE -fatal_error_signal (sig) - int sig; +fatal_error_signal (int sig) { SIGNAL_THREAD_CHECK (sig); fatal_error_code = sig; @@ -444,10 +443,7 @@ /* Code for dealing with Lisp access to the Unix command line. */ static void -init_cmdargs (argc, argv, skip_args) - int argc; - char **argv; - int skip_args; +init_cmdargs (int argc, char **argv, int skip_args) { register int i; Lisp_Object name, dir, tem; @@ -644,14 +640,7 @@ enough information to do it right. */ static int -argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr) - char **argv; - int argc; - char *sstr; - char *lstr; - int minlen; - char **valptr; - int *skipptr; +argmatch (char **argv, int argc, char *sstr, char *lstr, int minlen, char **valptr, int *skipptr) { char *p = NULL; int arglen; @@ -709,7 +698,7 @@ possible using this special hook. */ static void -malloc_initialize_hook () +malloc_initialize_hook (void) { #ifndef USE_CRT_DLL extern char **environ; @@ -747,7 +736,7 @@ } } -void (*__malloc_initialize_hook) () = malloc_initialize_hook; +void (*__malloc_initialize_hook) (void) = malloc_initialize_hook; #endif /* DOUG_LEA_MALLOC */ @@ -1928,9 +1917,7 @@ than once, eliminate all but one copy of it. */ static void -sort_args (argc, argv) - int argc; - char **argv; +sort_args (int argc, char **argv) { char **new = (char **) xmalloc (sizeof (char *) * argc); /* For each element of argv, @@ -2322,10 +2309,7 @@ /* Set system locale CATEGORY, with previous locale *PLOCALE, to DESIRED_LOCALE. */ static void -synchronize_locale (category, plocale, desired_locale) - int category; - Lisp_Object *plocale; - Lisp_Object desired_locale; +synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale) { if (! EQ (*plocale, desired_locale)) {
--- a/src/eval.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/eval.c Mon Jul 05 22:49:04 2010 +0000 @@ -177,12 +177,12 @@ /* "gcc -O3" enables automatic function inlining, which optimizes out the arguments for the invocations of these functions, whereas they expect these values on the stack. */ -Lisp_Object apply1 () __attribute__((noinline)); -Lisp_Object call2 () __attribute__((noinline)); +Lisp_Object apply1 (Lisp_Object fn, Lisp_Object arg) __attribute__((noinline)); +Lisp_Object call2 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2) __attribute__((noinline)); #endif void -init_eval_once () +init_eval_once (void) { specpdl_size = 50; specpdl = (struct specbinding *) xmalloc (specpdl_size * sizeof (struct specbinding)); @@ -195,7 +195,7 @@ } void -init_eval () +init_eval (void) { specpdl_ptr = specpdl; catchlist = 0; @@ -214,8 +214,7 @@ /* unwind-protect function used by call_debugger. */ static Lisp_Object -restore_stack_limits (data) - Lisp_Object data; +restore_stack_limits (Lisp_Object data) { max_specpdl_size = XINT (XCAR (data)); max_lisp_eval_depth = XINT (XCDR (data)); @@ -225,8 +224,7 @@ /* Call the Lisp debugger, giving it argument ARG. */ Lisp_Object -call_debugger (arg) - Lisp_Object arg; +call_debugger (Lisp_Object arg) { int debug_while_redisplaying; int count = SPECPDL_INDEX (); @@ -282,8 +280,7 @@ } void -do_debug_on_call (code) - Lisp_Object code; +do_debug_on_call (Lisp_Object code) { debug_on_next_call = 0; backtrace_list->debug_on_exit = 1; @@ -609,8 +606,7 @@ called is a built-in. */ int -interactive_p (exclude_subrs_p) - int exclude_subrs_p; +interactive_p (int exclude_subrs_p) { struct backtrace *btp; Lisp_Object fun; @@ -932,8 +928,7 @@ /* Error handler used in Fuser_variable_p. */ static Lisp_Object -user_variable_p_eh (ignore) - Lisp_Object ignore; +user_variable_p_eh (Lisp_Object ignore) { return Qnil; } @@ -1219,10 +1214,7 @@ This is how catches are done from within C code. */ Lisp_Object -internal_catch (tag, func, arg) - Lisp_Object tag; - Lisp_Object (*func) (); - Lisp_Object arg; +internal_catch (Lisp_Object tag, Lisp_Object (*func) (Lisp_Object), Lisp_Object arg) { /* This structure is made part of the chain `catchlist'. */ struct catchtag c; @@ -1267,9 +1259,7 @@ This is used for correct unwinding in Fthrow and Fsignal. */ static void -unwind_to_catch (catch, value) - struct catchtag *catch; - Lisp_Object value; +unwind_to_catch (struct catchtag *catch, Lisp_Object value) { register int last_time; @@ -1400,9 +1390,8 @@ rather than passed in a list. Used by Fbyte_code. */ Lisp_Object -internal_lisp_condition_case (var, bodyform, handlers) - volatile Lisp_Object var; - Lisp_Object bodyform, handlers; +internal_lisp_condition_case (volatile Lisp_Object var, Lisp_Object bodyform, + Lisp_Object handlers) { Lisp_Object val; struct catchtag c; @@ -1469,10 +1458,8 @@ but allow the debugger to run if that is enabled. */ Lisp_Object -internal_condition_case (bfun, handlers, hfun) - Lisp_Object (*bfun) (); - Lisp_Object handlers; - Lisp_Object (*hfun) (); +internal_condition_case (Lisp_Object (*bfun) (void), Lisp_Object handlers, + Lisp_Object (*hfun) (Lisp_Object)) { Lisp_Object val; struct catchtag c; @@ -1516,11 +1503,8 @@ /* Like internal_condition_case but call BFUN with ARG as its argument. */ Lisp_Object -internal_condition_case_1 (bfun, arg, handlers, hfun) - Lisp_Object (*bfun) (); - Lisp_Object arg; - Lisp_Object handlers; - Lisp_Object (*hfun) (); +internal_condition_case_1 (Lisp_Object (*bfun) (Lisp_Object), Lisp_Object arg, + Lisp_Object handlers, Lisp_Object (*hfun) (Lisp_Object)) { Lisp_Object val; struct catchtag c; @@ -1790,8 +1774,7 @@ Used for anything but Qquit (which can return from Fsignal). */ void -xsignal (error_symbol, data) - Lisp_Object error_symbol, data; +xsignal (Lisp_Object error_symbol, Lisp_Object data) { Fsignal (error_symbol, data); abort (); @@ -1800,29 +1783,25 @@ /* Like xsignal, but takes 0, 1, 2, or 3 args instead of a list. */ void -xsignal0 (error_symbol) - Lisp_Object error_symbol; +xsignal0 (Lisp_Object error_symbol) { xsignal (error_symbol, Qnil); } void -xsignal1 (error_symbol, arg) - Lisp_Object error_symbol, arg; +xsignal1 (Lisp_Object error_symbol, Lisp_Object arg) { xsignal (error_symbol, list1 (arg)); } void -xsignal2 (error_symbol, arg1, arg2) - Lisp_Object error_symbol, arg1, arg2; +xsignal2 (Lisp_Object error_symbol, Lisp_Object arg1, Lisp_Object arg2) { xsignal (error_symbol, list2 (arg1, arg2)); } void -xsignal3 (error_symbol, arg1, arg2, arg3) - Lisp_Object error_symbol, arg1, arg2, arg3; +xsignal3 (Lisp_Object error_symbol, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3) { xsignal (error_symbol, list3 (arg1, arg2, arg3)); } @@ -1831,9 +1810,7 @@ If ARG is not a genuine list, make it a one-element list. */ void -signal_error (s, arg) - char *s; - Lisp_Object arg; +signal_error (char *s, Lisp_Object arg) { Lisp_Object tortoise, hare; @@ -1862,8 +1839,7 @@ a list containing one of CONDITIONS. */ static int -wants_debugger (list, conditions) - Lisp_Object list, conditions; +wants_debugger (Lisp_Object list, Lisp_Object conditions) { if (NILP (list)) return 0; @@ -1887,8 +1863,7 @@ according to debugger-ignored-errors. */ static int -skip_debugger (conditions, data) - Lisp_Object conditions, data; +skip_debugger (Lisp_Object conditions, Lisp_Object data) { Lisp_Object tail; int first_string = 1; @@ -1925,8 +1900,7 @@ SIG and DATA describe the signal, as in find_handler_clause. */ static int -maybe_call_debugger (conditions, sig, data) - Lisp_Object conditions, sig, data; +maybe_call_debugger (Lisp_Object conditions, Lisp_Object sig, Lisp_Object data) { Lisp_Object combined_data; @@ -1962,8 +1936,8 @@ a second error here in case we're handling specpdl overflow. */ static Lisp_Object -find_handler_clause (handlers, conditions, sig, data) - Lisp_Object handlers, conditions, sig, data; +find_handler_clause (Lisp_Object handlers, Lisp_Object conditions, + Lisp_Object sig, Lisp_Object data) { register Lisp_Object h; register Lisp_Object tem; @@ -2205,8 +2179,7 @@ } Lisp_Object -un_autoload (oldqueue) - Lisp_Object oldqueue; +un_autoload (Lisp_Object oldqueue) { register Lisp_Object queue, first, second; @@ -2233,8 +2206,7 @@ FUNDEF is the autoload definition (a list). */ void -do_autoload (fundef, funname) - Lisp_Object fundef, funname; +do_autoload (Lisp_Object fundef, Lisp_Object funname) { int count = SPECPDL_INDEX (); Lisp_Object fun; @@ -2259,7 +2231,7 @@ the function. We do this in the specific case of autoloading because autoloading is not an explicit request "load this file", but rather a request to "call this function". - + The value saved here is to be restored into Vautoload_queue. */ record_unwind_protect (un_autoload, Vautoload_queue); Vautoload_queue = Qt; @@ -2682,10 +2654,7 @@ except that it isn't necessary to gcpro ARGS[0]. */ static Lisp_Object -run_hook_with_args (nargs, args, cond) - int nargs; - Lisp_Object *args; - enum run_hooks_condition cond; +run_hook_with_args (int nargs, Lisp_Object *args, enum run_hooks_condition cond) { Lisp_Object sym, val, ret; struct gcpro gcpro1, gcpro2, gcpro3; @@ -2765,10 +2734,7 @@ except that it isn't necessary to gcpro ARGS[0]. */ Lisp_Object -run_hook_list_with_args (funlist, nargs, args) - Lisp_Object funlist; - int nargs; - Lisp_Object *args; +run_hook_list_with_args (Lisp_Object funlist, int nargs, Lisp_Object *args) { Lisp_Object sym; Lisp_Object val; @@ -2810,8 +2776,7 @@ /* Run the hook HOOK, giving each function the two args ARG1 and ARG2. */ void -run_hook_with_args_2 (hook, arg1, arg2) - Lisp_Object hook, arg1, arg2; +run_hook_with_args_2 (Lisp_Object hook, Lisp_Object arg1, Lisp_Object arg2) { Lisp_Object temp[3]; temp[0] = hook; @@ -2823,8 +2788,7 @@ /* Apply fn to arg */ Lisp_Object -apply1 (fn, arg) - Lisp_Object fn, arg; +apply1 (Lisp_Object fn, Lisp_Object arg) { struct gcpro gcpro1; @@ -2843,8 +2807,7 @@ /* Call function fn on no arguments */ Lisp_Object -call0 (fn) - Lisp_Object fn; +call0 (Lisp_Object fn) { struct gcpro gcpro1; @@ -2855,8 +2818,7 @@ /* Call function fn with 1 argument arg1 */ /* ARGSUSED */ Lisp_Object -call1 (fn, arg1) - Lisp_Object fn, arg1; +call1 (Lisp_Object fn, Lisp_Object arg1) { struct gcpro gcpro1; Lisp_Object args[2]; @@ -2871,8 +2833,7 @@ /* Call function fn with 2 arguments arg1, arg2 */ /* ARGSUSED */ Lisp_Object -call2 (fn, arg1, arg2) - Lisp_Object fn, arg1, arg2; +call2 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2) { struct gcpro gcpro1; Lisp_Object args[3]; @@ -2887,8 +2848,7 @@ /* Call function fn with 3 arguments arg1, arg2, arg3 */ /* ARGSUSED */ Lisp_Object -call3 (fn, arg1, arg2, arg3) - Lisp_Object fn, arg1, arg2, arg3; +call3 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3) { struct gcpro gcpro1; Lisp_Object args[4]; @@ -2904,8 +2864,8 @@ /* Call function fn with 4 arguments arg1, arg2, arg3, arg4 */ /* ARGSUSED */ Lisp_Object -call4 (fn, arg1, arg2, arg3, arg4) - Lisp_Object fn, arg1, arg2, arg3, arg4; +call4 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3, + Lisp_Object arg4) { struct gcpro gcpro1; Lisp_Object args[5]; @@ -2922,8 +2882,8 @@ /* Call function fn with 5 arguments arg1, arg2, arg3, arg4, arg5 */ /* ARGSUSED */ Lisp_Object -call5 (fn, arg1, arg2, arg3, arg4, arg5) - Lisp_Object fn, arg1, arg2, arg3, arg4, arg5; +call5 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3, + Lisp_Object arg4, Lisp_Object arg5) { struct gcpro gcpro1; Lisp_Object args[6]; @@ -2941,8 +2901,8 @@ /* Call function fn with 6 arguments arg1, arg2, arg3, arg4, arg5, arg6 */ /* ARGSUSED */ Lisp_Object -call6 (fn, arg1, arg2, arg3, arg4, arg5, arg6) - Lisp_Object fn, arg1, arg2, arg3, arg4, arg5, arg6; +call6 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3, + Lisp_Object arg4, Lisp_Object arg5, Lisp_Object arg6) { struct gcpro gcpro1; Lisp_Object args[7]; @@ -2961,8 +2921,8 @@ /* Call function fn with 7 arguments arg1, arg2, arg3, arg4, arg5, arg6, arg7 */ /* ARGSUSED */ Lisp_Object -call7 (fn, arg1, arg2, arg3, arg4, arg5, arg6, arg7) - Lisp_Object fn, arg1, arg2, arg3, arg4, arg5, arg6, arg7; +call7 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3, + Lisp_Object arg4, Lisp_Object arg5, Lisp_Object arg6, Lisp_Object arg7) { struct gcpro gcpro1; Lisp_Object args[8]; @@ -3147,9 +3107,7 @@ } Lisp_Object -apply_lambda (fun, args, eval_flag) - Lisp_Object fun, args; - int eval_flag; +apply_lambda (Lisp_Object fun, Lisp_Object args, int eval_flag) { Lisp_Object args_left; Lisp_Object numargs; @@ -3196,10 +3154,7 @@ FUN must be either a lambda-expression or a compiled-code object. */ static Lisp_Object -funcall_lambda (fun, nargs, arg_vector) - Lisp_Object fun; - int nargs; - register Lisp_Object *arg_vector; +funcall_lambda (Lisp_Object fun, int nargs, register Lisp_Object *arg_vector) { Lisp_Object val, syms_left, next; int count = SPECPDL_INDEX (); @@ -3291,7 +3246,7 @@ } void -grow_specpdl () +grow_specpdl (void) { register int count = SPECPDL_INDEX (); if (specpdl_size >= max_specpdl_size) @@ -3324,8 +3279,7 @@ BUFFER did not yet have a buffer-local value). */ void -specbind (symbol, value) - Lisp_Object symbol, value; +specbind (Lisp_Object symbol, Lisp_Object value) { struct Lisp_Symbol *sym; @@ -3423,9 +3377,7 @@ } void -record_unwind_protect (function, arg) - Lisp_Object (*function) (Lisp_Object); - Lisp_Object arg; +record_unwind_protect (Lisp_Object (*function) (Lisp_Object), Lisp_Object arg) { eassert (!handling_signal); @@ -3438,9 +3390,7 @@ } Lisp_Object -unbind_to (count, value) - int count; - Lisp_Object value; +unbind_to (int count, Lisp_Object value) { Lisp_Object quitf = Vquit_flag; struct gcpro gcpro1, gcpro2; @@ -3623,7 +3573,7 @@ void -mark_backtrace () +mark_backtrace (void) { register struct backtrace *backlist; register int i; @@ -3642,7 +3592,7 @@ } void -syms_of_eval () +syms_of_eval (void) { DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, doc: /* *Limit on number of Lisp variable bindings and `unwind-protect's.
--- a/src/fileio.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/fileio.c Mon Jul 05 22:49:04 2010 +0000 @@ -4437,10 +4437,9 @@ /* Decide the coding-system to encode the data with. */ static Lisp_Object -choose_write_coding_system (start, end, filename, - append, visit, lockname, coding) - Lisp_Object start, end, filename, append, visit, lockname; - struct coding_system *coding; +choose_write_coding_system (Lisp_Object start, Lisp_Object end, Lisp_Object filename, + Lisp_Object append, Lisp_Object visit, Lisp_Object lockname, + struct coding_system *coding) { Lisp_Object val; Lisp_Object eol_parent = Qnil; @@ -4883,7 +4882,7 @@ return Qnil; } -Lisp_Object merge (); +Lisp_Object merge (Lisp_Object, Lisp_Object, Lisp_Object); DEFUN ("car-less-than-car", Fcar_less_than_car, Scar_less_than_car, 2, 2, 0, doc: /* Return t if (car A) is numerically less than (car B). */)
--- a/src/floatfns.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/floatfns.c Mon Jul 05 22:49:04 2010 +0000 @@ -70,7 +70,7 @@ /* This declaration is omitted on some systems, like Ultrix. */ #if !defined (HPUX) && defined (HAVE_LOGB) && !defined (logb) -extern double logb (); +extern double logb (double); #endif /* not HPUX and HAVE_LOGB and no logb macro */ #if defined(DOMAIN) && defined(SING) && defined(OVERFLOW) @@ -778,11 +778,10 @@ /* the rounding functions */ static Lisp_Object -rounding_driver (arg, divisor, double_round, int_round2, name) - register Lisp_Object arg, divisor; - double (*double_round) (); - EMACS_INT (*int_round2) (); - char *name; +rounding_driver (Lisp_Object arg, Lisp_Object divisor, + double (*double_round) (double), + EMACS_INT (*int_round2) (EMACS_INT, EMACS_INT), + char *name) { CHECK_NUMBER_OR_FLOAT (arg); @@ -832,8 +831,7 @@ integer functions. */ static EMACS_INT -ceiling2 (i1, i2) - EMACS_INT i1, i2; +ceiling2 (EMACS_INT i1, EMACS_INT i2) { return (i2 < 0 ? (i1 < 0 ? ((-1 - i1) / -i2) + 1 : - (i1 / -i2)) @@ -841,8 +839,7 @@ } static EMACS_INT -floor2 (i1, i2) - EMACS_INT i1, i2; +floor2 (EMACS_INT i1, EMACS_INT i2) { return (i2 < 0 ? (i1 <= 0 ? -i1 / -i2 : -1 - ((i1 - 1) / -i2)) @@ -850,8 +847,7 @@ } static EMACS_INT -truncate2 (i1, i2) - EMACS_INT i1, i2; +truncate2 (EMACS_INT i1, EMACS_INT i2) { return (i2 < 0 ? (i1 < 0 ? -i1 / -i2 : - (i1 / -i2)) @@ -859,8 +855,7 @@ } static EMACS_INT -round2 (i1, i2) - EMACS_INT i1, i2; +round2 (EMACS_INT i1, EMACS_INT i2) { /* The C language's division operator gives us one remainder R, but we want the remainder R1 on the other side of 0 if R1 is closer @@ -880,16 +875,14 @@ #define emacs_rint rint #else static double -emacs_rint (d) - double d; +emacs_rint (double d) { return floor (d + 0.5); } #endif static double -double_identity (d) - double d; +double_identity (double d) { return d; } @@ -941,8 +934,7 @@ Lisp_Object -fmod_float (x, y) - register Lisp_Object x, y; +fmod_float (Lisp_Object x, Lisp_Object y) { double f1, f2;
--- a/src/frame.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/frame.c Mon Jul 05 22:49:04 2010 +0000 @@ -201,7 +201,7 @@ extern Lisp_Object get_minibuffer (int); extern Lisp_Object Fhandle_switch_frame (Lisp_Object event); extern Lisp_Object Fredirect_frame_focus (Lisp_Object frame, Lisp_Object focus_frame); -extern Lisp_Object x_get_focus_frame (); +extern Lisp_Object x_get_focus_frame (struct frame *frame); extern Lisp_Object QCname, Qfont_param;
--- a/src/gtkutil.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/gtkutil.c Mon Jul 05 22:49:04 2010 +0000 @@ -231,7 +231,9 @@ /* Apply GMASK to GPIX and return a GdkPixbuf with an alpha channel. */ static GdkPixbuf * -xg_get_pixbuf_from_pix_and_mask (GdkPixmap *gpix, GdkPixmap *gmask, GdkColormap *cmap) +xg_get_pixbuf_from_pix_and_mask (GdkPixmap *gpix, + GdkPixmap *gmask, + GdkColormap *cmap) { int width, height; GdkPixbuf *icon_buf, *tmp_buf; @@ -309,7 +311,10 @@ If OLD_WIDGET is not NULL, that widget is modified. */ static GtkWidget * -xg_get_image_for_pixmap (FRAME_PTR f, struct image *img, GtkWidget *widget, GtkImage *old_widget) +xg_get_image_for_pixmap (FRAME_PTR f, + struct image *img, + GtkWidget *widget, + GtkImage *old_widget) { GdkPixmap *gpix; GdkPixmap *gmask; @@ -1039,7 +1044,9 @@ Returns the GTK dialog widget. */ static GtkWidget * -create_dialog (widget_value *wv, GCallback select_cb, GCallback deactivate_cb) +create_dialog (widget_value *wv, + GCallback select_cb, + GCallback deactivate_cb) { char *title = get_dialog_title (wv->name[0]); int total_buttons = wv->name[1] - '0'; @@ -1154,12 +1161,9 @@ USER_DATA is what we passed in to g_signal_connect. */ static void -xg_dialog_response_cb (w, - response, - user_data) - GtkDialog *w; - gint response; - gpointer user_data; +xg_dialog_response_cb (GtkDialog *w, + gint response, + gpointer user_data) { struct xg_dialog_data *dd = (struct xg_dialog_data *)user_data; dd->response = response; @@ -1338,13 +1342,11 @@ Returns the created widget. */ static GtkWidget * -xg_get_file_with_chooser (f, prompt, default_filename, - mustmatch_p, only_dir_p, func) - FRAME_PTR f; - char *prompt; - char *default_filename; - int mustmatch_p, only_dir_p; - xg_get_file_func *func; +xg_get_file_with_chooser (FRAME_PTR f, + char *prompt, + char *default_filename, + int mustmatch_p, int only_dir_p, + xg_get_file_func *func) { char message[1024]; @@ -1464,13 +1466,11 @@ Returns the created widget. */ static GtkWidget * -xg_get_file_with_selection (f, prompt, default_filename, - mustmatch_p, only_dir_p, func) - FRAME_PTR f; - char *prompt; - char *default_filename; - int mustmatch_p, only_dir_p; - xg_get_file_func *func; +xg_get_file_with_selection (FRAME_PTR f, + char *prompt, + char *default_filename, + int mustmatch_p, int only_dir_p, + xg_get_file_func *func) { GtkWidget *filewin; GtkFileSelection *filesel; @@ -1508,7 +1508,11 @@ The returned string must be freed by the caller. */ char * -xg_get_file_name (FRAME_PTR f, char *prompt, char *default_filename, int mustmatch_p, int only_dir_p) +xg_get_file_name (FRAME_PTR f, + char *prompt, + char *default_filename, + int mustmatch_p, + int only_dir_p) { GtkWidget *w = 0; char *fn = 0; @@ -1658,7 +1662,9 @@ creating the menu bar. */ static void -update_cl_data (xg_menu_cb_data *cl_data, FRAME_PTR f, GCallback highlight_cb) +update_cl_data (xg_menu_cb_data *cl_data, + FRAME_PTR f, + GCallback highlight_cb) { if (cl_data) { @@ -1729,7 +1735,9 @@ Returns FALSE to tell GTK to keep processing this event. */ static gboolean -menuitem_highlight_callback (GtkWidget *w, GdkEventCrossing *event, gpointer client_data) +menuitem_highlight_callback (GtkWidget *w, + GdkEventCrossing *event, + gpointer client_data) { GdkEvent ev; GtkWidget *subwidget; @@ -1806,7 +1814,10 @@ but the MacOS X version doesn't either, so I guess that is OK. */ static GtkWidget * -make_menu_item (char *utf8_label, char *utf8_key, widget_value *item, GSList **group) +make_menu_item (char *utf8_label, + char *utf8_key, + widget_value *item, + GSList **group) { GtkWidget *w; GtkWidget *wtoadd = 0; @@ -1951,7 +1962,12 @@ Returns the created GtkWidget. */ static GtkWidget * -xg_create_one_menuitem (widget_value *item, FRAME_PTR f, GCallback select_cb, GCallback highlight_cb, xg_menu_cb_data *cl_data, GSList **group) +xg_create_one_menuitem (widget_value *item, + FRAME_PTR f, + GCallback select_cb, + GCallback highlight_cb, + xg_menu_cb_data *cl_data, + GSList **group) { char *utf8_label; char *utf8_key; @@ -1994,10 +2010,6 @@ return w; } -static GtkWidget *create_menus (widget_value *, FRAME_PTR, GCallback, - GCallback, GCallback, int, int, int, - GtkWidget *, xg_menu_cb_data *, char *); - /* Create a full menu tree specified by DATA. F is the frame the created menu belongs to. SELECT_CB is the callback to use when a menu item is selected. @@ -2021,19 +2033,17 @@ This function calls itself to create submenus. */ static GtkWidget * -create_menus (data, f, select_cb, deactivate_cb, highlight_cb, - pop_up_p, menu_bar_p, add_tearoff_p, topmenu, cl_data, name) - widget_value *data; - FRAME_PTR f; - GCallback select_cb; - GCallback deactivate_cb; - GCallback highlight_cb; - int pop_up_p; - int menu_bar_p; - int add_tearoff_p; - GtkWidget *topmenu; - xg_menu_cb_data *cl_data; - char *name; +create_menus (widget_value *data, + FRAME_PTR f, + GCallback select_cb, + GCallback deactivate_cb, + GCallback highlight_cb, + int pop_up_p, + int menu_bar_p, + int add_tearoff_p, + GtkWidget *topmenu, + xg_menu_cb_data *cl_data, + char *name) { widget_value *item; GtkWidget *wmenu = topmenu; @@ -2278,18 +2288,16 @@ This function calls itself to walk through the menu bar names. */ static void -xg_update_menubar (menubar, f, list, iter, pos, val, - select_cb, deactivate_cb, highlight_cb, cl_data) - GtkWidget *menubar; - FRAME_PTR f; - GList **list; - GList *iter; - int pos; - widget_value *val; - GCallback select_cb; - GCallback deactivate_cb; - GCallback highlight_cb; - xg_menu_cb_data *cl_data; +xg_update_menubar (GtkWidget *menubar, + FRAME_PTR f, + GList **list, + GList *iter, + int pos, + widget_value *val, + GCallback select_cb, + GCallback deactivate_cb, + GCallback highlight_cb, + xg_menu_cb_data *cl_data) { if (! iter && ! val) return; @@ -2405,7 +2413,7 @@ Insert X. */ int nr = pos; - GList *group = 0; + GSList *group = 0; GtkWidget *w = xg_create_one_menuitem (val, f, select_cb, @@ -2464,7 +2472,11 @@ CL_DATA is the data to set in the widget for menu invocation. */ static void -xg_update_menu_item (widget_value *val, GtkWidget *w, GCallback select_cb, GCallback highlight_cb, xg_menu_cb_data *cl_data) +xg_update_menu_item (widget_value *val, + GtkWidget *w, + GCallback select_cb, + GCallback highlight_cb, + xg_menu_cb_data *cl_data) { GtkWidget *wchild; GtkLabel *wlbl = 0; @@ -2590,15 +2602,13 @@ was NULL. */ static GtkWidget * -xg_update_submenu (submenu, f, val, - select_cb, deactivate_cb, highlight_cb, cl_data) - GtkWidget *submenu; - FRAME_PTR f; - widget_value *val; - GCallback select_cb; - GCallback deactivate_cb; - GCallback highlight_cb; - xg_menu_cb_data *cl_data; +xg_update_submenu (GtkWidget *submenu, + FRAME_PTR f, + widget_value *val, + GCallback select_cb, + GCallback deactivate_cb, + GCallback highlight_cb, + xg_menu_cb_data *cl_data) { GtkWidget *newsub = submenu; GList *list = 0; @@ -2770,7 +2780,7 @@ GList *iter; GtkWidget *sub = 0; GtkWidget *newsub; - GtkMenuItem *witem; + GtkMenuItem *witem = 0; /* Find sub menu that corresponds to val and update it. */ for (iter = list ; iter; iter = g_list_next (iter)) @@ -2793,7 +2803,7 @@ /* sub may still be NULL. If we just updated non deep and added a new menu bar item, it has no sub menu yet. So we set the newly created sub menu under witem. */ - if (newsub != sub) + if (newsub != sub && witem != 0) { xg_set_screen (newsub, f); gtk_menu_item_set_submenu (witem, newsub); @@ -2986,7 +2996,11 @@ to set resources for the widget. */ void -xg_create_scroll_bar (FRAME_PTR f, struct scroll_bar *bar, GCallback scroll_callback, GCallback end_callback, char *scroll_bar_name) +xg_create_scroll_bar (FRAME_PTR f, + struct scroll_bar *bar, + GCallback scroll_callback, + GCallback end_callback, + char *scroll_bar_name) { GtkWidget *wscroll; GtkWidget *webox; @@ -3057,7 +3071,12 @@ WIDTH, HEIGHT is the size in pixels the bar shall have. */ void -xg_update_scrollbar_pos (FRAME_PTR f, int scrollbar_id, int top, int left, int width, int height) +xg_update_scrollbar_pos (FRAME_PTR f, + int scrollbar_id, + int top, + int left, + int width, + int height) { GtkWidget *wscroll = xg_get_widget_from_map (scrollbar_id); @@ -3118,7 +3137,10 @@ displaying PORTION out of a whole WHOLE, and our position POSITION. */ void -xg_set_toolkit_scroll_bar_thumb (struct scroll_bar *bar, int portion, int position, int whole) +xg_set_toolkit_scroll_bar_thumb (struct scroll_bar *bar, + int portion, + int position, + int whole) { GtkWidget *wscroll = xg_get_widget_from_map (bar->x_window); @@ -3255,7 +3277,9 @@ tool bar. 0 is the first button. */ static gboolean -xg_tool_bar_button_cb (GtkWidget *widget, GdkEventButton *event, gpointer user_data) +xg_tool_bar_button_cb (GtkWidget *widget, + GdkEventButton *event, + gpointer user_data) { /* Casts to avoid warnings when gpointer is 64 bits and int is 32 bits */ gpointer ptr = (gpointer) (EMACS_INT) event->state; @@ -3336,7 +3360,9 @@ the detached tool bar when the detached tool bar it is not expanded. */ static gboolean -xg_tool_bar_proxy_help_callback (GtkWidget *w, GdkEventCrossing *event, gpointer client_data) +xg_tool_bar_proxy_help_callback (GtkWidget *w, + GdkEventCrossing *event, + gpointer client_data) { GtkWidget *wbutton = GTK_WIDGET (g_object_get_data (G_OBJECT (w), XG_TOOL_BAR_PROXY_BUTTON)); @@ -3472,7 +3498,9 @@ CLIENT_DATA is a pointer to the frame the tool bar belongs to. */ static void -xg_tool_bar_detach_callback (GtkHandleBox *wbox, GtkWidget *w, gpointer client_data) +xg_tool_bar_detach_callback (GtkHandleBox *wbox, + GtkWidget *w, + gpointer client_data) { FRAME_PTR f = (FRAME_PTR) client_data; extern int x_gtk_whole_detached_tool_bar; @@ -3500,7 +3528,9 @@ CLIENT_DATA is a pointer to the frame the tool bar belongs to. */ static void -xg_tool_bar_attach_callback (GtkHandleBox *wbox, GtkWidget *w, gpointer client_data) +xg_tool_bar_attach_callback (GtkHandleBox *wbox, + GtkWidget *w, + gpointer client_data) { FRAME_PTR f = (FRAME_PTR) client_data; g_object_set (G_OBJECT (w), "show-arrow", TRUE, NULL); @@ -3527,7 +3557,9 @@ Returns FALSE to tell GTK to keep processing this event. */ static gboolean -xg_tool_bar_help_callback (GtkWidget *w, GdkEventCrossing *event, gpointer client_data) +xg_tool_bar_help_callback (GtkWidget *w, + GdkEventCrossing *event, + gpointer client_data) { /* The EMACS_INT cast avoids a warning. */ int idx = (int) (EMACS_INT) client_data; @@ -3566,7 +3598,9 @@ Returns FALSE to tell GTK to keep processing this event. */ static gboolean -xg_tool_bar_item_expose_callback (GtkWidget *w, GdkEventExpose *event, gpointer client_data) +xg_tool_bar_item_expose_callback (GtkWidget *w, + GdkEventExpose *event, + gpointer client_data) { gint width, height; @@ -3859,7 +3893,6 @@ GtkWidget *wbutton = NULL; GtkWidget *weventbox; Lisp_Object specified_file; - Lisp_Object lbl = PROP (TOOL_BAR_ITEM_LABEL); char *label = SSDATA (PROP (TOOL_BAR_ITEM_LABEL)); ti = gtk_toolbar_get_nth_item (GTK_TOOLBAR (wtoolbar), i); @@ -4030,7 +4063,8 @@ } else if (img && old_img != img->pixmap) { - (void) xg_get_image_for_pixmap (f, img, x->widget, wimage); + (void) xg_get_image_for_pixmap (f, img, x->widget, + GTK_IMAGE (wimage)); g_object_set_data (G_OBJECT (wimage), XG_TOOL_BAR_IMAGE_DATA, (gpointer)img->pixmap);
--- a/src/image.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/image.c Mon Jul 05 22:49:04 2010 +0000 @@ -181,26 +181,20 @@ /* Functions to access the contents of a bitmap, given an id. */ int -x_bitmap_height (f, id) - FRAME_PTR f; - int id; +x_bitmap_height (FRAME_PTR f, int id) { return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].height; } int -x_bitmap_width (f, id) - FRAME_PTR f; - int id; +x_bitmap_width (FRAME_PTR f, int id) { return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].width; } #if defined (HAVE_X_WINDOWS) || defined (HAVE_NTGUI) int -x_bitmap_pixmap (f, id) - FRAME_PTR f; - int id; +x_bitmap_pixmap (FRAME_PTR f, int id) { return (int) FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].pixmap; } @@ -208,9 +202,7 @@ #ifdef HAVE_X_WINDOWS int -x_bitmap_mask (f, id) - FRAME_PTR f; - int id; +x_bitmap_mask (FRAME_PTR f, int id) { return FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].mask; } @@ -219,8 +211,7 @@ /* Allocate a new bitmap record. Returns index of new record. */ static int -x_allocate_bitmap_record (f) - FRAME_PTR f; +x_allocate_bitmap_record (FRAME_PTR f) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); int i; @@ -251,9 +242,7 @@ /* Add one reference to the reference count of the bitmap with id ID. */ void -x_reference_bitmap (f, id) - FRAME_PTR f; - int id; +x_reference_bitmap (FRAME_PTR f, int id) { ++FRAME_X_DISPLAY_INFO (f)->bitmaps[id - 1].refcount; } @@ -261,10 +250,7 @@ /* Create a bitmap for frame F from a HEIGHT x WIDTH array of bits at BITS. */ int -x_create_bitmap_from_data (f, bits, width, height) - struct frame *f; - char *bits; - unsigned int width, height; +x_create_bitmap_from_data (struct frame *f, char *bits, unsigned int width, unsigned int height) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); int id; @@ -323,9 +309,7 @@ /* Create bitmap from file FILE for frame F. */ int -x_create_bitmap_from_file (f, file) - struct frame *f; - Lisp_Object file; +x_create_bitmap_from_file (struct frame *f, Lisp_Object file) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); @@ -402,9 +386,7 @@ /* Free bitmap B. */ static void -free_bitmap_record (dpyinfo, bm) - Display_Info *dpyinfo; - Bitmap_Record *bm; +free_bitmap_record (Display_Info *dpyinfo, Bitmap_Record *bm) { #ifdef HAVE_X_WINDOWS XFreePixmap (dpyinfo->display, bm->pixmap); @@ -430,9 +412,7 @@ /* Remove reference to bitmap with id number ID. */ void -x_destroy_bitmap (f, id) - FRAME_PTR f; - int id; +x_destroy_bitmap (FRAME_PTR f, int id) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); @@ -452,8 +432,7 @@ /* Free all the bitmaps for the display specified by DPYINFO. */ void -x_destroy_all_bitmaps (dpyinfo) - Display_Info *dpyinfo; +x_destroy_all_bitmaps (Display_Info *dpyinfo) { int i; Bitmap_Record *bm = dpyinfo->bitmaps; @@ -487,9 +466,7 @@ It's nicer with some borders in this context */ int -x_create_bitmap_mask (f, id) - struct frame *f; - int id; +x_create_bitmap_mask (struct frame *f, int id) { Pixmap pixmap, mask; XImagePtr ximg, mask_img; @@ -637,9 +614,7 @@ image_types and caches the loading status of TYPE. */ static Lisp_Object -define_image_type (type, loaded) - struct image_type *type; - int loaded; +define_image_type (struct image_type *type, int loaded) { Lisp_Object success; @@ -665,8 +640,7 @@ structure. Value is null if SYMBOL is not a known image type. */ static INLINE struct image_type * -lookup_image_type (symbol) - Lisp_Object symbol; +lookup_image_type (Lisp_Object symbol) { struct image_type *type; @@ -690,8 +664,7 @@ image type. */ int -valid_image_p (object) - Lisp_Object object; +valid_image_p (Lisp_Object object) { int valid_p = 0; @@ -726,9 +699,7 @@ therefore simply displays a message. */ static void -image_error (format, arg1, arg2) - char *format; - Lisp_Object arg1, arg2; +image_error (char *format, Lisp_Object arg1, Lisp_Object arg2) { add_to_log (format, arg1, arg2); } @@ -788,11 +759,8 @@ allowed keyword/value pairs. Value is non-zero if SPEC is valid. */ static int -parse_image_spec (spec, keywords, nkeywords, type) - Lisp_Object spec; - struct image_keyword *keywords; - int nkeywords; - Lisp_Object type; +parse_image_spec (Lisp_Object spec, struct image_keyword *keywords, + int nkeywords, Lisp_Object type) { int i; Lisp_Object plist; @@ -928,9 +896,7 @@ to 1 if KEY was found in SPEC, set it to 0 otherwise. */ static Lisp_Object -image_spec_value (spec, key, found) - Lisp_Object spec, key; - int *found; +image_spec_value (Lisp_Object spec, Lisp_Object key, int *found) { Lisp_Object tail; @@ -1048,9 +1014,7 @@ SPEC. SPEC has a hash value of HASH. */ static struct image * -make_image (spec, hash) - Lisp_Object spec; - unsigned hash; +make_image (Lisp_Object spec, unsigned int hash) { struct image *img = (struct image *) xmalloc (sizeof *img); Lisp_Object file = image_spec_value (spec, QCfile, NULL); @@ -1072,9 +1036,7 @@ /* Free image IMG which was used on frame F, including its resources. */ static void -free_image (f, img) - struct frame *f; - struct image *img; +free_image (struct frame *f, struct image *img) { if (img) { @@ -1101,10 +1063,7 @@ otherwise, return 0. */ int -check_image_size (f, width, height) - struct frame *f; - int width; - int height; +check_image_size (struct frame *f, int width, int height) { int w, h; @@ -1135,9 +1094,7 @@ drawing an image. */ void -prepare_image_for_display (f, img) - struct frame *f; - struct image *img; +prepare_image_for_display (struct frame *f, struct image *img) { EMACS_TIME t; @@ -1157,10 +1114,7 @@ drawn in face FACE. */ int -image_ascent (img, face, slice) - struct image *img; - struct face *face; - struct glyph_slice *slice; +image_ascent (struct image *img, struct face *face, struct glyph_slice *slice) { int height; int ascent; @@ -1206,10 +1160,8 @@ On W32, XIMG is assumed to a device context with the bitmap selected. */ static RGB_PIXEL_COLOR -four_corners_best (ximg, corners, width, height) - XImagePtr_or_DC ximg; - int *corners; - unsigned long width, height; +four_corners_best (XImagePtr_or_DC ximg, int *corners, + unsigned long width, unsigned long height) { RGB_PIXEL_COLOR corner_pixels[4], best; int i, best_count; @@ -1281,10 +1233,7 @@ use for the heuristic. */ RGB_PIXEL_COLOR -image_background (img, f, ximg) - struct image *img; - struct frame *f; - XImagePtr_or_DC ximg; +image_background (struct image *img, struct frame *f, XImagePtr_or_DC ximg) { if (! img->background_valid) /* IMG doesn't have a background yet, try to guess a reasonable value. */ @@ -1323,10 +1272,7 @@ existing XImage object to use for the heuristic. */ int -image_background_transparent (img, f, mask) - struct image *img; - struct frame *f; - XImagePtr_or_DC mask; +image_background_transparent (struct image *img, struct frame *f, XImagePtr_or_DC mask) { if (! img->background_transparent_valid) /* IMG doesn't have a background yet, try to guess a reasonable value. */ @@ -1386,10 +1332,8 @@ the image, if any. */ static void -x_clear_image_1 (f, img, pixmap_p, mask_p, colors_p) - struct frame *f; - struct image *img; - int pixmap_p, mask_p, colors_p; +x_clear_image_1 (struct frame *f, struct image *img, int pixmap_p, int mask_p, + int colors_p) { if (pixmap_p && img->pixmap) { @@ -1422,9 +1366,7 @@ /* Free X resources of image IMG which is used on frame F. */ static void -x_clear_image (f, img) - struct frame *f; - struct image *img; +x_clear_image (struct frame *f, struct image *img) { BLOCK_INPUT; x_clear_image_1 (f, img, 1, 1, 1); @@ -1438,11 +1380,8 @@ color. */ static unsigned long -x_alloc_image_color (f, img, color_name, dflt) - struct frame *f; - struct image *img; - Lisp_Object color_name; - unsigned long dflt; +x_alloc_image_color (struct frame *f, struct image *img, Lisp_Object color_name, + unsigned long dflt) { XColor color; unsigned long result; @@ -1480,7 +1419,7 @@ heap. Call free_image_cache to free an image cache. */ struct image_cache * -make_image_cache () +make_image_cache (void) { struct image_cache *c = (struct image_cache *) xmalloc (sizeof *c); int size; @@ -1498,10 +1437,7 @@ /* Find an image matching SPEC in the cache, and return it. If no image is found, return NULL. */ static struct image * -search_image_cache (f, spec, hash) - struct frame *f; - Lisp_Object spec; - unsigned hash; +search_image_cache (struct frame *f, Lisp_Object spec, unsigned int hash) { struct image *img; struct image_cache *c = FRAME_IMAGE_CACHE (f); @@ -1534,9 +1470,7 @@ /* Search frame F for an image with spec SPEC, and free it. */ static void -uncache_image (f, spec) - struct frame *f; - Lisp_Object spec; +uncache_image (struct frame *f, Lisp_Object spec) { struct image *img = search_image_cache (f, spec, sxhash (spec, 0)); if (img) @@ -1548,8 +1482,7 @@ caches. */ void -free_image_cache (f) - struct frame *f; +free_image_cache (struct frame *f) { struct image_cache *c = FRAME_IMAGE_CACHE (f); if (c) @@ -1725,9 +1658,7 @@ by the image's specification, */ static void -postprocess_image (f, img) - struct frame *f; - struct image *img; +postprocess_image (struct frame *f, struct image *img) { /* Manipulation of the image's mask. */ if (img->pixmap) @@ -1800,9 +1731,7 @@ SPEC must be a valid Lisp image specification (see valid_image_p). */ int -lookup_image (f, spec) - struct frame *f; - Lisp_Object spec; +lookup_image (struct frame *f, Lisp_Object spec) { struct image_cache *c; struct image *img; @@ -1922,9 +1851,7 @@ /* Cache image IMG in the image cache of frame F. */ static void -cache_image (f, img) - struct frame *f; - struct image *img; +cache_image (struct frame *f, struct image *img) { struct image_cache *c = FRAME_IMAGE_CACHE (f); int i; @@ -1964,8 +1891,7 @@ /* Mark Lisp objects in image IMG. */ static void -mark_image (img) - struct image *img; +mark_image (struct image *img) { mark_object (img->spec); mark_object (img->dependencies); @@ -2049,11 +1975,8 @@ should indicate the bit depth of the image. */ static int -x_create_x_image_and_pixmap (f, width, height, depth, ximg, pixmap) - struct frame *f; - int width, height, depth; - XImagePtr *ximg; - Pixmap *pixmap; +x_create_x_image_and_pixmap (struct frame *f, int width, int height, int depth, + XImagePtr *ximg, Pixmap *pixmap) { #ifdef HAVE_X_WINDOWS Display *display = FRAME_X_DISPLAY (f); @@ -2192,8 +2115,7 @@ /* Destroy XImage XIMG. Free XIMG->data. */ static void -x_destroy_x_image (ximg) - XImagePtr ximg; +x_destroy_x_image (XImagePtr ximg) { xassert (interrupt_input_blocked); if (ximg) @@ -2219,11 +2141,7 @@ are width and height of both the image and pixmap. */ static void -x_put_x_image (f, ximg, pixmap, width, height) - struct frame *f; - XImagePtr ximg; - Pixmap pixmap; - int width, height; +x_put_x_image (struct frame *f, XImagePtr ximg, Pixmap pixmap, int width, int height) { #ifdef HAVE_X_WINDOWS GC gc; @@ -2261,8 +2179,7 @@ found, or nil if not found. */ Lisp_Object -x_find_image_file (file) - Lisp_Object file; +x_find_image_file (Lisp_Object file) { Lisp_Object file_found, search_path; struct gcpro gcpro1, gcpro2; @@ -2297,9 +2214,7 @@ occurred. *SIZE is set to the size of the file. */ static unsigned char * -slurp_file (file, size) - char *file; - int *size; +slurp_file (char *file, int *size) { FILE *fp = NULL; unsigned char *buf = NULL; @@ -2434,8 +2349,7 @@ displayed is used. */ static int -xbm_image_p (object) - Lisp_Object object; +xbm_image_p (Lisp_Object object) { struct image_keyword kw[XBM_LAST]; @@ -2528,10 +2442,7 @@ scanning a number, store its value in *IVAL. */ static int -xbm_scan (s, end, sval, ival) - unsigned char **s, *end; - char *sval; - int *ival; +xbm_scan (unsigned char **s, unsigned char *end, char *sval, int *ival) { unsigned int c; @@ -2695,12 +2606,9 @@ static void -Create_Pixmap_From_Bitmap_Data (f, img, data, fg, bg, non_default_colors) - struct frame *f; - struct image *img; - char *data; - RGB_PIXEL_COLOR fg, bg; - int non_default_colors; +Create_Pixmap_From_Bitmap_Data (struct frame *f, struct image *img, char *data, + RGB_PIXEL_COLOR fg, RGB_PIXEL_COLOR bg, + int non_default_colors) { #ifdef HAVE_NTGUI img->pixmap @@ -2736,12 +2644,9 @@ invalid (the bitmap remains unread). */ static int -xbm_read_bitmap_data (f, contents, end, width, height, data, inhibit_image_error) - struct frame *f; - unsigned char *contents, *end; - int *width, *height; - unsigned char **data; - int inhibit_image_error; +xbm_read_bitmap_data (struct frame *f, unsigned char *contents, unsigned char *end, + int *width, int *height, unsigned char **data, + int inhibit_image_error) { unsigned char *s = contents; char buffer[BUFSIZ]; @@ -2890,10 +2795,8 @@ successful. */ static int -xbm_load_image (f, img, contents, end) - struct frame *f; - struct image *img; - unsigned char *contents, *end; +xbm_load_image (struct frame *f, struct image *img, unsigned char *contents, + unsigned char *end) { int rc; unsigned char *data; @@ -2949,8 +2852,7 @@ /* Value is non-zero if DATA looks like an in-memory XBM file. */ static int -xbm_file_p (data) - Lisp_Object data; +xbm_file_p (Lisp_Object data) { int w, h; return (STRINGP (data) @@ -2964,9 +2866,7 @@ non-zero if successful. */ static int -xbm_load (f, img) - struct frame *f; - struct image *img; +xbm_load (struct frame *f, struct image *img) { int success_p = 0; Lisp_Object file_name; @@ -3240,9 +3140,7 @@ /* Initialize the color cache. */ static void -xpm_init_color_cache (f, attrs) - struct frame *f; - XpmAttributes *attrs; +xpm_init_color_cache (struct frame *f, XpmAttributes *attrs) { size_t nbytes = XPM_COLOR_CACHE_BUCKETS * sizeof *xpm_color_cache; xpm_color_cache = (struct xpm_cached_color **) xmalloc (nbytes); @@ -3268,7 +3166,7 @@ /* Free the color cache. */ static void -xpm_free_color_cache () +xpm_free_color_cache (void) { struct xpm_cached_color *p, *next; int i; @@ -3289,8 +3187,7 @@ cache. */ static int -xpm_color_bucket (color_name) - char *color_name; +xpm_color_bucket (char *color_name) { unsigned h = 0; char *s; @@ -3306,11 +3203,7 @@ entry added. */ static struct xpm_cached_color * -xpm_cache_color (f, color_name, color, bucket) - struct frame *f; - char *color_name; - XColor *color; - int bucket; +xpm_cache_color (struct frame *f, char *color_name, XColor *color, int bucket) { size_t nbytes; struct xpm_cached_color *p; @@ -3333,10 +3226,7 @@ allocation failed. */ static int -xpm_lookup_color (f, color_name, color) - struct frame *f; - char *color_name; - XColor *color; +xpm_lookup_color (struct frame *f, char *color_name, XColor *color) { struct xpm_cached_color *p; int h = xpm_color_bucket (color_name); @@ -3373,12 +3263,8 @@ if successful. */ static int -xpm_alloc_color (dpy, cmap, color_name, color, closure) - Display *dpy; - Colormap cmap; - char *color_name; - XColor *color; - void *closure; +xpm_alloc_color (Display *dpy, Colormap cmap, char *color_name, XColor *color, + void *closure) { return xpm_lookup_color ((struct frame *) closure, color_name, color); } @@ -3389,12 +3275,7 @@ non-zero if successful. */ static int -xpm_free_colors (dpy, cmap, pixels, npixels, closure) - Display *dpy; - Colormap cmap; - Pixel *pixels; - int npixels; - void *closure; +xpm_free_colors (Display *dpy, Colormap cmap, Pixel *pixels, int npixels, void *closure) { return 1; } @@ -3434,8 +3315,7 @@ cdr are strings. */ static int -xpm_valid_color_symbols_p (color_symbols) - Lisp_Object color_symbols; +xpm_valid_color_symbols_p (Lisp_Object color_symbols) { while (CONSP (color_symbols)) { @@ -3454,8 +3334,7 @@ /* Value is non-zero if OBJECT is a valid XPM image specification. */ static int -xpm_image_p (object) - Lisp_Object object; +xpm_image_p (Lisp_Object object) { struct image_keyword fmt[XPM_LAST]; bcopy (xpm_format, fmt, sizeof fmt); @@ -3472,9 +3351,7 @@ #if defined (HAVE_XPM) && defined (HAVE_X_WINDOWS) int -x_create_bitmap_from_xpm_data (f, bits) - struct frame *f; - char **bits; +x_create_bitmap_from_xpm_data (struct frame *f, char **bits) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); int id, rc; @@ -3517,9 +3394,7 @@ #ifdef HAVE_XPM static int -xpm_load (f, img) - struct frame *f; - struct image *img; +xpm_load (struct frame *f, struct image *img) { int rc; XpmAttributes attrs; @@ -4273,7 +4148,7 @@ /* Initialize the color table. */ static void -init_color_table () +init_color_table (void) { int size = CT_SIZE * sizeof (*ct_table); ct_table = (struct ct_color **) xmalloc (size); @@ -4285,7 +4160,7 @@ /* Free memory associated with the color table. */ static void -free_color_table () +free_color_table (void) { int i; struct ct_color *p, *next; @@ -4308,9 +4183,7 @@ G, B, and make an entry in the color table. */ static unsigned long -lookup_rgb_color (f, r, g, b) - struct frame *f; - int r, g, b; +lookup_rgb_color (struct frame *f, int r, int g, int b) { unsigned hash = CT_HASH_RGB (r, g, b); int i = hash % CT_SIZE; @@ -4405,9 +4278,7 @@ table. If not already present, allocate it. Value is PIXEL. */ static unsigned long -lookup_pixel_color (f, pixel) - struct frame *f; - unsigned long pixel; +lookup_pixel_color (struct frame *f, unsigned long pixel) { int i = pixel % CT_SIZE; struct ct_color *p; @@ -4459,8 +4330,7 @@ allocated via xmalloc. Set *N to the number of colors. */ static unsigned long * -colors_in_color_table (n) - int *n; +colors_in_color_table (int *n) { int i, j; struct ct_color *p; @@ -4558,10 +4428,7 @@ allocated with xmalloc; it must be freed by the caller. */ static XColor * -x_to_xcolors (f, img, rgb_p) - struct frame *f; - struct image *img; - int rgb_p; +x_to_xcolors (struct frame *f, struct image *img, int rgb_p) { int x, y; XColor *colors, *p; @@ -4674,10 +4541,7 @@ COLORS will be freed; an existing IMG->pixmap will be freed, too. */ static void -x_from_xcolors (f, img, colors) - struct frame *f; - struct image *img; - XColor *colors; +x_from_xcolors (struct frame *f, struct image *img, XColor *colors) { int x, y; XImagePtr oimg = NULL; @@ -4719,10 +4583,7 @@ outgoing image. */ static void -x_detect_edges (f, img, matrix, color_adjust) - struct frame *f; - struct image *img; - int matrix[9], color_adjust; +x_detect_edges (struct frame *f, struct image *img, int *matrix, int color_adjust) { XColor *colors = x_to_xcolors (f, img, 1); XColor *new, *p; @@ -4788,9 +4649,7 @@ on frame F. */ static void -x_emboss (f, img) - struct frame *f; - struct image *img; +x_emboss (struct frame *f, struct image *img) { x_detect_edges (f, img, emboss_matrix, 0xffff / 2); } @@ -4801,9 +4660,7 @@ to draw disabled buttons, for example. */ static void -x_laplace (f, img) - struct frame *f; - struct image *img; +x_laplace (struct frame *f, struct image *img) { x_detect_edges (f, img, laplace_matrix, 45000); } @@ -4821,10 +4678,8 @@ number. */ static void -x_edge_detection (f, img, matrix, color_adjust) - struct frame *f; - struct image *img; - Lisp_Object matrix, color_adjust; +x_edge_detection (struct frame *f, struct image *img, Lisp_Object matrix, + Lisp_Object color_adjust) { int i = 0; int trans[9]; @@ -4853,9 +4708,7 @@ /* Transform image IMG on frame F so that it looks disabled. */ static void -x_disable_image (f, img) - struct frame *f; - struct image *img; +x_disable_image (struct frame *f, struct image *img) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); #ifdef HAVE_NTGUI @@ -4957,10 +4810,7 @@ heuristically. Value is non-zero if successful. */ static int -x_build_heuristic_mask (f, img, how) - struct frame *f; - struct image *img; - Lisp_Object how; +x_build_heuristic_mask (struct frame *f, struct image *img, Lisp_Object how) { XImagePtr_or_DC ximg; #ifndef HAVE_NTGUI @@ -5146,8 +4996,7 @@ /* Return non-zero if OBJECT is a valid PBM image specification. */ static int -pbm_image_p (object) - Lisp_Object object; +pbm_image_p (Lisp_Object object) { struct image_keyword fmt[PBM_LAST]; @@ -5166,8 +5015,7 @@ end of input. */ static int -pbm_scan_number (s, end) - unsigned char **s, *end; +pbm_scan_number (unsigned char **s, unsigned char *end) { int c = 0, val = -1; @@ -5242,9 +5090,7 @@ /* Load PBM image IMG for use on frame F. */ static int -pbm_load (f, img) - struct frame *f; - struct image *img; +pbm_load (struct frame *f, struct image *img) { int raw_p, x, y; int width, height, max_color_idx = 0; @@ -5566,8 +5412,7 @@ /* Return non-zero if OBJECT is a valid PNG image specification. */ static int -png_image_p (object) - Lisp_Object object; +png_image_p (Lisp_Object object) { struct image_keyword fmt[PNG_LAST]; bcopy (png_format, fmt, sizeof fmt); @@ -5671,9 +5516,7 @@ is initialized. */ static void -my_png_error (png_ptr, msg) - png_struct *png_ptr; - char *msg; +my_png_error (png_struct *png_ptr, const char *msg) { xassert (png_ptr != NULL); image_error ("PNG error: %s", build_string (msg), Qnil); @@ -5682,9 +5525,7 @@ static void -my_png_warning (png_ptr, msg) - png_struct *png_ptr; - char *msg; +my_png_warning (png_struct *png_ptr, const char *msg) { xassert (png_ptr != NULL); image_error ("PNG warning: %s", build_string (msg), Qnil); @@ -5705,10 +5546,7 @@ bytes from the input to DATA. */ static void -png_read_from_memory (png_ptr, data, length) - png_structp png_ptr; - png_bytep data; - png_size_t length; +png_read_from_memory (png_structp png_ptr, png_bytep data, png_size_t length) { struct png_memory_storage *tbr = (struct png_memory_storage *) fn_png_get_io_ptr (png_ptr); @@ -5726,10 +5564,7 @@ bytes from the input to DATA. */ static void -png_read_from_file (png_ptr, data, length) - png_structp png_ptr; - png_bytep data; - png_size_t length; +png_read_from_file (png_structp png_ptr, png_bytep data, png_size_t length) { FILE *fp = (FILE *) fn_png_get_io_ptr (png_ptr); @@ -5742,9 +5577,7 @@ successful. */ static int -png_load (f, img) - struct frame *f; - struct image *img; +png_load (struct frame *f, struct image *img) { Lisp_Object file, specified_file; Lisp_Object specified_data; @@ -6168,8 +6001,7 @@ /* Return non-zero if OBJECT is a valid JPEG image specification. */ static int -jpeg_image_p (object) - Lisp_Object object; +jpeg_image_p (Lisp_Object object) { struct image_keyword fmt[JPEG_LAST]; @@ -6268,8 +6100,7 @@ static void -my_error_exit (cinfo) - j_common_ptr cinfo; +my_error_exit (j_common_ptr cinfo) { struct my_jpeg_error_mgr *mgr = (struct my_jpeg_error_mgr *) cinfo->err; longjmp (mgr->setjmp_buffer, 1); @@ -6281,8 +6112,7 @@ libjpeg.doc from the JPEG lib distribution. */ static void -our_common_init_source (cinfo) - j_decompress_ptr cinfo; +our_common_init_source (j_decompress_ptr cinfo) { } @@ -6291,8 +6121,7 @@ jpeg_finish_decompress() after all data has been processed. */ static void -our_common_term_source (cinfo) - j_decompress_ptr cinfo; +our_common_term_source (j_decompress_ptr cinfo) { } @@ -6304,8 +6133,7 @@ static JOCTET our_memory_buffer[2]; static boolean -our_memory_fill_input_buffer (cinfo) - j_decompress_ptr cinfo; +our_memory_fill_input_buffer (j_decompress_ptr cinfo) { /* Insert a fake EOI marker. */ struct jpeg_source_mgr *src = cinfo->src; @@ -6323,9 +6151,7 @@ is the JPEG data source manager. */ static void -our_memory_skip_input_data (cinfo, num_bytes) - j_decompress_ptr cinfo; - long num_bytes; +our_memory_skip_input_data (j_decompress_ptr cinfo, long int num_bytes) { struct jpeg_source_mgr *src = (struct jpeg_source_mgr *) cinfo->src; @@ -6345,10 +6171,7 @@ reading the image. */ static void -jpeg_memory_src (cinfo, data, len) - j_decompress_ptr cinfo; - JOCTET *data; - unsigned int len; +jpeg_memory_src (j_decompress_ptr cinfo, JOCTET *data, unsigned int len) { struct jpeg_source_mgr *src; @@ -6391,8 +6214,7 @@ whenever more data is needed. The data is read from a FILE *. */ static boolean -our_stdio_fill_input_buffer (cinfo) - j_decompress_ptr cinfo; +our_stdio_fill_input_buffer (j_decompress_ptr cinfo) { struct jpeg_stdio_mgr *src; @@ -6423,9 +6245,7 @@ is the JPEG data source manager. */ static void -our_stdio_skip_input_data (cinfo, num_bytes) - j_decompress_ptr cinfo; - long num_bytes; +our_stdio_skip_input_data (j_decompress_ptr cinfo, long int num_bytes) { struct jpeg_stdio_mgr *src; src = (struct jpeg_stdio_mgr *) cinfo->src; @@ -6455,9 +6275,7 @@ reading the image. */ static void -jpeg_file_src (cinfo, fp) - j_decompress_ptr cinfo; - FILE *fp; +jpeg_file_src (j_decompress_ptr cinfo, FILE *fp) { struct jpeg_stdio_mgr *src; @@ -6491,9 +6309,7 @@ from the JPEG lib. */ static int -jpeg_load (f, img) - struct frame *f; - struct image *img; +jpeg_load (struct frame *f, struct image *img) { struct jpeg_decompress_struct cinfo; struct my_jpeg_error_mgr mgr; @@ -6742,8 +6558,7 @@ /* Return non-zero if OBJECT is a valid TIFF image specification. */ static int -tiff_image_p (object) - Lisp_Object object; +tiff_image_p (Lisp_Object object) { struct image_keyword fmt[TIFF_LAST]; bcopy (tiff_format, fmt, sizeof fmt); @@ -6823,10 +6638,7 @@ tiff_memory_source; static size_t -tiff_read_from_memory (data, buf, size) - thandle_t data; - tdata_t buf; - tsize_t size; +tiff_read_from_memory (thandle_t data, tdata_t buf, tsize_t size) { tiff_memory_source *src = (tiff_memory_source *) data; @@ -6838,19 +6650,13 @@ } static size_t -tiff_write_from_memory (data, buf, size) - thandle_t data; - tdata_t buf; - tsize_t size; +tiff_write_from_memory (thandle_t data, tdata_t buf, tsize_t size) { return (size_t) -1; } static toff_t -tiff_seek_in_memory (data, off, whence) - thandle_t data; - toff_t off; - int whence; +tiff_seek_in_memory (thandle_t data, toff_t off, int whence) { tiff_memory_source *src = (tiff_memory_source *) data; int idx; @@ -6881,44 +6687,34 @@ } static int -tiff_close_memory (data) - thandle_t data; +tiff_close_memory (thandle_t data) { /* NOOP */ return 0; } static int -tiff_mmap_memory (data, pbase, psize) - thandle_t data; - tdata_t *pbase; - toff_t *psize; +tiff_mmap_memory (thandle_t data, tdata_t *pbase, toff_t *psize) { /* It is already _IN_ memory. */ return 0; } static void -tiff_unmap_memory (data, base, size) - thandle_t data; - tdata_t base; - toff_t size; +tiff_unmap_memory (thandle_t data, tdata_t base, toff_t size) { /* We don't need to do this. */ } static toff_t -tiff_size_of_memory (data) - thandle_t data; +tiff_size_of_memory (thandle_t data) { return ((tiff_memory_source *) data)->len; } static void -tiff_error_handler (title, format, ap) - const char *title, *format; - va_list ap; +tiff_error_handler (const char *title, const char *format, va_list ap) { char buf[512]; int len; @@ -6930,9 +6726,7 @@ static void -tiff_warning_handler (title, format, ap) - const char *title, *format; - va_list ap; +tiff_warning_handler (const char *title, const char *format, va_list ap) { char buf[512]; int len; @@ -6947,9 +6741,7 @@ successful. */ static int -tiff_load (f, img) - struct frame *f; - struct image *img; +tiff_load (struct frame *f, struct image *img) { Lisp_Object file, specified_file; Lisp_Object specified_data; @@ -7194,9 +6986,7 @@ /* Free X resources of GIF image IMG which is used on frame F. */ static void -gif_clear_image (f, img) - struct frame *f; - struct image *img; +gif_clear_image (struct frame *f, struct image *img) { /* IMG->data.ptr_val may contain metadata with extension data. */ img->data.lisp_val = Qnil; @@ -7206,8 +6996,7 @@ /* Return non-zero if OBJECT is a valid GIF image specification. */ static int -gif_image_p (object) - Lisp_Object object; +gif_image_p (Lisp_Object object) { struct image_keyword fmt[GIF_LAST]; bcopy (gif_format, fmt, sizeof fmt); @@ -7290,10 +7079,7 @@ static gif_memory_source *current_gif_memory_src; static int -gif_read_from_memory (file, buf, len) - GifFileType *file; - GifByteType *buf; - int len; +gif_read_from_memory (GifFileType *file, GifByteType *buf, int len) { gif_memory_source *src = current_gif_memory_src; @@ -7313,9 +7099,7 @@ static const int interlace_increment[] = {8, 8, 4, 2}; static int -gif_load (f, img) - struct frame *f; - struct image *img; +gif_load (struct frame *f, struct image *img) { Lisp_Object file, specified_file; Lisp_Object specified_data; @@ -7645,8 +7429,7 @@ identify the SVG format. */ static int -svg_image_p (object) - Lisp_Object object; +svg_image_p (Lisp_Object object) { struct image_keyword fmt[SVG_LAST]; bcopy (svg_format, fmt, sizeof fmt); @@ -7748,9 +7531,7 @@ the prototype thus needs to be compatible with that structure. */ static int -svg_load (f, img) - struct frame *f; - struct image *img; +svg_load (struct frame *f, struct image *img) { int success_p = 0; Lisp_Object file_name; @@ -7807,15 +7588,10 @@ Returns non-zero when successful. */ static int -svg_load_image (f, img, contents, size) - /* Pointer to emacs frame structure. */ - struct frame *f; - /* Pointer to emacs image structure. */ - struct image *img; - /* String containing the SVG XML data to be parsed. */ - unsigned char *contents; - /* Size of data in bytes. */ - unsigned int size; +svg_load_image (struct frame *f, /* Pointer to emacs frame structure. */ + struct image *img, /* Pointer to emacs image structure. */ + unsigned char *contents, /* String containing the SVG XML data to be parsed. */ + unsigned int size) /* Size of data in bytes. */ { RsvgHandle *rsvg_handle; RsvgDimensionData dimension_data; @@ -8045,9 +7821,7 @@ /* Free X resources of Ghostscript image IMG which is used on frame F. */ static void -gs_clear_image (f, img) - struct frame *f; - struct image *img; +gs_clear_image (struct frame *f, struct image *img) { /* IMG->data.ptr_val may contain a recorded colormap. */ xfree (img->data.ptr_val); @@ -8059,8 +7833,7 @@ specification. */ static int -gs_image_p (object) - Lisp_Object object; +gs_image_p (Lisp_Object object) { struct image_keyword fmt[GS_LAST]; Lisp_Object tem; @@ -8100,9 +7873,7 @@ if successful. */ static int -gs_load (f, img) - struct frame *f; - struct image *img; +gs_load (struct frame *f, struct image *img) { char buffer[100]; Lisp_Object window_and_pixmap_id = Qnil, loader, pt_height, pt_width; @@ -8180,9 +7951,7 @@ telling Emacs that Ghostscript has finished drawing. */ void -x_kill_gs_process (pixmap, f) - Pixmap pixmap; - struct frame *f; +x_kill_gs_process (Pixmap pixmap, struct frame *f) { struct image_cache *c = FRAME_IMAGE_CACHE (f); int class, i; @@ -8375,7 +8144,7 @@ } void -syms_of_image () +syms_of_image (void) { extern Lisp_Object Qrisky_local_variable; /* Syms_of_xdisp has already run. */ @@ -8560,7 +8329,7 @@ } void -init_image () +init_image (void) { }
--- a/src/keyboard.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/keyboard.c Mon Jul 05 22:49:04 2010 +0000 @@ -521,17 +521,15 @@ extern Lisp_Object Qleft_fringe, Qright_fringe; extern Lisp_Object QCmap; -Lisp_Object recursive_edit_unwind (), command_loop (); -Lisp_Object Fthis_command_keys (); +Lisp_Object recursive_edit_unwind (Lisp_Object buffer), command_loop (void); +Lisp_Object Fthis_command_keys (void); Lisp_Object Qextended_command_history; -EMACS_TIME timer_check (); +EMACS_TIME timer_check (int do_it_now); extern Lisp_Object Vhistory_length, Vtranslation_table_for_input; -extern char *x_get_keysym_name (); - -static void record_menu_key (); -static int echo_length (); +static void record_menu_key (Lisp_Object c); +static int echo_length (void); Lisp_Object Qpolling_period; @@ -611,14 +609,13 @@ #define READABLE_EVENTS_IGNORE_SQUEEZABLES (1 << 2) /* Function for init_keyboard to call with no args (if nonzero). */ -void (*keyboard_init_hook) (); +void (*keyboard_init_hook) (void); static int read_avail_input (int); static void get_input_pending (int *, int); static int readable_events (int); static Lisp_Object read_char_x_menu_prompt (int, Lisp_Object *, Lisp_Object, int *); -static Lisp_Object read_char_x_menu_prompt (); static Lisp_Object read_char_minibuf_menu_prompt (int, int, Lisp_Object *); static Lisp_Object make_lispy_event (struct input_event *); @@ -633,7 +630,6 @@ Lisp_Object *, unsigned); static Lisp_Object make_lispy_switch_frame (Lisp_Object); static void save_getcjmp (jmp_buf); -static void save_getcjmp (); static void restore_getcjmp (jmp_buf); static Lisp_Object apply_modifiers (int, Lisp_Object); static void clear_event (struct input_event *); @@ -658,8 +654,7 @@ Also start echoing. */ void -echo_prompt (str) - Lisp_Object str; +echo_prompt (Lisp_Object str) { current_kboard->echo_string = str; current_kboard->echo_after_prompt = SCHARS (str); @@ -671,8 +666,7 @@ jazz), or a symbol, whose name is printed. */ void -echo_char (c) - Lisp_Object c; +echo_char (Lisp_Object c) { if (current_kboard->immediate_echo) { @@ -759,7 +753,7 @@ empty, so that it serves as a mini-prompt for the very next character. */ void -echo_dash () +echo_dash (void) { /* Do nothing if not echoing at all. */ if (NILP (current_kboard->echo_string)) @@ -800,7 +794,7 @@ doing so. */ void -echo_now () +echo_now (void) { if (!current_kboard->immediate_echo) { @@ -850,7 +844,7 @@ /* Turn off echoing, for the start of a new command. */ void -cancel_echoing () +cancel_echoing (void) { current_kboard->immediate_echo = 0; current_kboard->echo_after_prompt = -1; @@ -863,7 +857,7 @@ /* Return the length of the current echo string. */ static int -echo_length () +echo_length (void) { return (STRINGP (current_kboard->echo_string) ? SCHARS (current_kboard->echo_string) @@ -875,8 +869,7 @@ switches frames while entering a key sequence. */ static void -echo_truncate (nchars) - int nchars; +echo_truncate (int nchars) { if (STRINGP (current_kboard->echo_string)) current_kboard->echo_string @@ -888,8 +881,7 @@ /* Functions for manipulating this_command_keys. */ static void -add_command_key (key) - Lisp_Object key; +add_command_key (Lisp_Object key) { #if 0 /* Not needed after we made Freset_this_command_lengths do the job immediately. */ @@ -916,7 +908,7 @@ Lisp_Object -recursive_edit_1 () +recursive_edit_1 (void) { int count = SPECPDL_INDEX (); Lisp_Object val; @@ -961,7 +953,7 @@ /* When an auto-save happens, record the "time", and don't do again soon. */ void -record_auto_save () +record_auto_save (void) { last_auto_save = num_nonmacro_input_events; } @@ -969,7 +961,7 @@ /* Make an auto save happen as soon as possible at command level. */ void -force_auto_save_soon () +force_auto_save_soon (void) { last_auto_save = - auto_save_interval - 1; @@ -1014,8 +1006,7 @@ } Lisp_Object -recursive_edit_unwind (buffer) - Lisp_Object buffer; +recursive_edit_unwind (Lisp_Object buffer) { if (BUFFERP (buffer)) Fset_buffer (buffer); @@ -1060,8 +1051,7 @@ get out of it. */ void -not_single_kboard_state (kboard) - KBOARD *kboard; +not_single_kboard_state (KBOARD *kboard) { if (kboard == current_kboard) single_kboard = 0; @@ -1080,8 +1070,7 @@ static struct kboard_stack *kboard_stack; void -push_kboard (k) - struct kboard *k; +push_kboard (struct kboard *k) { struct kboard_stack *p = (struct kboard_stack *) xmalloc (sizeof (struct kboard_stack)); @@ -1094,7 +1083,7 @@ } void -pop_kboard () +pop_kboard (void) { struct terminal *t; struct kboard_stack *p = kboard_stack; @@ -1129,8 +1118,7 @@ locked, then this function will throw an errow. */ void -temporarily_switch_to_single_kboard (f) - struct frame *f; +temporarily_switch_to_single_kboard (struct frame *f) { int was_locked = single_kboard; if (was_locked) @@ -1170,8 +1158,7 @@ #endif static Lisp_Object -restore_kboard_configuration (was_locked) - Lisp_Object was_locked; +restore_kboard_configuration (Lisp_Object was_locked) { if (NILP (was_locked)) single_kboard = 0; @@ -1192,8 +1179,7 @@ by printing an error message and returning to the editor command loop. */ Lisp_Object -cmd_error (data) - Lisp_Object data; +cmd_error (Lisp_Object data) { Lisp_Object old_level, old_length; char macroerror[50]; @@ -1251,9 +1237,7 @@ string. */ void -cmd_error_internal (data, context) - Lisp_Object data; - char *context; +cmd_error_internal (Lisp_Object data, char *context) { struct frame *sf = SELECTED_FRAME (); @@ -1304,16 +1288,16 @@ Vsignaling_function = Qnil; } -Lisp_Object command_loop_1 (); -Lisp_Object command_loop_2 (); -Lisp_Object top_level_1 (); +Lisp_Object command_loop_1 (void); +Lisp_Object command_loop_2 (Lisp_Object); +Lisp_Object top_level_1 (Lisp_Object); /* Entry to editor-command-loop. This level has the catches for exiting/returning to editor command loop. It returns nil to exit recursive edit, t to abort it. */ Lisp_Object -command_loop () +command_loop (void) { if (command_loop_level > 0 || minibuf_level > 0) { @@ -1348,7 +1332,7 @@ returned due to end of file (or end of kbd macro). */ Lisp_Object -command_loop_2 () +command_loop_2 (Lisp_Object ignore) { register Lisp_Object val; @@ -1360,13 +1344,13 @@ } Lisp_Object -top_level_2 () +top_level_2 (void) { return Feval (Vtop_level); } Lisp_Object -top_level_1 () +top_level_1 (Lisp_Object ignore) { /* On entry to the outer level, run the startup file */ if (!NILP (Vtop_level)) @@ -1424,8 +1408,7 @@ of this function. */ static Lisp_Object -tracking_off (old_value) - Lisp_Object old_value; +tracking_off (Lisp_Object old_value) { do_mouse_tracking = old_value; if (NILP (old_value)) @@ -1475,7 +1458,7 @@ int ignore_mouse_drag_p; static FRAME_PTR -some_mouse_moved () +some_mouse_moved (void) { Lisp_Object tail, frame; @@ -1508,8 +1491,7 @@ ARG is not used. */ #ifdef HAVE_WINDOW_SYSTEM static Lisp_Object -cancel_hourglass_unwind (arg) - Lisp_Object arg; +cancel_hourglass_unwind (Lisp_Object arg) { cancel_hourglass (); return Qnil; @@ -1517,7 +1499,7 @@ #endif Lisp_Object -command_loop_1 () +command_loop_1 (void) { Lisp_Object cmd; Lisp_Object keybuf[30]; @@ -1865,9 +1847,7 @@ extern Lisp_Object get_pos_property (Lisp_Object, Lisp_Object, Lisp_Object); static void -adjust_point_for_property (last_pt, modified) - int last_pt; - int modified; +adjust_point_for_property (int last_pt, int modified) { EMACS_INT beg, end; Lisp_Object val, overlay, tmp; @@ -2017,8 +1997,7 @@ /* Subroutine for safe_run_hooks: run the hook HOOK. */ static Lisp_Object -safe_run_hooks_1 (hook) - Lisp_Object hook; +safe_run_hooks_1 (void) { if (NILP (Vrun_hooks)) return Qnil; @@ -2028,8 +2007,7 @@ /* Subroutine for safe_run_hooks: handle an error by clearing out the hook. */ static Lisp_Object -safe_run_hooks_error (data) - Lisp_Object data; +safe_run_hooks_error (Lisp_Object data) { Lisp_Object args[3]; args[0] = build_string ("Error in %s: %s"); @@ -2044,8 +2022,7 @@ to mysteriously evaporate. */ void -safe_run_hooks (hook) - Lisp_Object hook; +safe_run_hooks (Lisp_Object hook) { int count = SPECPDL_INDEX (); specbind (Qinhibit_quit, hook); @@ -2077,7 +2054,7 @@ there. */ void -poll_for_input_1 () +poll_for_input_1 (void) { /* Tell ns_read_socket() it is being called asynchronously so it can avoid doing anything dangerous. */ @@ -2096,8 +2073,7 @@ poll_timer. */ void -poll_for_input (timer) - struct atimer *timer; +poll_for_input (struct atimer *timer) { if (poll_suppress_count == 0) { @@ -2116,7 +2092,7 @@ This function is called unconditionally from various places. */ void -start_polling () +start_polling (void) { #ifdef POLL_FOR_INPUT /* XXX This condition was (read_socket_hook && !interrupt_input), @@ -2153,7 +2129,7 @@ /* Nonzero if we are using polling to handle input asynchronously. */ int -input_polling_used () +input_polling_used (void) { #ifdef POLL_FOR_INPUT /* XXX This condition was (read_socket_hook && !interrupt_input), @@ -2168,7 +2144,7 @@ /* Turn off polling. */ void -stop_polling () +stop_polling (void) { #ifdef POLL_FOR_INPUT /* XXX This condition was (read_socket_hook && !interrupt_input), @@ -2183,8 +2159,7 @@ and start or stop polling accordingly. */ void -set_poll_suppress_count (count) - int count; +set_poll_suppress_count (int count) { #ifdef POLL_FOR_INPUT if (count == 0 && poll_suppress_count != 0) @@ -2204,8 +2179,7 @@ But don't decrease it. */ void -bind_polling_period (n) - int n; +bind_polling_period (int n) { #ifdef POLL_FOR_INPUT int new = polling_period; @@ -2224,8 +2198,7 @@ /* Apply the control modifier to CHARACTER. */ int -make_ctrl_char (c) - int c; +make_ctrl_char (int c) { /* Save the upper bits here. */ int upper = c & ~0177; @@ -2294,9 +2267,8 @@ from X code running asynchronously. */ void -show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo) - Lisp_Object help, window, object, pos; - int ok_to_overwrite_keystroke_echo; +show_help_echo (Lisp_Object help, Lisp_Object window, Lisp_Object object, + Lisp_Object pos, int ok_to_overwrite_keystroke_echo) { if (!NILP (help) && !STRINGP (help)) { @@ -2343,9 +2315,10 @@ /* Input of single characters from keyboard */ -Lisp_Object print_help (); -static Lisp_Object kbd_buffer_get_event (); -static void record_char (); +Lisp_Object print_help (Lisp_Object object); +static Lisp_Object kbd_buffer_get_event (KBOARD **kbp, int *used_mouse_menu, + struct timeval *end_time); +static void record_char (Lisp_Object c); static Lisp_Object help_form_saved_window_configs; static Lisp_Object @@ -2394,13 +2367,8 @@ Value is t if we showed a menu and the user rejected it. */ Lisp_Object -read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu, end_time) - int commandflag; - int nmaps; - Lisp_Object *maps; - Lisp_Object prev_event; - int *used_mouse_menu; - EMACS_TIME *end_time; +read_char (int commandflag, int nmaps, Lisp_Object *maps, Lisp_Object prev_event, + int *used_mouse_menu, struct timeval *end_time) { volatile Lisp_Object c; int count, jmpcount; @@ -3311,8 +3279,7 @@ Record it for echoing, for this-command-keys, and so on. */ static void -record_menu_key (c) - Lisp_Object c; +record_menu_key (Lisp_Object c) { /* Wipe the echo area. */ clear_message (1, 0); @@ -3346,8 +3313,7 @@ /* Return 1 if should recognize C as "the help character". */ int -help_char_p (c) - Lisp_Object c; +help_char_p (Lisp_Object c) { Lisp_Object tail; @@ -3362,8 +3328,7 @@ /* Record the input event C in various ways. */ static void -record_char (c) - Lisp_Object c; +record_char (Lisp_Object c) { int recorded = 0; @@ -3497,8 +3462,7 @@ } Lisp_Object -print_help (object) - Lisp_Object object; +print_help (Lisp_Object object) { struct buffer *old = current_buffer; Fprinc (object, Qnil); @@ -3514,15 +3478,13 @@ See read_process_output. */ static void -save_getcjmp (temp) - jmp_buf temp; +save_getcjmp (jmp_buf temp) { bcopy (getcjmp, temp, sizeof getcjmp); } static void -restore_getcjmp (temp) - jmp_buf temp; +restore_getcjmp (jmp_buf temp) { bcopy (temp, getcjmp, sizeof getcjmp); } @@ -3534,8 +3496,7 @@ /* Return true if there are any events in the queue that read-char would return. If this returns false, a read-char would block. */ static int -readable_events (flags) - int flags; +readable_events (int flags) { #ifdef HAVE_DBUS /* Check whether a D-Bus message has arrived. */ @@ -3611,8 +3572,7 @@ int stop_character; static KBOARD * -event_to_kboard (event) - struct input_event *event; +event_to_kboard (struct input_event *event) { Lisp_Object frame; frame = event->frame_or_window; @@ -3636,8 +3596,7 @@ /* Store an event obtained at interrupt level into kbd_buffer, fifo */ void -kbd_buffer_store_event (event) - register struct input_event *event; +kbd_buffer_store_event (register struct input_event *event) { kbd_buffer_store_event_hold (event, 0); } @@ -3655,9 +3614,8 @@ */ void -kbd_buffer_store_event_hold (event, hold_quit) - register struct input_event *event; - struct input_event *hold_quit; +kbd_buffer_store_event_hold (register struct input_event *event, + struct input_event *hold_quit) { if (event->kind == NO_EVENT) abort (); @@ -3778,8 +3736,7 @@ /* Put an input event back in the head of the event queue. */ void -kbd_buffer_unget_event (event) - register struct input_event *event; +kbd_buffer_unget_event (register struct input_event *event) { if (kbd_fetch_ptr == kbd_buffer) kbd_fetch_ptr = kbd_buffer + KBD_BUFFER_SIZE; @@ -3807,9 +3764,8 @@ Value is the number of input_events generated. */ void -gen_help_event (help, frame, window, object, pos) - Lisp_Object help, frame, object, window; - int pos; +gen_help_event (Lisp_Object help, Lisp_Object frame, Lisp_Object window, + Lisp_Object object, int pos) { struct input_event event; @@ -3828,8 +3784,7 @@ /* Store HELP_EVENTs for HELP on FRAME in the input queue. */ void -kbd_buffer_store_help_event (frame, help) - Lisp_Object frame, help; +kbd_buffer_store_help_event (Lisp_Object frame, Lisp_Object help) { struct input_event event; @@ -3846,7 +3801,7 @@ /* Discard any mouse events in the event buffer by setting them to NO_EVENT. */ void -discard_mouse_events () +discard_mouse_events (void) { struct input_event *sp; for (sp = kbd_fetch_ptr; sp != kbd_store_ptr; sp++) @@ -3876,8 +3831,7 @@ are no real input events. */ int -kbd_buffer_events_waiting (discard) - int discard; +kbd_buffer_events_waiting (int discard) { struct input_event *sp; @@ -3899,8 +3853,7 @@ /* Clear input event EVENT. */ static INLINE void -clear_event (event) - struct input_event *event; +clear_event (struct input_event *event) { event->kind = NO_EVENT; } @@ -3913,10 +3866,7 @@ We always read and discard one event. */ static Lisp_Object -kbd_buffer_get_event (kbp, used_mouse_menu, end_time) - KBOARD **kbp; - int *used_mouse_menu; - EMACS_TIME *end_time; +kbd_buffer_get_event (KBOARD **kbp, int *used_mouse_menu, struct timeval *end_time) { register int c; Lisp_Object obj; @@ -4283,8 +4233,7 @@ then return, without reading any user-visible events. */ void -swallow_events (do_display) - int do_display; +swallow_events (int do_display) { int old_timers_run; @@ -4334,7 +4283,7 @@ for the sake of running idle-time timers. */ static void -timer_start_idle () +timer_start_idle (void) { Lisp_Object timers; @@ -4362,7 +4311,7 @@ /* Record that Emacs is no longer idle, so stop running idle-time timers. */ static void -timer_stop_idle () +timer_stop_idle (void) { EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); } @@ -4370,7 +4319,7 @@ /* Resume idle timer from last idle start time. */ static void -timer_resume_idle () +timer_resume_idle (void) { if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) return; @@ -4401,7 +4350,7 @@ should be done. */ static EMACS_TIME -timer_check_2 () +timer_check_2 (void) { EMACS_TIME nexttime; EMACS_TIME now, idleness_now; @@ -4602,12 +4551,11 @@ Now we always run timers directly. */ EMACS_TIME -timer_check (do_it_now) - int do_it_now; +timer_check (int do_it_now) { EMACS_TIME nexttime; - do + do { nexttime = timer_check_2 (); } @@ -5254,10 +5202,8 @@ /* Return position of a mouse click or wheel event */ static Lisp_Object -make_lispy_position (f, x, y, time) - struct frame *f; - Lisp_Object *x, *y; - unsigned long time; +make_lispy_position (struct frame *f, Lisp_Object *x, Lisp_Object *y, + unsigned long time) { Lisp_Object window; enum window_part part; @@ -5444,8 +5390,7 @@ in order to build drag events when the button is released. */ static Lisp_Object -make_lispy_event (event) - struct input_event *event; +make_lispy_event (struct input_event *event) { int i; @@ -6152,12 +6097,8 @@ #if defined(HAVE_MOUSE) || defined(HAVE_GPM) static Lisp_Object -make_lispy_movement (frame, bar_window, part, x, y, time) - FRAME_PTR frame; - Lisp_Object bar_window; - enum scroll_bar_part part; - Lisp_Object x, y; - unsigned long time; +make_lispy_movement (FRAME_PTR frame, Lisp_Object bar_window, enum scroll_bar_part part, + Lisp_Object x, Lisp_Object y, unsigned long time) { /* Is it a scroll bar movement? */ if (frame && ! NILP (bar_window)) @@ -6192,8 +6133,7 @@ /* Construct a switch frame event. */ static Lisp_Object -make_lispy_switch_frame (frame) - Lisp_Object frame; +make_lispy_switch_frame (Lisp_Object frame) { return Fcons (Qswitch_frame, Fcons (frame, Qnil)); } @@ -6209,9 +6149,7 @@ This doesn't use any caches. */ static int -parse_modifiers_uncached (symbol, modifier_end) - Lisp_Object symbol; - int *modifier_end; +parse_modifiers_uncached (Lisp_Object symbol, int *modifier_end) { Lisp_Object name; int i; @@ -6321,10 +6259,7 @@ prepended to the string BASE[0..BASE_LEN-1]. This doesn't use any caches. */ static Lisp_Object -apply_modifiers_uncached (modifiers, base, base_len, base_len_byte) - int modifiers; - char *base; - int base_len, base_len_byte; +apply_modifiers_uncached (int modifiers, char *base, int base_len, int base_len_byte) { /* Since BASE could contain nulls, we can't use intern here; we have to use Fintern, which expects a genuine Lisp_String, and keeps a @@ -6383,8 +6318,7 @@ /* Return the list of modifier symbols corresponding to the mask MODIFIERS. */ static Lisp_Object -lispy_modifier_list (modifiers) - int modifiers; +lispy_modifier_list (int modifiers) { Lisp_Object modifier_list; int i; @@ -6409,8 +6343,7 @@ #define KEY_TO_CHAR(k) (XINT (k) & ((1 << CHARACTERBITS) - 1)) Lisp_Object -parse_modifiers (symbol) - Lisp_Object symbol; +parse_modifiers (Lisp_Object symbol) { Lisp_Object elements; @@ -6479,9 +6412,7 @@ apply_modifiers copies the value of BASE's Qevent_kind property to the modified symbol. */ static Lisp_Object -apply_modifiers (modifiers, base) - int modifiers; - Lisp_Object base; +apply_modifiers (int modifiers, Lisp_Object base) { Lisp_Object cache, index, entry, new_symbol; @@ -6550,8 +6481,7 @@ and M-C-foo end up being equivalent in the keymap. */ Lisp_Object -reorder_modifiers (symbol) - Lisp_Object symbol; +reorder_modifiers (Lisp_Object symbol) { /* It's hopefully okay to write the code this way, since everything will soon be in caches, and no consing will be done at all. */ @@ -6596,15 +6526,9 @@ in the symbol's name. */ static Lisp_Object -modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist_or_stem, - name_table, symbol_table, table_size) - int symbol_num; - unsigned modifiers; - Lisp_Object symbol_kind; - Lisp_Object name_alist_or_stem; - char **name_table; - Lisp_Object *symbol_table; - unsigned int table_size; +modify_event_symbol (int symbol_num, unsigned int modifiers, Lisp_Object symbol_kind, + Lisp_Object name_alist_or_stem, char **name_table, + Lisp_Object *symbol_table, unsigned int table_size) { Lisp_Object value; Lisp_Object symbol_int; @@ -6657,6 +6581,7 @@ #ifdef HAVE_WINDOW_SYSTEM if (NILP (value)) { + extern char *x_get_keysym_name (KeySym keysym); char *name = x_get_keysym_name (symbol_num); if (name) value = intern (name); @@ -6841,8 +6766,7 @@ but it can be a Lucid-style event type list. */ int -lucid_event_type_list_p (object) - Lisp_Object object; +lucid_event_type_list_p (Lisp_Object object) { Lisp_Object tail; @@ -6879,9 +6803,7 @@ movements and toolkit scroll bar thumb drags. */ static void -get_input_pending (addr, flags) - int *addr; - int flags; +get_input_pending (int *addr, int flags) { /* First of all, have we already counted some input? */ *addr = (!NILP (Vquit_flag) || readable_events (flags)); @@ -6898,8 +6820,7 @@ /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ void -gobble_input (expected) - int expected; +gobble_input (int expected) { #ifdef HAVE_DBUS /* Read D-Bus messages. */ @@ -6936,7 +6857,7 @@ so that read_key_sequence will notice the new current buffer. */ void -record_asynch_buffer_change () +record_asynch_buffer_change (void) { struct input_event event; Lisp_Object tem; @@ -6986,8 +6907,7 @@ this is a bad time to try to read input. */ static int -read_avail_input (expected) - int expected; +read_avail_input (int expected) { int nread = 0; int err = 0; @@ -7313,7 +7233,7 @@ } void -handle_async_input () +handle_async_input (void) { interrupt_input_pending = 0; #ifdef SYNC_INPUT @@ -7340,7 +7260,7 @@ } void -process_pending_signals () +process_pending_signals (void) { if (interrupt_input_pending) handle_async_input (); @@ -7351,8 +7271,7 @@ /* Note SIGIO has been undef'd if FIONREAD is missing. */ static SIGTYPE -input_available_signal (signo) - int signo; +input_available_signal (int signo) { /* Must preserve main program's value of errno. */ int old_errno = errno; @@ -7381,7 +7300,7 @@ dealing with, without assuming that every file which uses UNBLOCK_INPUT also has #included the files necessary to get SIGIO. */ void -reinvoke_input_signal () +reinvoke_input_signal (void) { #ifdef SIGIO handle_async_input (); @@ -7410,9 +7329,7 @@ static struct user_signal_info *user_signals = NULL; void -add_user_signal (sig, name) - int sig; - const char *name; +add_user_signal (int sig, const char *name) { struct user_signal_info *p; @@ -7432,8 +7349,7 @@ } static SIGTYPE -handle_user_signal (sig) - int sig; +handle_user_signal (int sig) { int old_errno = errno; struct user_signal_info *p; @@ -7462,8 +7378,7 @@ } static char * -find_user_signal_name (sig) - int sig; +find_user_signal_name (int sig) { struct user_signal_info *p; @@ -7475,7 +7390,7 @@ } static int -store_user_signal_events () +store_user_signal_events (void) { struct user_signal_info *p; struct input_event buf; @@ -7525,8 +7440,7 @@ OLD is an old vector we can optionally reuse, or nil. */ Lisp_Object -menu_bar_items (old) - Lisp_Object old; +menu_bar_items (Lisp_Object old) { /* The number of keymaps we're scanning right now, and the number of keymaps we have allocated space for. */ @@ -7666,9 +7580,7 @@ Lisp_Object item_properties; static void -menu_bar_item (key, item, dummy1, dummy2) - Lisp_Object key, item, dummy1; - void *dummy2; +menu_bar_item (Lisp_Object key, Lisp_Object item, Lisp_Object dummy1, void *dummy2) { struct gcpro gcpro1; int i; @@ -7743,8 +7655,7 @@ /* This is used as the handler when calling menu_item_eval_property. */ static Lisp_Object -menu_item_eval_property_1 (arg) - Lisp_Object arg; +menu_item_eval_property_1 (Lisp_Object arg) { /* If we got a quit from within the menu computation, quit all the way out of it. This takes care of C-] in the debugger. */ @@ -7757,8 +7668,7 @@ /* Evaluate an expression and return the result (or nil if something went wrong). Used to evaluate dynamic parts of menu items. */ Lisp_Object -menu_item_eval_property (sexpr) - Lisp_Object sexpr; +menu_item_eval_property (Lisp_Object sexpr) { int count = SPECPDL_INDEX (); Lisp_Object val; @@ -7778,9 +7688,7 @@ otherwise. */ int -parse_menu_item (item, inmenubar) - Lisp_Object item; - int inmenubar; +parse_menu_item (Lisp_Object item, int inmenubar) { Lisp_Object def, tem, item_string, start; Lisp_Object filter; @@ -8088,9 +7996,7 @@ tool bar items found. */ Lisp_Object -tool_bar_items (reuse, nitems) - Lisp_Object reuse; - int *nitems; +tool_bar_items (Lisp_Object reuse, int *nitems) { Lisp_Object *maps; int nmaps, i; @@ -8168,9 +8074,7 @@ /* Process the definition of KEY which is DEF. */ static void -process_tool_bar_item (key, def, data, args) - Lisp_Object key, def, data; - void *args; +process_tool_bar_item (Lisp_Object key, Lisp_Object def, Lisp_Object data, void *args) { int i; extern Lisp_Object Qundefined; @@ -8255,8 +8159,7 @@ A text label to show with the tool bar button if labels are enabled. */ static int -parse_tool_bar_item (key, item) - Lisp_Object key, item; +parse_tool_bar_item (Lisp_Object key, Lisp_Object item) { /* Access slot with index IDX of vector tool_bar_item_properties. */ #define PROP(IDX) XVECTOR (tool_bar_item_properties)->contents[IDX] @@ -8386,7 +8289,7 @@ EMACS_INT max_lbl = 2*tool_bar_max_label_size; Lisp_Object new_lbl; - if (strlen (caption) < max_lbl && caption[0] != '\0') + if (strlen (caption) < max_lbl && caption[0] != '\0') { strcpy (buf, caption); while (buf[0] != '\0' && buf[strlen (buf) -1] == '.') @@ -8398,17 +8301,17 @@ if (strlen (caption) <= max_lbl) label = caption; - if (strlen (label) <= max_lbl && label[0] != '\0') + if (strlen (label) <= max_lbl && label[0] != '\0') { int i; if (label != buf) strcpy (buf, label); - for (i = 0; i < strlen (buf); ++i) + for (i = 0; i < strlen (buf); ++i) { if (buf[i] == '-') buf[i] = ' '; } label = buf; - + } else label = ""; @@ -8448,8 +8351,7 @@ that can be reused. */ static void -init_tool_bar_items (reuse) - Lisp_Object reuse; +init_tool_bar_items (Lisp_Object reuse) { if (VECTORP (reuse)) tool_bar_items_vector = reuse; @@ -8463,7 +8365,7 @@ tool_bar_item_properties */ static void -append_tool_bar_item () +append_tool_bar_item (void) { Lisp_Object *to, *from; @@ -8507,11 +8409,8 @@ and do auto-saving in the inner call of read_char. */ static Lisp_Object -read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu) - int nmaps; - Lisp_Object *maps; - Lisp_Object prev_event; - int *used_mouse_menu; +read_char_x_menu_prompt (int nmaps, Lisp_Object *maps, Lisp_Object prev_event, + int *used_mouse_menu) { int mapno; @@ -8595,10 +8494,7 @@ static int read_char_minibuf_menu_width; static Lisp_Object -read_char_minibuf_menu_prompt (commandflag, nmaps, maps) - int commandflag ; - int nmaps; - Lisp_Object *maps; +read_char_minibuf_menu_prompt (int commandflag, int nmaps, Lisp_Object *maps) { int mapno; register Lisp_Object name; @@ -8863,10 +8759,8 @@ NEXT may be the same array as CURRENT. */ static int -follow_key (key, nmaps, current, defs, next) - Lisp_Object key; - Lisp_Object *current, *defs, *next; - int nmaps; +follow_key (Lisp_Object key, int nmaps, Lisp_Object *current, Lisp_Object *defs, + Lisp_Object *next) { int i, first_binding; @@ -8915,9 +8809,8 @@ that it is indeed a vector). */ static Lisp_Object -access_keymap_keyremap (map, key, prompt, do_funcall) - Lisp_Object map, key, prompt; - int do_funcall; +access_keymap_keyremap (Lisp_Object map, Lisp_Object key, Lisp_Object prompt, + int do_funcall) { Lisp_Object next; @@ -8968,10 +8861,8 @@ The return value is non-zero if the remapping actually took place. */ static int -keyremap_step (keybuf, bufsize, fkey, input, doit, diff, prompt) - Lisp_Object *keybuf, prompt; - keyremap *fkey; - int input, doit, *diff, bufsize; +keyremap_step (Lisp_Object *keybuf, int bufsize, volatile keyremap *fkey, + int input, int doit, int *diff, Lisp_Object prompt) { Lisp_Object next, key; @@ -9063,14 +8954,9 @@ from the selected window's buffer. */ static int -read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, - can_return_switch_frame, fix_current_buffer) - Lisp_Object *keybuf; - int bufsize; - Lisp_Object prompt; - int dont_downcase_last; - int can_return_switch_frame; - int fix_current_buffer; +read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt, + int dont_downcase_last, int can_return_switch_frame, + int fix_current_buffer) { volatile Lisp_Object from_string; volatile int count = SPECPDL_INDEX (); @@ -10565,7 +10451,7 @@ /* Return nonzero if input events are pending. */ int -detect_input_pending () +detect_input_pending (void) { if (!input_pending) get_input_pending (&input_pending, 0); @@ -10577,7 +10463,7 @@ pending. */ int -detect_input_pending_ignore_squeezables () +detect_input_pending_ignore_squeezables (void) { if (!input_pending) get_input_pending (&input_pending, READABLE_EVENTS_IGNORE_SQUEEZABLES); @@ -10588,8 +10474,7 @@ /* Return nonzero if input events are pending, and run any pending timers. */ int -detect_input_pending_run_timers (do_display) - int do_display; +detect_input_pending_run_timers (int do_display) { int old_timers_run = timers_run; @@ -10620,7 +10505,7 @@ So calling this function unnecessarily can't do any harm. */ void -clear_input_pending () +clear_input_pending (void) { input_pending = 0; } @@ -10632,7 +10517,7 @@ to do in that case. It isn't trivial. */ int -requeued_events_pending_p () +requeued_events_pending_p (void) { return (!NILP (Vunread_command_events) || unread_command_char != -1); } @@ -10904,8 +10789,7 @@ Then in any case stuff anything Emacs has read ahead and not used. */ void -stuff_buffered_input (stuffstring) - Lisp_Object stuffstring; +stuff_buffered_input (Lisp_Object stuffstring) { #ifdef SIGTSTP /* stuff_char is defined if SIGTSTP. */ register unsigned char *p; @@ -10943,8 +10827,7 @@ } void -set_waiting_for_input (time_to_clear) - EMACS_TIME *time_to_clear; +set_waiting_for_input (struct timeval *time_to_clear) { input_available_clear_time = time_to_clear; @@ -10958,7 +10841,7 @@ } void -clear_waiting_for_input () +clear_waiting_for_input (void) { /* Tell handle_interrupt not to throw back to read_char, */ waiting_for_input = 0; @@ -10972,8 +10855,8 @@ Otherwise, the handler kills Emacs. */ static SIGTYPE -interrupt_signal (signalnum) /* If we don't have an argument, */ - int signalnum; /* some compilers complain in signal calls. */ +interrupt_signal (int signalnum) /* If we don't have an argument, some */ + /* compilers complain in signal calls. */ { /* Must preserve main program's value of errno. */ int old_errno = errno; @@ -11017,7 +10900,7 @@ non-nil, it stops the job right away. */ static void -handle_interrupt () +handle_interrupt (void) { char c; @@ -11143,7 +11026,7 @@ /* Handle a C-g by making read_char return C-g. */ void -quit_throw_to_read_char () +quit_throw_to_read_char (void) { sigfree (); /* Prevent another signal from doing this before we finish. */ @@ -11478,8 +11361,7 @@ * Set up a new kboard object with reasonable initial values. */ void -init_kboard (kb) - KBOARD *kb; +init_kboard (KBOARD *kb) { kb->Voverriding_terminal_local_map = Qnil; kb->Vlast_command = Qnil; @@ -11513,8 +11395,7 @@ * it a second time. */ static void -wipe_kboard (kb) - KBOARD *kb; +wipe_kboard (KBOARD *kb) { xfree (kb->kbd_macro_buffer); } @@ -11522,8 +11403,7 @@ /* Free KB and memory referenced from it. */ void -delete_kboard (kb) - KBOARD *kb; +delete_kboard (KBOARD *kb) { KBOARD **kbp; @@ -11548,7 +11428,7 @@ } void -init_keyboard () +init_keyboard (void) { /* This is correct before outermost invocation of the editor loop */ command_loop_level = -1; @@ -11648,7 +11528,7 @@ }; void -syms_of_keyboard () +syms_of_keyboard (void) { pending_funcalls = Qnil; staticpro (&pending_funcalls); @@ -12424,7 +12304,7 @@ } void -keys_of_keyboard () +keys_of_keyboard (void) { initial_define_key (global_map, Ctl ('Z'), "suspend-emacs"); initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs"); @@ -12484,7 +12364,7 @@ /* Mark the pointers in the kboard objects. Called by the Fgarbage_collector. */ void -mark_kboards () +mark_kboards (void) { KBOARD *kb; Lisp_Object *p;
--- a/src/lread.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/lread.c Mon Jul 05 22:49:04 2010 +0000 @@ -223,7 +223,7 @@ Lisp_Object); static void readevalloop (Lisp_Object, FILE*, Lisp_Object, - Lisp_Object (*) (), int, + Lisp_Object (*) (Lisp_Object), int, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object); static Lisp_Object load_unwind (Lisp_Object); @@ -1610,15 +1610,13 @@ If the input is not from a buffer, they must be nil. */ static void -readevalloop (readcharfun, stream, sourcename, evalfun, - printflag, unibyte, readfun, start, end) - Lisp_Object readcharfun; - FILE *stream; - Lisp_Object sourcename; - Lisp_Object (*evalfun) (); - int printflag; - Lisp_Object unibyte, readfun; - Lisp_Object start, end; +readevalloop (Lisp_Object readcharfun, + FILE *stream, + Lisp_Object sourcename, + Lisp_Object (*evalfun) (Lisp_Object), + int printflag, + Lisp_Object unibyte, Lisp_Object readfun, + Lisp_Object start, Lisp_Object end) { register int c; register Lisp_Object val;
--- a/src/mem-limits.h Sun Jul 04 23:34:54 2010 +0000 +++ b/src/mem-limits.h Mon Jul 05 22:49:04 2010 +0000 @@ -67,7 +67,7 @@ #endif #define NULL ((POINTER) 0) -extern POINTER start_of_data (); +extern POINTER start_of_data (void); #if defined USE_LSB_TAG #define EXCEEDS_LISP_PTR(ptr) 0 #elif defined DATA_SEG_BITS
--- a/src/process.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/process.c Mon Jul 05 22:49:04 2010 +0000 @@ -182,7 +182,7 @@ #include "syswait.h" -extern char *get_operating_system_release (); +extern char *get_operating_system_release (void); /* Serial processes require termios or Windows. */ #if defined (HAVE_TERMIOS) || defined (WINDOWSNT) @@ -297,8 +297,8 @@ #define POLL_FOR_INPUT #endif -static Lisp_Object get_process (); -static void exec_sentinel (); +static Lisp_Object get_process (register Lisp_Object name); +static void exec_sentinel (Lisp_Object proc, Lisp_Object reason); extern int timers_run; @@ -399,8 +399,7 @@ static Lisp_Object status_convert (int); static void -update_status (p) - struct Lisp_Process *p; +update_status (struct Lisp_Process *p) { eassert (p->raw_status_new); p->status = status_convert (p->raw_status); @@ -429,11 +428,7 @@ and store them individually through the three pointers. */ static void -decode_status (l, symbol, code, coredump) - Lisp_Object l; - Lisp_Object *symbol; - int *code; - int *coredump; +decode_status (Lisp_Object l, Lisp_Object *symbol, int *code, int *coredump) { Lisp_Object tem; @@ -456,8 +451,7 @@ /* Return a string describing a process status list. */ static Lisp_Object -status_message (p) - struct Lisp_Process *p; +status_message (struct Lisp_Process *p) { Lisp_Object status = p->status; Lisp_Object symbol; @@ -519,7 +513,7 @@ is left in the variable pty_name. */ static int -allocate_pty () +allocate_pty (void) { register int c, i; int fd; @@ -593,8 +587,7 @@ #endif /* HAVE_PTYS */ static Lisp_Object -make_process (name) - Lisp_Object name; +make_process (Lisp_Object name) { register Lisp_Object val, tem, name1; register struct Lisp_Process *p; @@ -638,8 +631,7 @@ } static void -remove_process (proc) - register Lisp_Object proc; +remove_process (register Lisp_Object proc) { register Lisp_Object pair; @@ -652,8 +644,7 @@ /* Setup coding systems of PROCESS. */ void -setup_process_coding_systems (process) - Lisp_Object process; +setup_process_coding_systems (Lisp_Object process) { struct Lisp_Process *p = XPROCESS (process); int inch = p->infd; @@ -729,8 +720,7 @@ current buffer. */ static Lisp_Object -get_process (name) - register Lisp_Object name; +get_process (register Lisp_Object name) { register Lisp_Object proc, obj; if (STRINGP (name)) @@ -1161,7 +1151,7 @@ } #ifdef DATAGRAM_SOCKETS -Lisp_Object Fprocess_datagram_address (); +Lisp_Object Fprocess_datagram_address (Lisp_Object process); #endif DEFUN ("process-contact", Fprocess_contact, Sprocess_contact, @@ -1327,8 +1317,7 @@ #endif static Lisp_Object -list_processes_1 (query_only) - Lisp_Object query_only; +list_processes_1 (Lisp_Object query_only) { register Lisp_Object tail, tem; Lisp_Object proc, minspace, tem1; @@ -1579,7 +1568,7 @@ /* Starting asynchronous inferior processes. */ -static Lisp_Object start_process_unwind (); +static Lisp_Object start_process_unwind (Lisp_Object proc); DEFUN ("start-process", Fstart_process, Sstart_process, 3, MANY, 0, doc: /* Start a program in a subprocess. Return the process object for it. @@ -1814,8 +1803,7 @@ an error and the process wasn't started successfully, so we should remove it from the process list. */ static Lisp_Object -start_process_unwind (proc) - Lisp_Object proc; +start_process_unwind (Lisp_Object proc) { if (!PROCESSP (proc)) abort (); @@ -1828,8 +1816,7 @@ } static void -create_process_1 (timer) - struct atimer *timer; +create_process_1 (struct atimer *timer) { /* Nothing to do. */ } @@ -1855,10 +1842,7 @@ #endif void -create_process (process, new_argv, current_dir) - Lisp_Object process; - char **new_argv; - Lisp_Object current_dir; +create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir) { int inchannel, outchannel; pid_t pid; @@ -2245,8 +2229,7 @@ } void -create_pty (process) - Lisp_Object process; +create_pty (Lisp_Object process) { int inchannel, outchannel; @@ -2333,9 +2316,7 @@ The address family of sa is not included in the result. */ static Lisp_Object -conv_sockaddr_to_lisp (sa, len) - struct sockaddr *sa; - int len; +conv_sockaddr_to_lisp (struct sockaddr *sa, int len) { Lisp_Object address; int i; @@ -2404,9 +2385,7 @@ /* Get family and required size for sockaddr structure to hold ADDRESS. */ static int -get_lisp_to_sockaddr_size (address, familyp) - Lisp_Object address; - int *familyp; +get_lisp_to_sockaddr_size (Lisp_Object address, int *familyp) { register struct Lisp_Vector *p; @@ -2451,11 +2430,7 @@ we return after zeroing *SA. */ static void -conv_lisp_to_sockaddr (family, address, sa, len) - int family; - Lisp_Object address; - struct sockaddr *sa; - int len; +conv_lisp_to_sockaddr (int family, Lisp_Object address, struct sockaddr *sa, int len) { register struct Lisp_Vector *p; register unsigned char *cp = NULL; @@ -2612,9 +2587,7 @@ */ static int -set_socket_option (s, opt, val) - int s; - Lisp_Object opt, val; +set_socket_option (int s, Lisp_Object opt, Lisp_Object val) { char *name; const struct socket_options *sopt; @@ -3701,7 +3674,7 @@ int len1 = sizeof (sa1); if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0) contact = Fplist_put (contact, QClocal, - conv_sockaddr_to_lisp (&sa1, len1)); + conv_sockaddr_to_lisp ((struct sockaddr *)&sa1, len1)); } #endif } @@ -4154,8 +4127,7 @@ /* Turn off input and output for process PROC. */ void -deactivate_process (proc) - Lisp_Object proc; +deactivate_process (Lisp_Object proc) { register int inchannel, outchannel; register struct Lisp_Process *p = XPROCESS (proc); @@ -4220,7 +4192,7 @@ to get rid of irrelevant descriptors. */ void -close_process_descs () +close_process_descs (void) { #ifndef WINDOWSNT int i; @@ -4313,9 +4285,7 @@ static int connect_counter = 0; static void -server_accept_connection (server, channel) - Lisp_Object server; - int channel; +server_accept_connection (Lisp_Object server, int channel) { Lisp_Object proc, caller, name, buffer; Lisp_Object contact, host, service; @@ -4531,8 +4501,7 @@ static int waiting_for_user_input_p; static Lisp_Object -wait_reading_process_output_unwind (data) - Lisp_Object data; +wait_reading_process_output_unwind (Lisp_Object data) { waiting_for_user_input_p = XINT (data); return Qnil; @@ -4540,7 +4509,7 @@ /* This is here so breakpoints can be put on it. */ static void -wait_reading_process_output_1 () +wait_reading_process_output_1 (void) { } @@ -4553,10 +4522,7 @@ #ifndef select static INLINE int -select_wrapper (n, rfd, wfd, xfd, tmo) - int n; - SELECT_TYPE *rfd, *wfd, *xfd; - EMACS_TIME *tmo; +select_wrapper (int n, fd_set *rfd, fd_set *wfd, fd_set *xfd, struct timeval *tmo) { return select (n, rfd, wfd, xfd, tmo); } @@ -5261,15 +5227,13 @@ /* Given a list (FUNCTION ARGS...), apply FUNCTION to the ARGS. */ static Lisp_Object -read_process_output_call (fun_and_args) - Lisp_Object fun_and_args; +read_process_output_call (Lisp_Object fun_and_args) { return apply1 (XCAR (fun_and_args), XCDR (fun_and_args)); } static Lisp_Object -read_process_output_error_handler (error) - Lisp_Object error; +read_process_output_error_handler (Lisp_Object error) { cmd_error_internal (error, "error in process filter: "); Vinhibit_quit = Qt; @@ -5290,9 +5254,7 @@ for decoding. */ static int -read_process_output (proc, channel) - Lisp_Object proc; - register int channel; +read_process_output (Lisp_Object proc, register int channel) { register int nbytes; char *chars; @@ -5618,7 +5580,7 @@ Lisp_Object process_sent_to; SIGTYPE -send_process_trap () +send_process_trap (int ignore) { SIGNAL_THREAD_CHECK (SIGPIPE); sigunblock (sigmask (SIGPIPE)); @@ -5636,18 +5598,15 @@ This function can evaluate Lisp code and can garbage collect. */ static void -send_process (proc, buf, len, object) - volatile Lisp_Object proc; - unsigned char *volatile buf; - volatile int len; - volatile Lisp_Object object; +send_process (volatile Lisp_Object proc, unsigned char *volatile buf, + volatile int len, volatile Lisp_Object object) { /* Use volatile to protect variables from being clobbered by longjmp. */ struct Lisp_Process *p = XPROCESS (proc); int rv; struct coding_system *coding; struct gcpro gcpro1; - SIGTYPE (*volatile old_sigpipe) (); + SIGTYPE (*volatile old_sigpipe) (int); GCPRO1 (object); @@ -5760,7 +5719,7 @@ while (this > 0) { int outfd = p->outfd; - old_sigpipe = (SIGTYPE (*) ()) signal (SIGPIPE, send_process_trap); + old_sigpipe = (SIGTYPE (*) (int)) signal (SIGPIPE, send_process_trap); #ifdef DATAGRAM_SOCKETS if (DATAGRAM_CHAN_P (outfd)) { @@ -5927,8 +5886,7 @@ /* Return the foreground process group for the tty/pty that the process P uses. */ static int -emacs_get_tty_pgrp (p) - struct Lisp_Process *p; +emacs_get_tty_pgrp (struct Lisp_Process *p) { int gid = -1; @@ -5997,11 +5955,8 @@ their uid, for which killpg would return an EPERM error. */ static void -process_send_signal (process, signo, current_group, nomsg) - Lisp_Object process; - int signo; - Lisp_Object current_group; - int nomsg; +process_send_signal (Lisp_Object process, int signo, Lisp_Object current_group, + int nomsg) { Lisp_Object proc; register struct Lisp_Process *p; @@ -6570,8 +6525,7 @@ If `buffer' is nil, kill all processes */ void -kill_buffer_processes (buffer) - Lisp_Object buffer; +kill_buffer_processes (Lisp_Object buffer) { Lisp_Object tail, proc; @@ -6616,8 +6570,7 @@ #ifdef SIGCHLD SIGTYPE -sigchld_handler (signo) - int signo; +sigchld_handler (int signo) { int old_errno = errno; Lisp_Object proc; @@ -6758,16 +6711,14 @@ static Lisp_Object -exec_sentinel_unwind (data) - Lisp_Object data; +exec_sentinel_unwind (Lisp_Object data) { XPROCESS (XCAR (data))->sentinel = XCDR (data); return Qnil; } static Lisp_Object -exec_sentinel_error_handler (error) - Lisp_Object error; +exec_sentinel_error_handler (Lisp_Object error) { cmd_error_internal (error, "error in process sentinel: "); Vinhibit_quit = Qt; @@ -6777,8 +6728,7 @@ } static void -exec_sentinel (proc, reason) - Lisp_Object proc, reason; +exec_sentinel (Lisp_Object proc, Lisp_Object reason) { Lisp_Object sentinel, obuffer, odeactivate, okeymap; register struct Lisp_Process *p = XPROCESS (proc); @@ -6863,8 +6813,7 @@ but can be done at other times. */ static void -status_notify (deleting_process) - struct Lisp_Process *deleting_process; +status_notify (struct Lisp_Process *deleting_process) { register Lisp_Object proc, buffer; Lisp_Object tail, msg; @@ -7064,8 +7013,7 @@ /* Add DESC to the set of keyboard input descriptors. */ void -add_keyboard_wait_descriptor (desc) - int desc; +add_keyboard_wait_descriptor (int desc) { FD_SET (desc, &input_wait_mask); FD_SET (desc, &non_process_wait_mask); @@ -7076,8 +7024,7 @@ static int add_gpm_wait_descriptor_called_flag; void -add_gpm_wait_descriptor (desc) - int desc; +add_gpm_wait_descriptor (int desc) { if (! add_gpm_wait_descriptor_called_flag) FD_CLR (0, &input_wait_mask); @@ -7091,8 +7038,7 @@ /* From now on, do not expect DESC to give keyboard input. */ void -delete_keyboard_wait_descriptor (desc) - int desc; +delete_keyboard_wait_descriptor (int desc) { int fd; int lim = max_keyboard_desc; @@ -7109,8 +7055,7 @@ } void -delete_gpm_wait_descriptor (desc) - int desc; +delete_gpm_wait_descriptor (int desc) { int fd; int lim = max_gpm_desc; @@ -7130,8 +7075,7 @@ that corresponds to one of the keyboard input descriptors. */ static int -keyboard_bit_set (mask) - SELECT_TYPE *mask; +keyboard_bit_set (fd_set *mask) { int fd; @@ -7215,7 +7159,7 @@ } void -init_process () +init_process (void) { register int i; @@ -7318,7 +7262,7 @@ } void -syms_of_process () +syms_of_process (void) { Qprocessp = intern_c_string ("processp"); staticpro (&Qprocessp);
--- a/src/scroll.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/scroll.c Mon Jul 05 22:49:04 2010 +0000 @@ -86,17 +86,12 @@ new contents appears. */ static void -calculate_scrolling (frame, matrix, window_size, lines_below, - draw_cost, old_hash, new_hash, - free_at_end) - FRAME_PTR frame; - /* matrix is of size window_size + 1 on each side. */ - struct matrix_elt *matrix; - int window_size, lines_below; - int *draw_cost; - int *old_hash; - int *new_hash; - int free_at_end; +calculate_scrolling (FRAME_PTR frame, + /* matrix is of size window_size + 1 on each side. */ + struct matrix_elt *matrix, + int window_size, int lines_below, + int *draw_cost, int *old_hash, int *new_hash, + int free_at_end) { register int i, j; int frame_lines = FRAME_LINES (frame); @@ -424,18 +419,13 @@ is the equivalent of draw_cost for the old line contents */ static void -calculate_direct_scrolling (frame, matrix, window_size, lines_below, - draw_cost, old_draw_cost, old_hash, new_hash, - free_at_end) - FRAME_PTR frame; - /* matrix is of size window_size + 1 on each side. */ - struct matrix_elt *matrix; - int window_size, lines_below; - int *draw_cost; - int *old_draw_cost; - int *old_hash; - int *new_hash; - int free_at_end; +calculate_direct_scrolling (FRAME_PTR frame, + /* matrix is of size window_size + 1 on each side. */ + struct matrix_elt *matrix, + int window_size, int lines_below, + int *draw_cost, int *old_draw_cost, + int *old_hash, int *new_hash, + int free_at_end) { register int i, j; int frame_lines = FRAME_LINES (frame); @@ -956,15 +946,11 @@ } static void -ins_del_costs (frame, - one_line_string, multi_string, - setup_string, cleanup_string, - costvec, ncostvec, coefficient) - FRAME_PTR frame; - char *one_line_string, *multi_string; - char *setup_string, *cleanup_string; - int *costvec, *ncostvec; - int coefficient; +ins_del_costs (FRAME_PTR frame, + char *one_line_string, char *multi_string, + char *setup_string, char *cleanup_string, + int *costvec, int *ncostvec, + int coefficient) { if (multi_string) line_ins_del (frame,
--- a/src/syntax.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/syntax.c Mon Jul 05 22:49:04 2010 +0000 @@ -1331,7 +1331,7 @@ return val == orig_val ? Qt : Qnil; } -Lisp_Object skip_chars (); +Lisp_Object skip_chars (int, Lisp_Object, Lisp_Object, int); DEFUN ("skip-chars-forward", Fskip_chars_forward, Sskip_chars_forward, 1, 2, 0, doc: /* Move point forward, stopping before a char not in STRING, or at pos LIM. @@ -2093,12 +2093,10 @@ remains valid for forward search starting at the returned position. */ static int -forw_comment (from, from_byte, stop, nesting, style, prev_syntax, - charpos_ptr, bytepos_ptr, incomment_ptr) - EMACS_INT from, from_byte, stop; - int nesting, style, prev_syntax; - EMACS_INT *charpos_ptr, *bytepos_ptr; - int *incomment_ptr; +forw_comment (EMACS_INT from, EMACS_INT from_byte, EMACS_INT stop, + int nesting, int style, int prev_syntax, + EMACS_INT *charpos_ptr, EMACS_INT *bytepos_ptr, + int *incomment_ptr) { register int c, c1; register enum syntaxcode code;
--- a/src/term.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/term.c Mon Jul 05 22:49:04 2010 +0000 @@ -181,7 +181,7 @@ char *tparam (); -extern char *tgetstr (); +extern char *tgetstr (char *, char **); #ifdef HAVE_GPM @@ -558,10 +558,7 @@ sequence, and return a pointer to that byte sequence. */ unsigned char * -encode_terminal_code (src, src_len, coding) - struct glyph *src; - int src_len; - struct coding_system *coding; +encode_terminal_code (struct glyph *src, int src_len, struct coding_system *coding) { struct glyph *src_end = src + src_len; unsigned char *buf; @@ -836,10 +833,8 @@ #ifdef HAVE_GPM /* Only used by GPM code. */ static void -tty_write_glyphs_with_face (f, string, len, face_id) - register struct frame *f; - register struct glyph *string; - register int len, face_id; +tty_write_glyphs_with_face (register struct frame *f, register struct glyph *string, + register int len, register int face_id) { unsigned char *conversion_buffer; struct coding_system *coding; @@ -1366,16 +1361,14 @@ static char **term_get_fkeys_address; static KBOARD *term_get_fkeys_kboard; -static Lisp_Object term_get_fkeys_1 (); +static Lisp_Object term_get_fkeys_1 (void); /* Find the escape codes sent by the function keys for Vinput_decode_map. This function scans the termcap function key sequence entries, and adds entries to Vinput_decode_map for each function key it finds. */ static void -term_get_fkeys (address, kboard) - char **address; - KBOARD *kboard; +term_get_fkeys (char **address, KBOARD *kboard) { /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp errors during the call. The only errors should be from Fdefine_key @@ -1392,7 +1385,7 @@ } static Lisp_Object -term_get_fkeys_1 () +term_get_fkeys_1 (void) { int i; @@ -1529,8 +1522,7 @@ IT->pixel_width > 1. */ static void -append_glyph (it) - struct it *it; +append_glyph (struct it *it) { struct glyph *glyph, *end; int i; @@ -1609,8 +1601,7 @@ instead they use the macro PRODUCE_GLYPHS. */ void -produce_glyphs (it) - struct it *it; +produce_glyphs (struct it *it) { /* If a hook is installed, let it do the work. */ @@ -1728,8 +1719,7 @@ to reach HPOS, a value in canonical character units. */ static void -produce_stretch_glyph (it) - struct it *it; +produce_stretch_glyph (struct it *it) { /* (space :width WIDTH ...) */ Lisp_Object prop, plist; @@ -1798,8 +1788,7 @@ face. */ static void -append_composite_glyph (it) - struct it *it; +append_composite_glyph (struct it *it) { struct glyph *glyph; @@ -1863,8 +1852,7 @@ correctly. */ static void -produce_composite_glyph (it) - struct it *it; +produce_composite_glyph (struct it *it) { int c; @@ -1894,9 +1882,7 @@ face_id, c, len of IT are left untouched. */ void -produce_special_glyphs (it, what) - struct it *it; - enum display_element_type what; +produce_special_glyphs (struct it *it, enum display_element_type what) { struct it temp_it; Lisp_Object gc; @@ -1970,9 +1956,7 @@ FACE_ID is a realized face ID number, in the face cache. */ static void -turn_on_face (f, face_id) - struct frame *f; - int face_id; +turn_on_face (struct frame *f, int face_id) { struct face *face = FACE_FROM_ID (f, face_id); long fg = face->foreground; @@ -2069,9 +2053,7 @@ /* Turn off appearances of face FACE_ID on tty frame F. */ static void -turn_off_face (f, face_id) - struct frame *f; - int face_id; +turn_off_face (struct frame *f, int face_id) { struct face *face = FACE_FROM_ID (f, face_id); struct tty_display_info *tty = FRAME_TTY (f); @@ -2124,10 +2106,8 @@ colors FG and BG. */ int -tty_capable_p (tty, caps, fg, bg) - struct tty_display_info *tty; - unsigned caps; - unsigned long fg, bg; +tty_capable_p (struct tty_display_info *tty, unsigned int caps, + unsigned long fg, unsigned long bg) { #define TTY_CAPABLE_P_TRY(tty, cap, TS, NC_bit) \ if ((caps & (cap)) && (!(TS) || !MAY_USE_WITH_COLORS_P(tty, NC_bit))) \ @@ -2267,9 +2247,7 @@ } void -set_tty_color_mode (tty, f) - struct tty_display_info *tty; - struct frame *f; +set_tty_color_mode (struct tty_display_info *tty, struct frame *f) { Lisp_Object tem, val; Lisp_Object color_mode; @@ -2333,8 +2311,7 @@ Returns NULL if the named terminal device is not opened. */ struct terminal * -get_named_tty (name) - char *name; +get_named_tty (char *name) { struct terminal *t; @@ -2664,7 +2641,7 @@ } static void -term_clear_mouse_face () +term_clear_mouse_face (void) { if (!NILP (mouse_face_window)) term_show_mouse_face (DRAW_NORMAL_TEXT); @@ -4072,7 +4049,7 @@ void -syms_of_term () +syms_of_term (void) { DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo, doc: /* Non-nil means the system uses terminfo rather than termcap.
--- a/src/vm-limit.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/vm-limit.c Mon Jul 05 22:49:04 2010 +0000 @@ -42,7 +42,7 @@ /* Function to call to issue a warning; 0 means don't issue them. */ -static void (*warn_function) (); +static void (*warn_function) (char *); /* Start of data space; can be changed by calling malloc_init. */ static POINTER data_space_start; @@ -53,7 +53,7 @@ #if defined (HAVE_GETRLIMIT) && defined (RLIMIT_AS) static void -get_lim_data () +get_lim_data (void) { struct rlimit rlimit; @@ -170,7 +170,7 @@ /* Verify amount of memory available, complaining if we're near the end. */ static void -check_memory_limits () +check_memory_limits (void) { #ifdef REL_ALLOC extern POINTER (*real_morecore) (); @@ -249,11 +249,9 @@ WARNFUN specifies the function to call to issue a warning. */ void -memory_warnings (start, warnfun) - POINTER start; - void (*warnfun) (); +memory_warnings (POINTER start, void (*warnfun) (char *)) { - extern void (* __after_morecore_hook) (); /* From gmalloc.c */ + extern void (* __after_morecore_hook) (void); /* From gmalloc.c */ if (start) data_space_start = start;
--- a/src/window.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/window.c Mon Jul 05 22:49:04 2010 +0000 @@ -3009,11 +3009,8 @@ a specific window, it will attempt to strictly resize that window proportionally, even at the expense of deleting smaller windows. */ static int * -shrink_windows (total, size, nchildren, shrinkable, resize_fixed_p, - forward, width_p, safe_p) - int total, size, nchildren, shrinkable; - int resize_fixed_p, width_p, safe_p; - Lisp_Object forward; +shrink_windows (int total, int size, int nchildren, int shrinkable, + int resize_fixed_p, Lisp_Object forward, int width_p, int safe_p) { int available_resize = 0; int *new_sizes, *min_sizes;
--- a/src/xdisp.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xdisp.c Mon Jul 05 22:49:04 2010 +0000 @@ -1011,7 +1011,7 @@ static int echo_area_display (int); static void redisplay_windows (Lisp_Object); static void redisplay_window (Lisp_Object, int); -static Lisp_Object redisplay_window_error (); +static Lisp_Object redisplay_window_error (Lisp_Object); static Lisp_Object redisplay_window_0 (Lisp_Object); static Lisp_Object redisplay_window_1 (Lisp_Object); static int update_menu_bar (struct frame *, int, int); @@ -1109,8 +1109,7 @@ This is the height of W minus the height of a mode line, if any. */ INLINE int -window_text_bottom_y (w) - struct window *w; +window_text_bottom_y (struct window *w) { int height = WINDOW_TOTAL_HEIGHT (w); @@ -1124,9 +1123,7 @@ the left and right of the window. */ INLINE int -window_box_width (w, area) - struct window *w; - int area; +window_box_width (struct window *w, int area) { int cols = XFASTINT (w->total_cols); int pixels = 0; @@ -1165,8 +1162,7 @@ including mode lines of W, if any. */ INLINE int -window_box_height (w) - struct window *w; +window_box_height (struct window *w) { struct frame *f = XFRAME (w->frame); int height = WINDOW_TOTAL_HEIGHT (w); @@ -1213,9 +1209,7 @@ whole window, to the right of the left fringe of W. */ INLINE int -window_box_left_offset (w, area) - struct window *w; - int area; +window_box_left_offset (struct window *w, int area) { int x; @@ -1247,9 +1241,7 @@ whole window, to the left of the right fringe of W. */ INLINE int -window_box_right_offset (w, area) - struct window *w; - int area; +window_box_right_offset (struct window *w, int area) { return window_box_left_offset (w, area) + window_box_width (w, area); } @@ -1259,9 +1251,7 @@ whole window, to the right of the left fringe of W. */ INLINE int -window_box_left (w, area) - struct window *w; - int area; +window_box_left (struct window *w, int area) { struct frame *f = XFRAME (w->frame); int x; @@ -1281,9 +1271,7 @@ whole window, to the left of the right fringe of W. */ INLINE int -window_box_right (w, area) - struct window *w; - int area; +window_box_right (struct window *w, int area) { return window_box_left (w, area) + window_box_width (w, area); } @@ -1296,10 +1284,8 @@ *BOX_WIDTH, and *BOX_HEIGHT the pixel width and height of the box. */ INLINE void -window_box (w, area, box_x, box_y, box_width, box_height) - struct window *w; - int area; - int *box_x, *box_y, *box_width, *box_height; +window_box (struct window *w, int area, int *box_x, int *box_y, + int *box_width, int *box_height) { if (box_width) *box_width = window_box_width (w, area); @@ -1347,8 +1333,7 @@ This can modify IT's settings. */ int -line_bottom_y (it) - struct it *it; +line_bottom_y (struct it *it) { int line_height = it->max_ascent + it->max_descent; int line_top_y = it->current_y; @@ -1390,9 +1375,8 @@ Set *ROWH and *VPOS to row's visible height and VPOS (row number). */ int -pos_visible_p (w, charpos, x, y, rtop, rbot, rowh, vpos) - struct window *w; - int charpos, *x, *y, *rtop, *rbot, *rowh, *vpos; +pos_visible_p (struct window *w, int charpos, int *x, int *y, + int *rtop, int *rbot, int *rowh, int *vpos) { struct it it; struct text_pos top; @@ -1531,9 +1515,7 @@ character. */ static INLINE int -string_char_and_length (str, len) - const unsigned char *str; - int *len; +string_char_and_length (const unsigned char *str, int *len) { int c; @@ -1553,10 +1535,7 @@ in STRING, return the position NCHARS ahead (NCHARS >= 0). */ static struct text_pos -string_pos_nchars_ahead (pos, string, nchars) - struct text_pos pos; - Lisp_Object string; - int nchars; +string_pos_nchars_ahead (struct text_pos pos, Lisp_Object string, int nchars) { xassert (STRINGP (string) && nchars >= 0); @@ -1586,9 +1565,7 @@ for character position CHARPOS in STRING. */ static INLINE struct text_pos -string_pos (charpos, string) - int charpos; - Lisp_Object string; +string_pos (int charpos, Lisp_Object string) { struct text_pos pos; xassert (STRINGP (string)); @@ -1603,10 +1580,7 @@ means recognize multibyte characters. */ static struct text_pos -c_string_pos (charpos, s, multibyte_p) - int charpos; - unsigned char *s; - int multibyte_p; +c_string_pos (int charpos, unsigned char *s, int multibyte_p) { struct text_pos pos; @@ -1638,9 +1612,7 @@ non-zero means recognize multibyte characters. */ static int -number_of_chars (s, multibyte_p) - unsigned char *s; - int multibyte_p; +number_of_chars (unsigned char *s, int multibyte_p) { int nchars; @@ -1667,9 +1639,7 @@ NEWPOS->charpos must be >= POS.charpos. */ static void -compute_string_pos (newpos, pos, string) - struct text_pos *newpos, pos; - Lisp_Object string; +compute_string_pos (struct text_pos *newpos, struct text_pos pos, Lisp_Object string) { xassert (STRINGP (string)); xassert (CHARPOS (*newpos) >= CHARPOS (pos)); @@ -1686,9 +1656,7 @@ frame F. FACE_ID specifies what line's height to estimate. */ int -estimate_mode_line_height (f, face_id) - struct frame *f; - enum face_id face_id; +estimate_mode_line_height (struct frame *f, enum face_id face_id) { #ifdef HAVE_WINDOW_SYSTEM if (FRAME_WINDOW_P (f)) @@ -1722,12 +1690,8 @@ not force the value into range. */ void -pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip) - FRAME_PTR f; - register int pix_x, pix_y; - int *x, *y; - NativeRectangle *bounds; - int noclip; +pixel_to_glyph_coords (FRAME_PTR f, register int pix_x, register int pix_y, + int *x, int *y, NativeRectangle *bounds, int noclip) { #ifdef HAVE_WINDOW_SYSTEM @@ -1776,10 +1740,8 @@ return 0. */ int -glyph_to_pixel_coords (w, hpos, vpos, frame_x, frame_y) - struct window *w; - int hpos, vpos; - int *frame_x, *frame_y; +glyph_to_pixel_coords (struct window *w, int hpos, int vpos, + int *frame_x, int *frame_y) { #ifdef HAVE_WINDOW_SYSTEM if (FRAME_WINDOW_P (XFRAME (WINDOW_FRAME (w)))) @@ -1839,10 +1801,8 @@ static struct glyph * -x_y_to_hpos_vpos (w, x, y, hpos, vpos, dx, dy, area) - struct window *w; - int x, y; - int *hpos, *vpos, *dx, *dy, *area; +x_y_to_hpos_vpos (struct window *w, int x, int y, int *hpos, int *vpos, + int *dx, int *dy, int *area) { struct glyph *glyph, *end; struct glyph_row *row = NULL; @@ -1919,9 +1879,7 @@ Takes pseudo-windows into account. */ void -frame_to_window_pixel_xy (w, x, y) - struct window *w; - int *x, *y; +frame_to_window_pixel_xy (struct window *w, int *x, int *y) { if (w->pseudo_window_p) { @@ -1943,10 +1901,7 @@ Return the number of stored rectangles. */ int -get_glyph_string_clip_rects (s, rects, n) - struct glyph_string *s; - NativeRectangle *rects; - int n; +get_glyph_string_clip_rects (struct glyph_string *s, NativeRectangle *rects, int n) { XRectangle r; @@ -2140,9 +2095,7 @@ Return in *NR the clipping rectangle for glyph string S. */ void -get_glyph_string_clip_rect (s, nr) - struct glyph_string *s; - NativeRectangle *nr; +get_glyph_string_clip_rect (struct glyph_string *s, NativeRectangle *nr) { get_glyph_string_clip_rects (s, nr, 1); } @@ -2154,11 +2107,8 @@ */ void -get_phys_cursor_geometry (w, row, glyph, xp, yp, heightp) - struct window *w; - struct glyph_row *row; - struct glyph *glyph; - int *xp, *yp, *heightp; +get_phys_cursor_geometry (struct window *w, struct glyph_row *row, + struct glyph *glyph, int *xp, int *yp, int *heightp) { struct frame *f = XFRAME (WINDOW_FRAME (w)); int x, y, wd, h, h0, y0; @@ -2218,10 +2168,7 @@ */ void -remember_mouse_glyph (f, gx, gy, rect) - struct frame *f; - int gx, gy; - NativeRectangle *rect; +remember_mouse_glyph (struct frame *f, int gx, int gy, NativeRectangle *rect) { Lisp_Object window; struct window *w; @@ -2417,8 +2364,7 @@ /* Error handler for safe_eval and safe_call. */ static Lisp_Object -safe_eval_handler (arg) - Lisp_Object arg; +safe_eval_handler (Lisp_Object arg) { add_to_log ("Error during redisplay: %s", arg, Qnil); return Qnil; @@ -2433,9 +2379,7 @@ redisplay during the evaluation. */ Lisp_Object -safe_call (nargs, args) - int nargs; - Lisp_Object *args; +safe_call (int nargs, Lisp_Object *args) { Lisp_Object val; @@ -2465,8 +2409,7 @@ Return the result, or nil if something went wrong. */ Lisp_Object -safe_call1 (fn, arg) - Lisp_Object fn, arg; +safe_call1 (Lisp_Object fn, Lisp_Object arg) { Lisp_Object args[2]; args[0] = fn; @@ -2595,12 +2538,9 @@ the desired matrix of W. */ void -init_iterator (it, w, charpos, bytepos, row, base_face_id) - struct it *it; - struct window *w; - EMACS_INT charpos, bytepos; - struct glyph_row *row; - enum face_id base_face_id; +init_iterator (struct it *it, struct window *w, + EMACS_INT charpos, EMACS_INT bytepos, + struct glyph_row *row, enum face_id base_face_id) { int highlight_region_p; enum face_id remapped_base_face_id = base_face_id; @@ -2896,10 +2836,7 @@ /* Initialize IT for the display of window W with window start POS. */ void -start_display (it, w, pos) - struct it *it; - struct window *w; - struct text_pos pos; +start_display (struct it *it, struct window *w, struct text_pos pos) { struct glyph_row *row; int first_vpos = WINDOW_WANTS_HEADER_LINE_P (w) ? 1 : 0; @@ -2971,9 +2908,7 @@ text. W is the window we display, for text property lookup. */ static int -in_ellipses_for_invisible_text_p (pos, w) - struct display_pos *pos; - struct window *w; +in_ellipses_for_invisible_text_p (struct display_pos *pos, struct window *w) { Lisp_Object prop, window; int ellipses_p = 0; @@ -3007,10 +2942,7 @@ is zero if there are overlay strings with newlines at POS. */ static int -init_from_display_pos (it, w, pos) - struct it *it; - struct window *w; - struct display_pos *pos; +init_from_display_pos (struct it *it, struct window *w, struct display_pos *pos) { EMACS_INT charpos = CHARPOS (pos->pos), bytepos = BYTEPOS (pos->pos); int i, overlay_strings_with_newlines = 0; @@ -3118,10 +3050,7 @@ starting at ROW->start. */ static void -init_to_row_start (it, w, row) - struct it *it; - struct window *w; - struct glyph_row *row; +init_to_row_start (struct it *it, struct window *w, struct glyph_row *row) { init_from_display_pos (it, w, &row->start); it->start = row->start; @@ -3136,10 +3065,7 @@ end position. */ static int -init_to_row_end (it, w, row) - struct it *it; - struct window *w; - struct glyph_row *row; +init_to_row_end (struct it *it, struct window *w, struct glyph_row *row) { int success = 0; @@ -3167,8 +3093,7 @@ to stop. */ static void -handle_stop (it) - struct it *it; +handle_stop (struct it *it) { enum prop_handled handled; int handle_overlay_change_p; @@ -3261,8 +3186,7 @@ information for IT's current position. */ static void -compute_stop_pos (it) - struct it *it; +compute_stop_pos (struct it *it) { register INTERVAL iv, next_iv; Lisp_Object object, limit, position; @@ -3371,8 +3295,7 @@ xmalloc. */ static EMACS_INT -next_overlay_change (pos) - EMACS_INT pos; +next_overlay_change (EMACS_INT pos) { int noverlays; EMACS_INT endpos; @@ -3408,8 +3331,7 @@ regions of text. */ static enum prop_handled -handle_fontified_prop (it) - struct it *it; +handle_fontified_prop (struct it *it) { Lisp_Object prop, pos; enum prop_handled handled = HANDLED_NORMALLY; @@ -3496,8 +3418,7 @@ Called from handle_stop. */ static enum prop_handled -handle_face_prop (it) - struct it *it; +handle_face_prop (struct it *it) { int new_face_id; EMACS_INT next_stop; @@ -3635,8 +3556,7 @@ Otherwise, use the iterator's base_face_id. */ static int -underlying_face_id (it) - struct it *it; +underlying_face_id (struct it *it) { int face_id = it->base_face_id, i; @@ -3655,9 +3575,7 @@ position. Value is the id of the face. */ static int -face_before_or_after_it_pos (it, before_p) - struct it *it; - int before_p; +face_before_or_after_it_pos (struct it *it, int before_p) { int face_id, limit; EMACS_INT next_check_charpos; @@ -3771,8 +3689,7 @@ position. Called from handle_stop. */ static enum prop_handled -handle_invisible_prop (it) - struct it *it; +handle_invisible_prop (struct it *it) { enum prop_handled handled = HANDLED_NORMALLY; @@ -3985,9 +3902,7 @@ Replaces LEN characters from buffer. */ static void -setup_for_ellipsis (it, len) - struct it *it; - int len; +setup_for_ellipsis (struct it *it, int len) { /* Use the display table definition for `...'. Invalid glyphs will be handled by the method returning elements from dpvec. */ @@ -4031,8 +3946,7 @@ Otherwise we return HANDLED_NORMALLY. */ static enum prop_handled -handle_display_prop (it) - struct it *it; +handle_display_prop (struct it *it) { Lisp_Object prop, object, overlay; struct text_pos *position; @@ -4129,10 +4043,7 @@ at START_POS in OBJECT. */ static struct text_pos -display_prop_end (it, object, start_pos) - struct it *it; - Lisp_Object object; - struct text_pos start_pos; +display_prop_end (struct it *it, Lisp_Object object, struct text_pos start_pos) { Lisp_Object end; struct text_pos end_pos; @@ -4539,8 +4450,7 @@ treated as intangible. */ static int -single_display_spec_intangible_p (prop) - Lisp_Object prop; +single_display_spec_intangible_p (Lisp_Object prop) { /* Skip over `when FORM'. */ if (CONSP (prop) && EQ (XCAR (prop), Qwhen)) @@ -4582,8 +4492,7 @@ treated as intangible. */ int -display_prop_intangible_p (prop) - Lisp_Object prop; +display_prop_intangible_p (Lisp_Object prop) { if (CONSP (prop) && CONSP (XCAR (prop)) @@ -4615,8 +4524,7 @@ /* Return 1 if PROP is a display sub-property value containing STRING. */ static int -single_display_spec_string_p (prop, string) - Lisp_Object prop, string; +single_display_spec_string_p (Lisp_Object prop, Lisp_Object string) { if (EQ (string, prop)) return 1; @@ -4650,8 +4558,7 @@ /* Return 1 if STRING appears in the `display' property PROP. */ static int -display_prop_string_p (prop, string) - Lisp_Object prop, string; +display_prop_string_p (Lisp_Object prop, Lisp_Object string) { if (CONSP (prop) && CONSP (XCAR (prop)) @@ -4692,11 +4599,8 @@ called asynchronously from note_mouse_highlight. */ static EMACS_INT -string_buffer_position_lim (w, string, from, to, back_p) - struct window *w; - Lisp_Object string; - EMACS_INT from, to; - int back_p; +string_buffer_position_lim (struct window *w, Lisp_Object string, + EMACS_INT from, EMACS_INT to, int back_p) { Lisp_Object limit, prop, pos; int found = 0; @@ -4745,10 +4649,7 @@ called asynchronously from note_mouse_highlight. */ EMACS_INT -string_buffer_position (w, string, around_charpos) - struct window *w; - Lisp_Object string; - EMACS_INT around_charpos; +string_buffer_position (struct window *w, Lisp_Object string, EMACS_INT around_charpos) { Lisp_Object limit, prop, pos; const int MAX_DISTANCE = 1000; @@ -4772,8 +4673,7 @@ position. Called from handle_stop. */ static enum prop_handled -handle_composition_prop (it) - struct it *it; +handle_composition_prop (struct it *it) { Lisp_Object prop, string; EMACS_INT pos, pos_byte, start, end; @@ -4846,8 +4746,7 @@ Called from handle_stop. */ static enum prop_handled -handle_overlay_change (it) - struct it *it; +handle_overlay_change (struct it *it) { if (!STRINGP (it->string) && get_overlay_strings (it, 0)) return HANDLED_RECOMPUTE_PROPS; @@ -4864,8 +4763,7 @@ Otherwise IT->string is set to nil. */ static void -next_overlay_string (it) - struct it *it; +next_overlay_string (struct it *it) { ++it->current.overlay_string_index; if (it->current.overlay_string_index == it->n_overlay_strings) @@ -4933,8 +4831,7 @@ static int -compare_overlay_entries (e1, e2) - void *e1, *e2; +compare_overlay_entries (const void *e1, const void *e2) { struct overlay_entry *entry1 = (struct overlay_entry *) e1; struct overlay_entry *entry2 = (struct overlay_entry *) e2; @@ -4985,9 +4882,7 @@ compare_overlay_entries. */ static void -load_overlay_strings (it, charpos) - struct it *it; - int charpos; +load_overlay_strings (struct it *it, int charpos) { extern Lisp_Object Qwindow, Qpriority; Lisp_Object overlay, window, str, invisible; @@ -5138,10 +5033,7 @@ least one overlay string was found. */ static int -get_overlay_strings_1 (it, charpos, compute_stop_p) - struct it *it; - int charpos; - int compute_stop_p; +get_overlay_strings_1 (struct it *it, int charpos, int compute_stop_p) { /* Get the first OVERLAY_STRING_CHUNK_SIZE overlay strings to process. This fills IT->overlay_strings with strings, and sets @@ -5192,9 +5084,7 @@ } static int -get_overlay_strings (it, charpos) - struct it *it; - int charpos; +get_overlay_strings (struct it *it, int charpos) { it->string = Qnil; it->method = GET_FROM_BUFFER; @@ -5219,8 +5109,7 @@ processed. */ static void -push_it (it) - struct it *it; +push_it (struct it *it) { struct iterator_stack_entry *p; @@ -5264,8 +5153,7 @@ } static void -iterate_out_of_display_property (it) - struct it *it; +iterate_out_of_display_property (struct it *it) { /* Maybe initialize paragraph direction. If we are at the beginning of a new paragraph, next_element_from_buffer may not have a @@ -5298,8 +5186,7 @@ elements from an overlay string, or from a buffer. */ static void -pop_it (it) - struct it *it; +pop_it (struct it *it) { struct iterator_stack_entry *p; @@ -5378,8 +5265,7 @@ /* Set IT's current position to the previous line start. */ static void -back_to_previous_line_start (it) - struct it *it; +back_to_previous_line_start (struct it *it) { IT_CHARPOS (*it) = find_next_newline_no_quit (IT_CHARPOS (*it) - 1, -1); IT_BYTEPOS (*it) = CHAR_TO_BYTE (IT_CHARPOS (*it)); @@ -5405,9 +5291,7 @@ leads to wrong cursor motion. */ static int -forward_to_next_line_start (it, skipped_p) - struct it *it; - int *skipped_p; +forward_to_next_line_start (struct it *it, int *skipped_p) { int old_selective, newline_found_p, n; const int MAX_NEWLINE_DISTANCE = 500; @@ -5488,8 +5372,7 @@ IT->hpos. */ static void -back_to_previous_visible_line_start (it) - struct it *it; +back_to_previous_visible_line_start (struct it *it) { while (IT_CHARPOS (*it) > BEGV) { @@ -5569,8 +5452,7 @@ face information etc. */ void -reseat_at_previous_visible_line_start (it) - struct it *it; +reseat_at_previous_visible_line_start (struct it *it) { back_to_previous_visible_line_start (it); reseat (it, it->current.pos, 1); @@ -5586,9 +5468,7 @@ is invisible because of text properties. */ static void -reseat_at_next_visible_line_start (it, on_newline_p) - struct it *it; - int on_newline_p; +reseat_at_next_visible_line_start (struct it *it, int on_newline_p) { int newline_found_p, skipped_p = 0; @@ -5642,10 +5522,7 @@ IT->check_charpos of a property. */ static void -reseat (it, pos, force_p) - struct it *it; - struct text_pos pos; - int force_p; +reseat (struct it *it, struct text_pos pos, int force_p) { int original_pos = IT_CHARPOS (*it); @@ -5689,10 +5566,7 @@ IT->stop_pos to POS, also. */ static void -reseat_1 (it, pos, set_stop_p) - struct it *it; - struct text_pos pos; - int set_stop_p; +reseat_1 (struct it *it, struct text_pos pos, int set_stop_p) { /* Don't call this function when scanning a C string. */ xassert (it->s == NULL); @@ -5746,12 +5620,8 @@ calling this function. */ static void -reseat_to_string (it, s, string, charpos, precision, field_width, multibyte) - struct it *it; - unsigned char *s; - Lisp_Object string; - int charpos; - int precision, field_width, multibyte; +reseat_to_string (struct it *it, unsigned char *s, Lisp_Object string, + int charpos, int precision, int field_width, int multibyte) { /* No region in strings. */ it->region_beg_charpos = it->region_end_charpos = -1; @@ -5873,8 +5743,7 @@ static int last_escape_glyph_merged_face_id = 0; int -get_next_display_element (it) - struct it *it; +get_next_display_element (struct it *it) { /* Non-zero means that we found a display element. Zero means that we hit the end of what we iterate over. Performance note: the @@ -6266,9 +6135,7 @@ decrement position function which would not be easy to write. */ void -set_iterator_to_next (it, reseat_p) - struct it *it; - int reseat_p; +set_iterator_to_next (struct it *it, int reseat_p) { /* Reset flags indicating start and end of a sequence of characters with box. Reset them at the start of this function because @@ -6533,8 +6400,7 @@ is restored into IT->face_id in set_iterator_to_next. */ static int -next_element_from_display_vector (it) - struct it *it; +next_element_from_display_vector (struct it *it) { Lisp_Object gc; @@ -6583,8 +6449,7 @@ overlay string. */ static int -next_element_from_string (it) - struct it *it; +next_element_from_string (struct it *it) { struct text_pos position; @@ -6685,8 +6550,7 @@ reached, including padding spaces. */ static int -next_element_from_c_string (it) - struct it *it; +next_element_from_c_string (struct it *it) { int success_p = 1; @@ -6731,8 +6595,7 @@ ellipsis if an ellipsis is to be displayed. */ static int -next_element_from_ellipsis (it) - struct it *it; +next_element_from_ellipsis (struct it *it) { if (it->selective_display_ellipsis_p) setup_for_ellipsis (it, it->len); @@ -6759,8 +6622,7 @@ static int -next_element_from_image (it) - struct it *it; +next_element_from_image (struct it *it) { it->what = IT_IMAGE; return 1; @@ -6772,8 +6634,7 @@ always 1. */ static int -next_element_from_stretch (it) - struct it *it; +next_element_from_stretch (struct it *it) { it->what = IT_STRETCH; return 1; @@ -6788,9 +6649,7 @@ position. */ static void -handle_stop_backwards (it, charpos) - struct it *it; - EMACS_INT charpos; +handle_stop_backwards (struct it *it, EMACS_INT charpos) { EMACS_INT where_we_are = IT_CHARPOS (*it); struct display_pos save_current = it->current; @@ -6828,8 +6687,7 @@ end. */ static int -next_element_from_buffer (it) - struct it *it; +next_element_from_buffer (struct it *it) { int success_p = 1; @@ -7038,8 +6896,7 @@ /* Run the redisplay end trigger hook for IT. */ static void -run_redisplay_end_trigger_hook (it) - struct it *it; +run_redisplay_end_trigger_hook (struct it *it) { Lisp_Object args[3]; @@ -7069,8 +6926,7 @@ next_element_from_string when necessary. */ static int -next_element_from_composition (it) - struct it *it; +next_element_from_composition (struct it *it) { it->what = IT_COMPOSITION; it->len = it->cmp_it.nbytes; @@ -7593,10 +7449,7 @@ TO_CHARPOS. */ void -move_it_to (it, to_charpos, to_x, to_y, to_vpos, op) - struct it *it; - int to_charpos, to_x, to_y, to_vpos; - int op; +move_it_to (struct it *it, int to_charpos, int to_x, int to_y, int to_vpos, int op) { enum move_it_result skip, skip2 = MOVE_X_REACHED; int line_height, line_start_x = 0, reached = 0; @@ -7847,9 +7700,7 @@ set to the top of the line moved to. */ void -move_it_vertically_backward (it, dy) - struct it *it; - int dy; +move_it_vertically_backward (struct it *it, int dy) { int nlines, h; struct it it2, it3; @@ -7968,9 +7819,7 @@ end, IT will be on the start of a screen line. */ void -move_it_vertically (it, dy) - struct it *it; - int dy; +move_it_vertically (struct it *it, int dy) { if (dy <= 0) move_it_vertically_backward (it, -dy); @@ -7994,8 +7843,7 @@ /* Move iterator IT past the end of the text line it is in. */ void -move_it_past_eol (it) - struct it *it; +move_it_past_eol (struct it *it) { enum move_it_result rc; @@ -8015,9 +7863,7 @@ truncate-lines nil. */ void -move_it_by_lines (it, dvpos, need_y_p) - struct it *it; - int dvpos, need_y_p; +move_it_by_lines (struct it *it, int dvpos, int need_y_p) { struct position pos; @@ -8111,8 +7957,7 @@ /* Return 1 if IT points into the middle of a display vector. */ int -in_display_vector_p (it) - struct it *it; +in_display_vector_p (struct it *it) { return (it->method == GET_FROM_DISPLAY_VECTOR && it->current.dpvec_index > 0 @@ -8129,9 +7974,7 @@ to *Messages*. */ void -add_to_log (format, arg1, arg2) - char *format; - Lisp_Object arg1, arg2; +add_to_log (char *format, Lisp_Object arg1, Lisp_Object arg2) { Lisp_Object args[3]; Lisp_Object msg, fmt; @@ -8168,7 +8011,7 @@ /* Output a newline in the *Messages* buffer if "needs" one. */ void -message_log_maybe_newline () +message_log_maybe_newline (void) { if (message_log_need_newline) message_dolog ("", 0, 1, 0); @@ -8185,9 +8028,7 @@ so the buffer M must NOT point to a Lisp string. */ void -message_dolog (m, nbytes, nlflag, multibyte) - const char *m; - int nbytes, nlflag, multibyte; +message_dolog (const char *m, int nbytes, int nlflag, int multibyte) { if (!NILP (Vmemory_full)) return; @@ -8357,9 +8198,8 @@ value N > 1 if we should also append " [N times]". */ static int -message_log_check_duplicate (prev_bol, prev_bol_byte, this_bol, this_bol_byte) - int prev_bol, this_bol; - int prev_bol_byte, this_bol_byte; +message_log_check_duplicate (int prev_bol, int prev_bol_byte, + int this_bol, int this_bol_byte) { int i; int len = Z_BYTE - 1 - this_bol_byte; @@ -8397,10 +8237,7 @@ This may GC, so the buffer M must NOT point to a Lisp string. */ void -message2 (m, nbytes, multibyte) - const char *m; - int nbytes; - int multibyte; +message2 (const char *m, int nbytes, int multibyte) { /* First flush out any partial line written with print. */ message_log_maybe_newline (); @@ -8413,9 +8250,7 @@ /* The non-logging counterpart of message2. */ void -message2_nolog (m, nbytes, multibyte) - const char *m; - int nbytes, multibyte; +message2_nolog (const char *m, int nbytes, int multibyte) { struct frame *sf = SELECTED_FRAME (); message_enable_multibyte = multibyte; @@ -8477,10 +8312,7 @@ This function cancels echoing. */ void -message3 (m, nbytes, multibyte) - Lisp_Object m; - int nbytes; - int multibyte; +message3 (Lisp_Object m, int nbytes, int multibyte) { struct gcpro gcpro1; @@ -8512,9 +8344,7 @@ and make this cancel echoing. */ void -message3_nolog (m, nbytes, multibyte) - Lisp_Object m; - int nbytes, multibyte; +message3_nolog (Lisp_Object m, int nbytes, int multibyte) { struct frame *sf = SELECTED_FRAME (); message_enable_multibyte = multibyte; @@ -8582,8 +8412,7 @@ that was alloca'd. */ void -message1 (m) - char *m; +message1 (char *m) { message2 (m, (m ? strlen (m) : 0), 0); } @@ -8592,8 +8421,7 @@ /* The non-logging counterpart of message1. */ void -message1_nolog (m) - char *m; +message1_nolog (char *m) { message2_nolog (m, (m ? strlen (m) : 0), 0); } @@ -8602,10 +8430,7 @@ which gets replaced with STRING. */ void -message_with_string (m, string, log) - char *m; - Lisp_Object string; - int log; +message_with_string (char *m, Lisp_Object string, int log) { CHECK_STRING (string); @@ -8670,9 +8495,7 @@ /* VARARGS 1 */ void -message (m, a1, a2, a3) - char *m; - EMACS_INT a1, a2, a3; +message (char *m, EMACS_INT a1, EMACS_INT a2, EMACS_INT a3) { if (noninteractive) { @@ -8733,9 +8556,7 @@ /* The non-logging version of message. */ void -message_nolog (m, a1, a2, a3) - char *m; - EMACS_INT a1, a2, a3; +message_nolog (char *m, EMACS_INT a1, EMACS_INT a2, EMACS_INT a3) { Lisp_Object old_log_max; old_log_max = Vmessage_log_max; @@ -8750,7 +8571,7 @@ critical. */ void -update_echo_area () +update_echo_area (void) { if (!NILP (echo_area_buffer[0])) { @@ -8766,7 +8587,7 @@ If they aren't, make new ones. */ static void -ensure_echo_area_buffers () +ensure_echo_area_buffers (void) { int i; @@ -8810,13 +8631,9 @@ Value is what FN returns. */ static int -with_echo_area_buffer (w, which, fn, a1, a2, a3, a4) - struct window *w; - int which; - int (*fn) (EMACS_INT, Lisp_Object, EMACS_INT, EMACS_INT); - EMACS_INT a1; - Lisp_Object a2; - EMACS_INT a3, a4; +with_echo_area_buffer (struct window *w, int which, + int (*fn) (EMACS_INT, Lisp_Object, EMACS_INT, EMACS_INT), + EMACS_INT a1, Lisp_Object a2, EMACS_INT a3, EMACS_INT a4) { Lisp_Object buffer; int this_one, the_other, clear_buffer_p, rc; @@ -8903,8 +8720,7 @@ FN called in with_echo_area_buffer. */ static Lisp_Object -with_echo_area_buffer_unwind_data (w) - struct window *w; +with_echo_area_buffer_unwind_data (struct window *w) { int i = 0; Lisp_Object vector, tmp; @@ -8944,8 +8760,7 @@ with_echo_area_buffer_unwind_data. */ static Lisp_Object -unwind_with_echo_area_buffer (vector) - Lisp_Object vector; +unwind_with_echo_area_buffer (Lisp_Object vector) { set_buffer_internal_1 (XBUFFER (AREF (vector, 0))); Vdeactivate_mark = AREF (vector, 1); @@ -8975,8 +8790,7 @@ non-zero means we will print multibyte. */ void -setup_echo_area_for_printing (multibyte_p) - int multibyte_p; +setup_echo_area_for_printing (int multibyte_p) { /* If we can't find an echo area any more, exit. */ if (! FRAME_LIVE_P (XFRAME (selected_frame))) @@ -9050,8 +8864,7 @@ display the current message. */ static int -display_echo_area (w) - struct window *w; +display_echo_area (struct window *w) { int i, no_message_p, window_height_changed_p, count; @@ -9089,10 +8902,7 @@ Value is non-zero if height of W was changed. */ static int -display_echo_area_1 (a1, a2, a3, a4) - EMACS_INT a1; - Lisp_Object a2; - EMACS_INT a3, a4; +display_echo_area_1 (EMACS_INT a1, Lisp_Object a2, EMACS_INT a3, EMACS_INT a4) { struct window *w = (struct window *) a1; Lisp_Object window; @@ -9121,7 +8931,7 @@ is active, don't shrink it. */ void -resize_echo_area_exactly () +resize_echo_area_exactly (void) { if (BUFFERP (echo_area_buffer[0]) && WINDOWP (echo_area_window)) @@ -9154,10 +8964,7 @@ resize_mini_window returns. */ static int -resize_mini_window_1 (a1, exactly, a3, a4) - EMACS_INT a1; - Lisp_Object exactly; - EMACS_INT a3, a4; +resize_mini_window_1 (EMACS_INT a1, Lisp_Object exactly, EMACS_INT a3, EMACS_INT a4) { return resize_mini_window ((struct window *) a1, !NILP (exactly)); } @@ -9175,9 +8982,7 @@ Value is non-zero if the window height has been changed. */ int -resize_mini_window (w, exact_p) - struct window *w; - int exact_p; +resize_mini_window (struct window *w, int exact_p) { struct frame *f = XFRAME (w->frame); int window_height_changed_p = 0; @@ -9318,7 +9123,7 @@ current message. */ Lisp_Object -current_message () +current_message (void) { Lisp_Object msg; @@ -9337,10 +9142,7 @@ static int -current_message_1 (a1, a2, a3, a4) - EMACS_INT a1; - Lisp_Object a2; - EMACS_INT a3, a4; +current_message_1 (EMACS_INT a1, Lisp_Object a2, EMACS_INT a3, EMACS_INT a4) { Lisp_Object *msg = (Lisp_Object *) a1; @@ -9358,7 +9160,7 @@ worth optimizing. */ int -push_message () +push_message (void) { Lisp_Object msg; msg = current_message (); @@ -9370,7 +9172,7 @@ /* Restore message display from the top of Vmessage_stack. */ void -restore_message () +restore_message (void) { Lisp_Object msg; @@ -9386,8 +9188,7 @@ /* Handler for record_unwind_protect calling pop_message. */ Lisp_Object -pop_message_unwind (dummy) - Lisp_Object dummy; +pop_message_unwind (Lisp_Object dummy) { pop_message (); return Qnil; @@ -9396,7 +9197,7 @@ /* Pop the top-most entry off Vmessage_stack. */ void -pop_message () +pop_message (void) { xassert (CONSP (Vmessage_stack)); Vmessage_stack = XCDR (Vmessage_stack); @@ -9408,7 +9209,7 @@ somewhere. */ void -check_message_stack () +check_message_stack (void) { if (!NILP (Vmessage_stack)) abort (); @@ -9419,8 +9220,7 @@ time we display it---but don't redisplay it now. */ void -truncate_echo_area (nchars) - int nchars; +truncate_echo_area (int nchars) { if (nchars == 0) echo_area_buffer[0] = Qnil; @@ -9442,10 +9242,7 @@ message to at most NCHARS characters. */ static int -truncate_message_1 (nchars, a2, a3, a4) - EMACS_INT nchars; - Lisp_Object a2; - EMACS_INT a3, a4; +truncate_message_1 (EMACS_INT nchars, Lisp_Object a2, EMACS_INT a3, EMACS_INT a4) { if (BEG + nchars < Z) del_range (BEG + nchars, Z); @@ -9470,10 +9267,7 @@ */ void -set_message (s, string, nbytes, multibyte_p) - const char *s; - Lisp_Object string; - int nbytes, multibyte_p; +set_message (const char *s, Lisp_Object string, int nbytes, int multibyte_p) { message_enable_multibyte = ((s && multibyte_p) @@ -9492,10 +9286,7 @@ current. */ static int -set_message_1 (a1, a2, nbytes, multibyte_p) - EMACS_INT a1; - Lisp_Object a2; - EMACS_INT nbytes, multibyte_p; +set_message_1 (EMACS_INT a1, Lisp_Object a2, EMACS_INT nbytes, EMACS_INT multibyte_p) { const char *s = (const char *) a1; Lisp_Object string = a2; @@ -9574,8 +9365,7 @@ last displayed. */ void -clear_message (current_p, last_displayed_p) - int current_p, last_displayed_p; +clear_message (int current_p, int last_displayed_p) { if (current_p) { @@ -9599,7 +9389,7 @@ and ensure a complete redisplay of all windows. */ static void -clear_garbaged_frames () +clear_garbaged_frames (void) { if (frame_garbaged) { @@ -9636,8 +9426,7 @@ mini-windows height has been changed. */ static int -echo_area_display (update_frame_p) - int update_frame_p; +echo_area_display (int update_frame_p) { Lisp_Object mini_window; struct window *w; @@ -9812,8 +9601,7 @@ } static Lisp_Object -unwind_format_mode_line (vector) - Lisp_Object vector; +unwind_format_mode_line (Lisp_Object vector) { mode_line_target = XINT (AREF (vector, 0)); mode_line_noprop_ptr = mode_line_noprop_buf + XINT (AREF (vector, 1)); @@ -9873,9 +9661,7 @@ frame title. */ static int -store_mode_line_noprop (str, field_width, precision) - const unsigned char *str; - int field_width, precision; +store_mode_line_noprop (const unsigned char *str, int field_width, int precision) { int n = 0; int dummy, nbytes; @@ -9908,8 +9694,7 @@ frame_title_format. */ static void -x_consider_frame_title (frame) - Lisp_Object frame; +x_consider_frame_title (Lisp_Object frame) { struct frame *f = XFRAME (frame); @@ -9988,7 +9773,7 @@ appropriate. This can call eval. */ void -prepare_menu_bars () +prepare_menu_bars (void) { int all_windows; struct gcpro gcpro1, gcpro2; @@ -10107,10 +9892,7 @@ updated value of this flag, to pass to the next call. */ static int -update_menu_bar (f, save_match_data, hooks_run) - struct frame *f; - int save_match_data; - int hooks_run; +update_menu_bar (struct frame *f, int save_match_data, int hooks_run) { Lisp_Object window; register struct window *w; @@ -10235,8 +10017,7 @@ positions are relative to updated_window. */ void -set_output_cursor (cursor) - struct cursor_pos *cursor; +set_output_cursor (struct cursor_pos *cursor) { output_cursor.hpos = cursor->hpos; output_cursor.vpos = cursor->vpos; @@ -10257,8 +10038,7 @@ selected_window and display the cursor at the given position. */ void -x_cursor_to (vpos, hpos, y, x) - int vpos, hpos, y, x; +x_cursor_to (int vpos, int hpos, int y, int x) { struct window *w; @@ -10306,8 +10086,7 @@ static Lisp_Object -update_tool_bar_unwind (frame) - Lisp_Object frame; +update_tool_bar_unwind (Lisp_Object frame) { selected_frame = frame; return Qnil; @@ -10319,9 +10098,7 @@ and restore it here. */ static void -update_tool_bar (f, save_match_data) - struct frame *f; - int save_match_data; +update_tool_bar (struct frame *f, int save_match_data) { #if defined (USE_GTK) || defined (HAVE_NS) int do_update = FRAME_EXTERNAL_TOOL_BAR (f); @@ -10419,8 +10196,7 @@ been set up previously by calling prepare_menu_bars. */ static void -build_desired_tool_bar_string (f) - struct frame *f; +build_desired_tool_bar_string (struct frame *f) { int i, size, size_needed; struct gcpro gcpro1, gcpro2, gcpro3; @@ -10591,9 +10367,7 @@ */ static void -display_tool_bar_line (it, height) - struct it *it; - int height; +display_tool_bar_line (struct it *it, int height) { struct glyph_row *row = it->glyph_row; int max_x = it->last_visible_x; @@ -10720,9 +10494,7 @@ returned in *N_ROWS if non-NULL. */ static int -tool_bar_lines_needed (f, n_rows) - struct frame *f; - int *n_rows; +tool_bar_lines_needed (struct frame *f, int *n_rows) { struct window *w = XWINDOW (f->tool_bar_window); struct it it; @@ -10790,8 +10562,7 @@ height should be changed. */ static int -redisplay_tool_bar (f) - struct frame *f; +redisplay_tool_bar (struct frame *f) { struct window *w; struct it it; @@ -10962,10 +10733,7 @@ GLYPH doesn't display a tool-bar item. */ static int -tool_bar_item_info (f, glyph, prop_idx) - struct frame *f; - struct glyph *glyph; - int *prop_idx; +tool_bar_item_info (struct frame *f, struct glyph *glyph, int *prop_idx) { Lisp_Object prop; int success_p; @@ -11005,11 +10773,8 @@ 1 otherwise. */ static int -get_tool_bar_item (f, x, y, glyph, hpos, vpos, prop_idx) - struct frame *f; - int x, y; - struct glyph **glyph; - int *hpos, *vpos, *prop_idx; +get_tool_bar_item (struct frame *f, int x, int y, struct glyph **glyph, + int *hpos, int *vpos, int *prop_idx) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); struct window *w = XWINDOW (f->tool_bar_window); @@ -11047,10 +10812,8 @@ release. */ void -handle_tool_bar_click (f, x, y, down_p, modifiers) - struct frame *f; - int x, y, down_p; - unsigned int modifiers; +handle_tool_bar_click (struct frame *f, int x, int y, int down_p, + unsigned int modifiers) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); struct window *w = XWINDOW (f->tool_bar_window); @@ -11108,9 +10871,7 @@ note_mouse_highlight. */ static void -note_tool_bar_highlight (f, x, y) - struct frame *f; - int x, y; +note_tool_bar_highlight (struct frame *f, int x, int y) { Lisp_Object window = f->tool_bar_window; struct window *w = XWINDOW (window); @@ -11214,8 +10975,7 @@ changed. */ static int -hscroll_window_tree (window) - Lisp_Object window; +hscroll_window_tree (Lisp_Object window) { int hscrolled_p = 0; int hscroll_relative_p = FLOATP (Vhscroll_step); @@ -11358,8 +11118,7 @@ of WINDOW are cleared. */ static int -hscroll_windows (window) - Lisp_Object window; +hscroll_windows (Lisp_Object window) { int hscrolled_p = hscroll_window_tree (window); if (hscrolled_p) @@ -11442,9 +11201,7 @@ redisplay_internal for display optimization. */ static INLINE int -text_outside_line_unchanged_p (w, start, end) - struct window *w; - int start, end; +text_outside_line_unchanged_p (struct window *w, int start, int end) { int unchanged_p = 1; @@ -11511,15 +11268,14 @@ mini-buffer if that is in use. */ void -redisplay () +redisplay (void) { redisplay_internal (0); } static Lisp_Object -overlay_arrow_string_or_property (var) - Lisp_Object var; +overlay_arrow_string_or_property (Lisp_Object var) { Lisp_Object val; @@ -11531,7 +11287,7 @@ /* Return 1 if there are any overlay-arrows in current_buffer. */ static int -overlay_arrow_in_current_buffer_p () +overlay_arrow_in_current_buffer_p (void) { Lisp_Object vlist; @@ -11557,7 +11313,7 @@ has changed. */ static int -overlay_arrows_changed_p () +overlay_arrows_changed_p (void) { Lisp_Object vlist; @@ -11585,8 +11341,7 @@ /* Mark overlay arrows to be updated on next redisplay. */ static void -update_overlay_arrows (up_to_date) - int up_to_date; +update_overlay_arrows (int up_to_date) { Lisp_Object vlist; @@ -11622,9 +11377,7 @@ Return nil if no overlay arrow. */ static Lisp_Object -overlay_arrow_at_row (it, row) - struct it *it; - struct glyph_row *row; +overlay_arrow_at_row (struct it *it, struct glyph_row *row) { Lisp_Object vlist; @@ -11669,9 +11422,8 @@ position. BUF and PT are the current point buffer and position. */ int -check_point_in_composition (prev_buf, prev_pt, buf, pt) - struct buffer *prev_buf, *buf; - int prev_pt, pt; +check_point_in_composition (struct buffer *prev_buf, int prev_pt, + struct buffer *buf, int pt) { EMACS_INT start, end; Lisp_Object prop; @@ -11707,9 +11459,7 @@ in window W. */ static INLINE void -reconsider_clip_changes (w, b) - struct window *w; - struct buffer *b; +reconsider_clip_changes (struct window *w, struct buffer *b) { if (b->clip_changed && !NILP (w->window_end_valid) @@ -11748,8 +11498,7 @@ directly. */ static void -select_frame_for_redisplay (frame) - Lisp_Object frame; +select_frame_for_redisplay (Lisp_Object frame) { Lisp_Object tail, tem; Lisp_Object old = selected_frame; @@ -11790,8 +11539,7 @@ causes some problems. */ static void -redisplay_internal (preserve_echo_area) - int preserve_echo_area; +redisplay_internal (int preserve_echo_area) { struct window *w = XWINDOW (selected_window); struct frame *f; @@ -12524,8 +12272,7 @@ called. This is useful for debugging. */ void -redisplay_preserve_echo_area (from_where) - int from_where; +redisplay_preserve_echo_area (int from_where) { TRACE ((stderr, "redisplay_preserve_echo_area (%d)\n", from_where)); @@ -12554,8 +12301,7 @@ failure during redisplay, for example). */ static Lisp_Object -unwind_redisplay (val) - Lisp_Object val; +unwind_redisplay (Lisp_Object val) { Lisp_Object old_redisplaying_p, old_frame; @@ -12575,9 +12321,7 @@ redisplay_internal is called. */ static void -mark_window_display_accurate_1 (w, accurate_p) - struct window *w; - int accurate_p; +mark_window_display_accurate_1 (struct window *w, int accurate_p) { if (BUFFERP (w->buffer)) { @@ -12628,9 +12372,7 @@ be redisplayed the next time redisplay_internal is called. */ void -mark_window_display_accurate (window, accurate_p) - Lisp_Object window; - int accurate_p; +mark_window_display_accurate (Lisp_Object window, int accurate_p) { struct window *w; @@ -12665,9 +12407,7 @@ macro DISP_CHAR_VECTOR. */ Lisp_Object -disp_char_vector (dp, c) - struct Lisp_Char_Table *dp; - int c; +disp_char_vector (struct Lisp_Char_Table *dp, int c) { Lisp_Object val; @@ -12698,8 +12438,7 @@ /* Redisplay all leaf windows in the window tree rooted at WINDOW. */ static void -redisplay_windows (window) - Lisp_Object window; +redisplay_windows (Lisp_Object window) { while (!NILP (window)) { @@ -12724,15 +12463,14 @@ } static Lisp_Object -redisplay_window_error () +redisplay_window_error (Lisp_Object ignore) { displayed_buffer->display_error_modiff = BUF_MODIFF (displayed_buffer); return Qnil; } static Lisp_Object -redisplay_window_0 (window) - Lisp_Object window; +redisplay_window_0 (Lisp_Object window) { if (displayed_buffer->display_error_modiff < BUF_MODIFF (displayed_buffer)) redisplay_window (window, 0); @@ -12740,8 +12478,7 @@ } static Lisp_Object -redisplay_window_1 (window) - Lisp_Object window; +redisplay_window_1 (Lisp_Object window) { if (displayed_buffer->display_error_modiff < BUF_MODIFF (displayed_buffer)) redisplay_window (window, 1); @@ -12769,11 +12506,9 @@ Return 0 if cursor is not on this row, 1 otherwise. */ int -set_cursor_from_row (w, row, matrix, delta, delta_bytes, dy, dvpos) - struct window *w; - struct glyph_row *row; - struct glyph_matrix *matrix; - int delta, delta_bytes, dy, dvpos; +set_cursor_from_row (struct window *w, struct glyph_row *row, + struct glyph_matrix *matrix, int delta, int delta_bytes, + int dy, int dvpos) { struct glyph *glyph = row->glyphs[TEXT_AREA]; struct glyph *end = glyph + row->used[TEXT_AREA]; @@ -13259,9 +12994,7 @@ We assume that the window's buffer is really current. */ static INLINE struct text_pos -run_window_scroll_functions (window, startp) - Lisp_Object window; - struct text_pos startp; +run_window_scroll_functions (Lisp_Object window, struct text_pos startp) { struct window *w = XWINDOW (window); SET_MARKER_FROM_TEXT_POS (w->start, startp); @@ -13295,10 +13028,7 @@ as if point had gone off the screen. */ static int -cursor_row_fully_visible_p (w, force_p, current_matrix_p) - struct window *w; - int force_p; - int current_matrix_p; +cursor_row_fully_visible_p (struct window *w, int force_p, int current_matrix_p) { struct glyph_matrix *matrix; struct glyph_row *row; @@ -13617,8 +13347,7 @@ screen line with the minimum distance from the old start W->start. */ static int -compute_window_start_on_continuation_line (w) - struct window *w; +compute_window_start_on_continuation_line (struct window *w) { struct text_pos pos, start_pos; int window_start_changed_p = 0; @@ -13704,10 +13433,7 @@ }; static int -try_cursor_movement (window, startp, scroll_step) - Lisp_Object window; - struct text_pos startp; - int *scroll_step; +try_cursor_movement (Lisp_Object window, struct text_pos startp, int *scroll_step) { struct window *w = XWINDOW (window); struct frame *f = XFRAME (w->frame); @@ -14011,8 +13737,7 @@ } void -set_vertical_scroll_bar (w) - struct window *w; +set_vertical_scroll_bar (struct window *w) { int start, end, whole; @@ -14057,9 +13782,7 @@ retry. */ static void -redisplay_window (window, just_this_one_p) - Lisp_Object window; - int just_this_one_p; +redisplay_window (Lisp_Object window, int just_this_one_p) { struct window *w = XWINDOW (window); struct frame *f = XFRAME (w->frame); @@ -14853,10 +14576,7 @@ set in FLAGS.) */ int -try_window (window, pos, flags) - Lisp_Object window; - struct text_pos pos; - int flags; +try_window (Lisp_Object window, struct text_pos pos, int flags) { struct window *w = XWINDOW (window); struct it it; @@ -14956,8 +14676,7 @@ W->start is the new window start. */ static int -try_window_reusing_current_matrix (w) - struct window *w; +try_window_reusing_current_matrix (struct window *w) { struct frame *f = XFRAME (w->frame); struct glyph_row *row, *bottom_row; @@ -15398,10 +15117,8 @@ a pointer to the row found. */ static struct glyph_row * -find_last_row_displaying_text (matrix, it, start) - struct glyph_matrix *matrix; - struct it *it; - struct glyph_row *start; +find_last_row_displaying_text (struct glyph_matrix *matrix, struct it *it, + struct glyph_row *start) { struct glyph_row *row, *row_found; @@ -15434,8 +15151,7 @@ when the current matrix was built. */ static struct glyph_row * -find_last_unchanged_at_beg_row (w) - struct window *w; +find_last_unchanged_at_beg_row (struct window *w) { int first_changed_pos = BEG + BEG_UNCHANGED; struct glyph_row *row; @@ -15484,9 +15200,7 @@ changes. */ static struct glyph_row * -find_first_unchanged_at_end_row (w, delta, delta_bytes) - struct window *w; - int *delta, *delta_bytes; +find_first_unchanged_at_end_row (struct window *w, int *delta, int *delta_bytes) { struct glyph_row *row; struct glyph_row *row_found = NULL; @@ -15559,8 +15273,7 @@ try_window_reusing_current_matrix. */ static void -sync_frame_with_window_matrix_rows (w) - struct window *w; +sync_frame_with_window_matrix_rows (struct window *w) { struct frame *f = XFRAME (w->frame); struct glyph_row *window_row, *window_row_end, *frame_row; @@ -15604,11 +15317,8 @@ containing CHARPOS or null. */ struct glyph_row * -row_containing_pos (w, charpos, start, end, dy) - struct window *w; - int charpos; - struct glyph_row *start, *end; - int dy; +row_containing_pos (struct window *w, int charpos, struct glyph_row *start, + struct glyph_row *end, int dy) { struct glyph_row *row = start; struct glyph_row *best_row = NULL; @@ -15710,8 +15420,7 @@ 7. Update W's window end information. */ static int -try_window_id (w) - struct window *w; +try_window_id (struct window *w) { struct frame *f = XFRAME (w->frame); struct glyph_matrix *current_matrix = w->current_matrix; @@ -16778,9 +16487,7 @@ Used for non-window-redisplay windows, and for windows w/o left fringe. */ static struct glyph_row * -get_overlay_arrow_glyph_row (w, overlay_arrow_string) - struct window *w; - Lisp_Object overlay_arrow_string; +get_overlay_arrow_glyph_row (struct window *w, Lisp_Object overlay_arrow_string) { struct frame *f = XFRAME (WINDOW_FRAME (w)); struct buffer *buffer = XBUFFER (w->buffer); @@ -16842,8 +16549,7 @@ produce_special_glyphs. */ static void -insert_left_trunc_glyphs (it) - struct it *it; +insert_left_trunc_glyphs (struct it *it) { struct it truncate_it; struct glyph *from, *end, *to, *toend; @@ -16937,8 +16643,7 @@ must not be zero. */ static void -compute_line_metrics (it) - struct it *it; +compute_line_metrics (struct it *it) { struct glyph_row *row = it->glyph_row; int area, i; @@ -17033,9 +16738,7 @@ end of the line if the row ends in italic text. */ static int -append_space_for_newline (it, default_face_p) - struct it *it; - int default_face_p; +append_space_for_newline (struct it *it, int default_face_p) { if (FRAME_WINDOW_P (it->f)) { @@ -17099,8 +16802,7 @@ left of the leftmost glyph. */ static void -extend_face_to_end_of_line (it) - struct it *it; +extend_face_to_end_of_line (struct it *it) { struct face *face; struct frame *f = it->f; @@ -17246,8 +16948,7 @@ trailing whitespace. */ static int -trailing_whitespace_p (charpos) - int charpos; +trailing_whitespace_p (int charpos) { int bytepos = CHAR_TO_BYTE (charpos); int c = 0; @@ -17269,9 +16970,7 @@ /* Highlight trailing whitespace, if any, in ROW. */ void -highlight_trailing_whitespace (f, row) - struct frame *f; - struct glyph_row *row; +highlight_trailing_whitespace (struct frame *f, struct glyph_row *row) { int used = row->used[TEXT_AREA]; @@ -17348,9 +17047,7 @@ used to hold the cursor. */ static int -cursor_row_p (w, row) - struct window *w; - struct glyph_row *row; +cursor_row_p (struct window *w, struct glyph_row *row) { int cursor_row_p = 1; @@ -17465,9 +17162,7 @@ /* Return the character-property PROP at the current position in IT. */ static Lisp_Object -get_it_property (it, prop) - struct it *it; - Lisp_Object prop; +get_it_property (struct it *it, Lisp_Object prop) { Lisp_Object position; @@ -17516,9 +17211,7 @@ glyphs were produced by PRODUCE_GLYPHS, and the line needs to be continued. */ static void -unproduce_glyphs (it, n) - struct it *it; - int n; +unproduce_glyphs (struct it *it, int n) { struct glyph *glyph, *end; @@ -17538,10 +17231,9 @@ /* Find the positions in a bidi-reordered ROW to serve as ROW->minpos and ROW->maxpos. */ static void -find_row_edges (it, row, min_pos, min_bpos, max_pos, max_bpos) - struct it *it; - struct glyph_row *row; - EMACS_INT min_pos, min_bpos, max_pos, max_bpos; +find_row_edges (struct it *it, struct glyph_row *row, + EMACS_INT min_pos, EMACS_INT min_bpos, + EMACS_INT max_pos, EMACS_INT max_bpos) { /* FIXME: Revisit this when glyph ``spilling'' in continuation lines' rows is implemented for bidi-reordered rows. */ @@ -17625,8 +17317,7 @@ only. */ static int -display_line (it) - struct it *it; +display_line (struct it *it) { struct glyph_row *row = it->glyph_row; Lisp_Object overlay_arrow_string; @@ -18379,8 +18070,7 @@ for the menu bar. */ static void -display_menu_bar (w) - struct window *w; +display_menu_bar (struct window *w) { struct frame *f = XFRAME (WINDOW_FRAME (w)); struct it it; @@ -18484,9 +18174,7 @@ the number of windows whose mode lines were redisplayed. */ static int -redisplay_mode_lines (window, force) - Lisp_Object window; - int force; +redisplay_mode_lines (Lisp_Object window, int force) { int nwindows = 0; @@ -18548,8 +18236,7 @@ sum number of mode lines and header lines displayed. */ static int -display_mode_lines (w) - struct window *w; +display_mode_lines (struct window *w) { Lisp_Object old_selected_window, old_selected_frame; int n = 0; @@ -18593,10 +18280,7 @@ displayed. */ static int -display_mode_line (w, face_id, format) - struct window *w; - enum face_id face_id; - Lisp_Object format; +display_mode_line (struct window *w, enum face_id face_id, Lisp_Object format) { struct it it; struct face *face; @@ -18655,8 +18339,7 @@ Return the updated list. */ static Lisp_Object -move_elt_to_front (elt, list) - Lisp_Object elt, list; +move_elt_to_front (Lisp_Object elt, Lisp_Object list) { register Lisp_Object tail, prev; register Lisp_Object tem; @@ -18714,12 +18397,8 @@ `store_mode_line_string', or `display_string'. */ static int -display_mode_element (it, depth, field_width, precision, elt, props, risky) - struct it *it; - int depth; - int field_width, precision; - Lisp_Object elt, props; - int risky; +display_mode_element (struct it *it, int depth, int field_width, int precision, + Lisp_Object elt, Lisp_Object props, int risky) { int n = 0, field, prec; int literal = 0; @@ -19181,13 +18860,8 @@ */ static int -store_mode_line_string (string, lisp_string, copy_string, field_width, precision, props) - char *string; - Lisp_Object lisp_string; - int copy_string; - int field_width; - int precision; - Lisp_Object props; +store_mode_line_string (char *string, Lisp_Object lisp_string, int copy_string, + int field_width, int precision, Lisp_Object props) { int len; int n = 0; @@ -19374,10 +19048,7 @@ the positive integer D to BUF using a minimal field width WIDTH. */ static void -pint2str (buf, width, d) - register char *buf; - register int width; - register int d; +pint2str (register char *buf, register int width, register int d) { register char *p = buf; @@ -19421,10 +19092,7 @@ }; static void -pint2hrstr (buf, width, d) - char *buf; - int width; - int d; +pint2hrstr (char *buf, int width, int d) { /* We aim to represent the nonnegative integer D as QUOTIENT.TENTHS * 10 ^ (3 * EXPONENT). */ @@ -19525,10 +19193,7 @@ static unsigned char invalid_eol_type[] = "(*invalid*)"; static char * -decode_mode_spec_coding (coding_system, buf, eol_flag) - Lisp_Object coding_system; - register char *buf; - int eol_flag; +decode_mode_spec_coding (Lisp_Object coding_system, register char *buf, int eol_flag) { Lisp_Object val; int multibyte = !NILP (current_buffer->enable_multibyte_characters); @@ -19613,11 +19278,8 @@ static char lots_of_dashes[] = "--------------------------------------------------------------------------------------------------------------------------------------------"; static char * -decode_mode_spec (w, c, field_width, precision, string) - struct window *w; - register int c; - int field_width, precision; - Lisp_Object *string; +decode_mode_spec (struct window *w, register int c, int field_width, + int precision, Lisp_Object *string) { Lisp_Object obj; struct frame *f = XFRAME (WINDOW_FRAME (w)); @@ -20034,9 +19696,8 @@ Set *BYTE_POS_PTR to 1 if we found COUNT lines, 0 if we hit LIMIT. */ static int -display_count_lines (start, start_byte, limit_byte, count, byte_pos_ptr) - int start, start_byte, limit_byte, count; - int *byte_pos_ptr; +display_count_lines (int start, int start_byte, int limit_byte, int count, + int *byte_pos_ptr) { register unsigned char *cursor; unsigned char *base; @@ -20195,7 +19856,7 @@ with index START. */ reseat_to_string (it, NILP (lisp_string) ? string : NULL, lisp_string, start, precision, field_width, multibyte); - if (string && STRINGP (lisp_string)) + if (string && STRINGP (lisp_string)) /* LISP_STRING is the one returned by decode_mode_spec. We should ignore its text properties. */ it->stop_charpos = -1; @@ -20369,9 +20030,7 @@ and 1 if it's invisible and without an ellipsis. */ int -invisible_p (propval, list) - register Lisp_Object propval; - Lisp_Object list; +invisible_p (register Lisp_Object propval, Lisp_Object list) { register Lisp_Object tail, proptail; @@ -20500,12 +20159,8 @@ : - 1) int -calc_pixel_width_or_height (res, it, prop, font, width_p, align_to) - double *res; - struct it *it; - Lisp_Object prop; - struct font *font; - int width_p, *align_to; +calc_pixel_width_or_height (double *res, struct it *it, Lisp_Object prop, + struct font *font, int width_p, int *align_to) { double pixels; @@ -20723,7 +20378,7 @@ face-override for drawing S. */ #ifdef HAVE_NTGUI -#define OPTIONAL_HDC(hdc) hdc, +#define OPTIONAL_HDC(hdc) HDC hdc, #define DECLARE_HDC(hdc) HDC hdc; #define ALLOCATE_HDC(hdc, f) hdc = get_frame_dc ((f)) #define RELEASE_HDC(hdc, f) release_frame_dc ((f), (hdc)) @@ -20737,15 +20392,10 @@ #endif static void -init_glyph_string (s, OPTIONAL_HDC (hdc) char2b, w, row, area, start, hl) - struct glyph_string *s; - DECLARE_HDC (hdc) - XChar2b *char2b; - struct window *w; - struct glyph_row *row; - enum glyph_row_area area; - int start; - enum draw_glyphs_face hl; +init_glyph_string (struct glyph_string *s, + OPTIONAL_HDC (hdc) + XChar2b *char2b, struct window *w, struct glyph_row *row, + enum glyph_row_area area, int start, enum draw_glyphs_face hl) { bzero (s, sizeof *s); s->w = w; @@ -20770,9 +20420,8 @@ with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the result. */ static INLINE void -append_glyph_string_lists (head, tail, h, t) - struct glyph_string **head, **tail; - struct glyph_string *h, *t; +append_glyph_string_lists (struct glyph_string **head, struct glyph_string **tail, + struct glyph_string *h, struct glyph_string *t) { if (h) { @@ -20791,9 +20440,8 @@ result. */ static INLINE void -prepend_glyph_string_lists (head, tail, h, t) - struct glyph_string **head, **tail; - struct glyph_string *h, *t; +prepend_glyph_string_lists (struct glyph_string **head, struct glyph_string **tail, + struct glyph_string *h, struct glyph_string *t) { if (h) { @@ -20811,9 +20459,8 @@ Set *HEAD and *TAIL to the resulting list. */ static INLINE void -append_glyph_string (head, tail, s) - struct glyph_string **head, **tail; - struct glyph_string *s; +append_glyph_string (struct glyph_string **head, struct glyph_string **tail, + struct glyph_string *s) { s->next = s->prev = NULL; append_glyph_string_lists (head, tail, s, s); @@ -20828,11 +20475,8 @@ DISPLAY_P is non-zero. */ static INLINE struct face * -get_char_face_and_encoding (f, c, face_id, char2b, multibyte_p, display_p) - struct frame *f; - int c, face_id; - XChar2b *char2b; - int multibyte_p, display_p; +get_char_face_and_encoding (struct frame *f, int c, int face_id, + XChar2b *char2b, int multibyte_p, int display_p) { struct face *face = FACE_FROM_ID (f, face_id); @@ -20864,11 +20508,8 @@ a pointer to a realized face that is ready for display. */ static INLINE struct face * -get_glyph_face_and_encoding (f, glyph, char2b, two_byte_p) - struct frame *f; - struct glyph *glyph; - XChar2b *char2b; - int *two_byte_p; +get_glyph_face_and_encoding (struct frame *f, struct glyph *glyph, + XChar2b *char2b, int *two_byte_p) { struct face *face; @@ -20906,10 +20547,8 @@ Value is the index of a component not in S. */ static int -fill_composite_glyph_string (s, base_face, overlaps) - struct glyph_string *s; - struct face *base_face; - int overlaps; +fill_composite_glyph_string (struct glyph_string *s, struct face *base_face, + int overlaps) { int i; /* For all glyphs of this composition, starting at the offset @@ -20972,10 +20611,8 @@ } static int -fill_gstring_glyph_string (s, face_id, start, end, overlaps) - struct glyph_string *s; - int face_id; - int start, end, overlaps; +fill_gstring_glyph_string (struct glyph_string *s, int face_id, + int start, int end, int overlaps) { struct glyph *glyph, *last; Lisp_Object lgstring; @@ -21019,10 +20656,8 @@ Value is the index of the first glyph not in S. */ static int -fill_glyph_string (s, face_id, start, end, overlaps) - struct glyph_string *s; - int face_id; - int start, end, overlaps; +fill_glyph_string (struct glyph_string *s, int face_id, + int start, int end, int overlaps) { struct glyph *glyph, *last; int voffset; @@ -21082,8 +20717,7 @@ /* Fill glyph string S from image glyph S->first_glyph. */ static void -fill_image_glyph_string (s) - struct glyph_string *s; +fill_image_glyph_string (struct glyph_string *s) { xassert (s->first_glyph->type == IMAGE_GLYPH); s->img = IMAGE_FROM_ID (s->f, s->first_glyph->u.img_id); @@ -21107,11 +20741,8 @@ Value is the index of the first glyph not in S. */ static int -fill_stretch_glyph_string (s, row, area, start, end) - struct glyph_string *s; - struct glyph_row *row; - enum glyph_row_area area; - int start, end; +fill_stretch_glyph_string (struct glyph_string *s, struct glyph_row *row, + enum glyph_row_area area, int start, int end) { struct glyph *glyph, *last; int voffset, face_id; @@ -21145,10 +20776,7 @@ } static struct font_metrics * -get_per_char_metric (f, font, char2b) - struct frame *f; - struct font *font; - XChar2b *char2b; +get_per_char_metric (struct frame *f, struct font *font, XChar2b *char2b) { static struct font_metrics metrics; unsigned code = (XCHAR2B_BYTE1 (char2b) << 8) | XCHAR2B_BYTE2 (char2b); @@ -21165,10 +20793,7 @@ assumed to be zero. */ void -x_get_glyph_overhangs (glyph, f, left, right) - struct glyph *glyph; - struct frame *f; - int *left, *right; +x_get_glyph_overhangs (struct glyph *glyph, struct frame *f, int *left, int *right) { *left = *right = 0; @@ -21219,8 +20844,7 @@ if no glyphs are overwritten. */ static int -left_overwritten (s) - struct glyph_string *s; +left_overwritten (struct glyph_string *s) { int k; @@ -21247,8 +20871,7 @@ glyph in front of S overwrites S. */ static int -left_overwriting (s) - struct glyph_string *s; +left_overwriting (struct glyph_string *s) { int i, k, x; struct glyph *glyphs = s->row->glyphs[s->area]; @@ -21274,8 +20897,7 @@ no such glyph is found. */ static int -right_overwritten (s) - struct glyph_string *s; +right_overwritten (struct glyph_string *s) { int k = -1; @@ -21301,8 +20923,7 @@ if no such glyph is found. */ static int -right_overwriting (s) - struct glyph_string *s; +right_overwriting (struct glyph_string *s) { int i, k, x; int end = s->row->used[s->area]; @@ -21329,10 +20950,7 @@ in the drawing area. */ static INLINE void -set_glyph_string_background_width (s, start, last_x) - struct glyph_string *s; - int start; - int last_x; +set_glyph_string_background_width (struct glyph_string *s, int start, int last_x) { /* If the face of this glyph string has to be drawn to the end of the drawing area, set S->extends_to_end_of_line_p. */ @@ -21361,10 +20979,7 @@ BACKWARD_P non-zero means process predecessors. */ static void -compute_overhangs_and_x (s, x, backward_p) - struct glyph_string *s; - int x; - int backward_p; +compute_overhangs_and_x (struct glyph_string *s, int x, int backward_p) { if (backward_p) { @@ -21620,14 +21235,9 @@ Value is the x-position reached, relative to AREA of W. */ static int -draw_glyphs (w, x, row, area, start, end, hl, overlaps) - struct window *w; - int x; - struct glyph_row *row; - enum glyph_row_area area; - EMACS_INT start, end; - enum draw_glyphs_face hl; - int overlaps; +draw_glyphs (struct window *w, int x, struct glyph_row *row, + enum glyph_row_area area, EMACS_INT start, EMACS_INT end, + enum draw_glyphs_face hl, int overlaps) { struct glyph_string *head, *tail; struct glyph_string *s; @@ -21875,8 +21485,7 @@ Called from x_produce_glyphs when IT->glyph_row is non-null. */ static INLINE void -append_glyph (it) - struct it *it; +append_glyph (struct it *it) { struct glyph *glyph; enum glyph_row_area area = it->area; @@ -21950,8 +21559,7 @@ non-null. */ static INLINE void -append_composite_glyph (it) - struct it *it; +append_composite_glyph (struct it *it) { struct glyph *glyph; enum glyph_row_area area = it->area; @@ -22020,8 +21628,7 @@ IT->voffset. */ static INLINE void -take_vertical_position_into_account (it) - struct it *it; +take_vertical_position_into_account (struct it *it) { if (it->voffset) { @@ -22042,8 +21649,7 @@ an overview of struct display_iterator. */ static void -produce_image_glyph (it) - struct it *it; +produce_image_glyph (struct it *it) { struct image *img; struct face *face; @@ -22203,11 +21809,8 @@ stretch. ASCENT is the ascent of the glyph (0 <= ASCENT <= HEIGHT). */ static void -append_stretch_glyph (it, object, width, height, ascent) - struct it *it; - Lisp_Object object; - int width, height; - int ascent; +append_stretch_glyph (struct it *it, Lisp_Object object, + int width, int height, int ascent) { struct glyph *glyph; enum glyph_row_area area = it->area; @@ -22298,8 +21901,7 @@ ASCENT must be in the range 0 <= ASCENT <= 100. */ static void -produce_stretch_glyph (it) - struct it *it; +produce_stretch_glyph (struct it *it) { /* (space :width WIDTH :height HEIGHT ...) */ Lisp_Object prop, plist; @@ -22425,11 +22027,8 @@ static Lisp_Object -calc_line_height_property (it, val, font, boff, override) - struct it *it; - Lisp_Object val; - struct font *font; - int boff, override; +calc_line_height_property (struct it *it, Lisp_Object val, struct font *font, + int boff, int override) { Lisp_Object face_name = Qnil; int ascent, descent, height; @@ -22505,8 +22104,7 @@ for an overview of struct it. */ void -x_produce_glyphs (it) - struct it *it; +x_produce_glyphs (struct it *it) { int extra_line_spacing = it->extra_line_spacing; @@ -23292,9 +22890,7 @@ row being updated. */ void -x_write_glyphs (start, len) - struct glyph *start; - int len; +x_write_glyphs (struct glyph *start, int len) { int x, hpos; @@ -23329,9 +22925,7 @@ Insert LEN glyphs from START at the nominal cursor position. */ void -x_insert_glyphs (start, len) - struct glyph *start; - int len; +x_insert_glyphs (struct glyph *start, int len) { struct frame *f; struct window *w; @@ -23389,8 +22983,7 @@ updated_window. TO_X == -1 means clear to the end of this area. */ void -x_clear_end_of_line (to_x) - int to_x; +x_clear_end_of_line (int to_x) { struct frame *f; struct window *w = updated_window; @@ -23466,9 +23059,7 @@ of the bar cursor. */ static enum text_cursor_kinds -get_specified_cursor_type (arg, width) - Lisp_Object arg; - int *width; +get_specified_cursor_type (Lisp_Object arg, int *width) { enum text_cursor_kinds type; @@ -23521,9 +23112,7 @@ /* Set the default cursor types for specified frame. */ void -set_frame_cursor_types (f, arg) - struct frame *f; - Lisp_Object arg; +set_frame_cursor_types (struct frame *f, Lisp_Object arg) { int width; Lisp_Object tem; @@ -23557,11 +23146,8 @@ In all other cases, we want a hollow box cursor. */ static enum text_cursor_kinds -get_window_cursor_type (w, glyph, width, active_cursor) - struct window *w; - struct glyph *glyph; - int *width; - int *active_cursor; +get_window_cursor_type (struct window *w, struct glyph *glyph, int *width, + int *active_cursor) { struct frame *f = XFRAME (w->frame); struct buffer *b = XBUFFER (w->buffer); @@ -23717,10 +23303,8 @@ are window-relative. */ static void -notice_overwritten_cursor (w, area, x0, x1, y0, y1) - struct window *w; - enum glyph_row_area area; - int x0, y0, x1, y1; +notice_overwritten_cursor (struct window *w, enum glyph_row_area area, + int x0, int x1, int y0, int y1) { int cx0, cx1, cy0, cy1; struct glyph_row *row; @@ -23787,11 +23371,8 @@ with respect to the overlapping part OVERLAPS. */ void -x_fix_overlapping_area (w, row, area, overlaps) - struct window *w; - struct glyph_row *row; - enum glyph_row_area area; - int overlaps; +x_fix_overlapping_area (struct window *w, struct glyph_row *row, + enum glyph_row_area area, int overlaps) { int i, x; @@ -23832,10 +23413,8 @@ comment of draw_glyphs for the meaning of HL. */ void -draw_phys_cursor_glyph (w, row, hl) - struct window *w; - struct glyph_row *row; - enum draw_glyphs_face hl; +draw_phys_cursor_glyph (struct window *w, struct glyph_row *row, + enum draw_glyphs_face hl) { /* If cursor hpos is out of bounds, don't draw garbage. This can happen in mini-buffer windows when switching between echo area @@ -23878,8 +23457,7 @@ Erase the image of a cursor of window W from the screen. */ void -erase_phys_cursor (w) - struct window *w; +erase_phys_cursor (struct window *w) { struct frame *f = XFRAME (w->frame); Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); @@ -23995,9 +23573,8 @@ where to put the cursor is specified by HPOS, VPOS, X and Y. */ void -display_and_set_cursor (w, on, hpos, vpos, x, y) - struct window *w; - int on, hpos, vpos, x, y; +display_and_set_cursor (struct window *w, int on, + int hpos, int vpos, int x, int y) { struct frame *f = XFRAME (w->frame); int new_cursor_type; @@ -24080,9 +23657,7 @@ of ON. */ void -update_window_cursor (w, on) - struct window *w; - int on; +update_window_cursor (struct window *w, int on) { /* Don't update cursor in windows whose frame is in the process of being deleted. */ @@ -24100,9 +23675,7 @@ in the window tree rooted at W. */ static void -update_cursor_in_window_tree (w, on_p) - struct window *w; - int on_p; +update_cursor_in_window_tree (struct window *w, int on_p) { while (w) { @@ -24123,9 +23696,7 @@ Don't change the cursor's position. */ void -x_update_cursor (f, on_p) - struct frame *f; - int on_p; +x_update_cursor (struct frame *f, int on_p) { update_cursor_in_window_tree (XWINDOW (f->root_window), on_p); } @@ -24137,8 +23708,7 @@ is about to be rewritten. */ void -x_clear_cursor (w) - struct window *w; +x_clear_cursor (struct window *w) { if (FRAME_VISIBLE_P (XFRAME (w->frame)) && w->phys_cursor_on_p) update_window_cursor (w, 0); @@ -24149,9 +23719,7 @@ Display the active region described by mouse_face_* according to DRAW. */ void -show_mouse_face (dpyinfo, draw) - Display_Info *dpyinfo; - enum draw_glyphs_face draw; +show_mouse_face (Display_Info *dpyinfo, enum draw_glyphs_face draw) { struct window *w = XWINDOW (dpyinfo->mouse_face_window); struct frame *f = XFRAME (WINDOW_FRAME (w)); @@ -24234,8 +23802,7 @@ face was actually drawn unhighlighted. */ int -clear_mouse_face (dpyinfo) - Display_Info *dpyinfo; +clear_mouse_face (Display_Info *dpyinfo) { int cleared = 0; @@ -24257,8 +23824,7 @@ Non-zero if physical cursor of window W is within mouse face. */ int -cursor_in_mouse_face_p (w) - struct window *w; +cursor_in_mouse_face_p (struct window *w) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (XFRAME (w->frame)); int in_mouse_face = 0; @@ -24483,12 +24049,8 @@ Value is non-zero if a glyph was found. */ static int -fast_find_string_pos (w, pos, object, hpos, vpos, x, y, right_p) - struct window *w; - EMACS_INT pos; - Lisp_Object object; - int *hpos, *vpos, *x, *y; - int right_p; +fast_find_string_pos (struct window *w, EMACS_INT pos, Lisp_Object object, + int *hpos, int *vpos, int *x, int *y, int right_p) { int yb = window_text_bottom_y (w); struct glyph_row *r; @@ -24552,9 +24114,7 @@ /* See if position X, Y is within a hot-spot of an image. */ static int -on_hot_spot_p (hot_spot, x, y) - Lisp_Object hot_spot; - int x, y; +on_hot_spot_p (Lisp_Object hot_spot, int x, int y) { if (!CONSP (hot_spot)) return 0; @@ -24650,9 +24210,7 @@ } Lisp_Object -find_hot_spot (map, x, y) - Lisp_Object map; - int x, y; +find_hot_spot (Lisp_Object map, int x, int y) { while (CONSP (map)) { @@ -24693,10 +24251,7 @@ /* Display frame CURSOR, optionally using shape defined by POINTER. */ static void -define_frame_cursor1 (f, cursor, pointer) - struct frame *f; - Cursor cursor; - Lisp_Object pointer; +define_frame_cursor1 (struct frame *f, Cursor cursor, Lisp_Object pointer) { /* Do not change cursor shape while dragging mouse. */ if (!NILP (do_mouse_tracking)) @@ -24735,10 +24290,8 @@ position relative to the start of the mode line. */ static void -note_mode_line_or_margin_highlight (window, x, y, area) - Lisp_Object window; - int x, y; - enum window_part area; +note_mode_line_or_margin_highlight (Lisp_Object window, int x, int y, + enum window_part area) { struct window *w = XWINDOW (window); struct frame *f = XFRAME (w->frame); @@ -24978,9 +24531,7 @@ X and Y can be negative or out of range. */ void -note_mouse_highlight (f, x, y) - struct frame *f; - int x, y; +note_mouse_highlight (struct frame *f, int x, int y) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); enum window_part part; @@ -25446,8 +24997,7 @@ functions to ensure the mouse-highlight is off. */ void -x_clear_window_mouse_face (w) - struct window *w; +x_clear_window_mouse_face (struct window *w) { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (XFRAME (w->frame)); Lisp_Object window; @@ -25465,8 +25015,7 @@ This is used when the size of F is changed. */ void -cancel_mouse_face (f) - struct frame *f; +cancel_mouse_face (struct frame *f) { Lisp_Object window; Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); @@ -25494,11 +25043,8 @@ which intersects rectangle R. R is in window-relative coordinates. */ static void -expose_area (w, row, r, area) - struct window *w; - struct glyph_row *row; - XRectangle *r; - enum glyph_row_area area; +expose_area (struct window *w, struct glyph_row *row, XRectangle *r, + enum glyph_row_area area) { struct glyph *first = row->glyphs[area]; struct glyph *end = row->glyphs[area] + row->used[area]; @@ -25552,10 +25098,7 @@ non-zero if mouse-face was overwritten. */ static int -expose_line (w, row, r) - struct window *w; - struct glyph_row *row; - XRectangle *r; +expose_line (struct window *w, struct glyph_row *row, XRectangle *r) { xassert (row->enabled_p); @@ -25587,11 +25130,10 @@ LAST_OVERLAPPING_ROW is the last such row. */ static void -expose_overlaps (w, first_overlapping_row, last_overlapping_row, r) - struct window *w; - struct glyph_row *first_overlapping_row; - struct glyph_row *last_overlapping_row; - XRectangle *r; +expose_overlaps (struct window *w, + struct glyph_row *first_overlapping_row, + struct glyph_row *last_overlapping_row, + XRectangle *r) { struct glyph_row *row; @@ -25617,9 +25159,7 @@ /* Return non-zero if W's cursor intersects rectangle R. */ static int -phys_cursor_in_rect_p (w, r) - struct window *w; - XRectangle *r; +phys_cursor_in_rect_p (struct window *w, XRectangle *r) { XRectangle cr, result; struct glyph *cursor_glyph; @@ -25665,8 +25205,7 @@ have vertical scroll bars. */ void -x_draw_vertical_border (w) - struct window *w; +x_draw_vertical_border (struct window *w) { struct frame *f = XFRAME (WINDOW_FRAME (w)); @@ -25716,9 +25255,7 @@ mouse-face. */ static int -expose_window (w, fr) - struct window *w; - XRectangle *fr; +expose_window (struct window *w, XRectangle *fr) { struct frame *f = XFRAME (w->frame); XRectangle wr, r; @@ -25851,9 +25388,7 @@ non-zero if the exposure overwrites mouse-face. */ static int -expose_window_tree (w, r) - struct window *w; - XRectangle *r; +expose_window_tree (struct window *w, XRectangle *r) { struct frame *f = XFRAME (w->frame); int mouse_face_overwritten_p = 0; @@ -25883,9 +25418,7 @@ the entire frame. */ void -expose_frame (f, x, y, w, h) - struct frame *f; - int x, y, w, h; +expose_frame (struct frame *f, int x, int y, int w, int h) { XRectangle r; int mouse_face_overwritten_p = 0; @@ -25973,8 +25506,7 @@ empty. */ int -x_intersect_rectangles (r1, r2, result) - XRectangle *r1, *r2, *result; +x_intersect_rectangles (XRectangle *r1, XRectangle *r2, XRectangle *result) { XRectangle *left, *right; XRectangle *upper, *lower; @@ -26029,7 +25561,7 @@ ***********************************************************************/ void -syms_of_xdisp () +syms_of_xdisp (void) { Vwith_echo_area_save_vector = Qnil; staticpro (&Vwith_echo_area_save_vector); @@ -26676,7 +26208,7 @@ /* Initialize this module when Emacs starts. */ void -init_xdisp () +init_xdisp (void) { Lisp_Object root_window; struct window *mini_w; @@ -26733,14 +26265,14 @@ /* Return non-zero if houglass timer has been started or hourglass is shown. */ int -hourglass_started () +hourglass_started (void) { return hourglass_shown_p || hourglass_atimer != NULL; } /* Cancel a currently active hourglass timer, and start a new one. */ void -start_hourglass () +start_hourglass (void) { #if defined (HAVE_WINDOW_SYSTEM) EMACS_TIME delay; @@ -26772,7 +26304,7 @@ /* Cancel the hourglass cursor timer if active, hide a busy cursor if shown. */ void -cancel_hourglass () +cancel_hourglass (void) { #if defined (HAVE_WINDOW_SYSTEM) if (hourglass_atimer)
--- a/src/xfns.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xfns.c Mon Jul 05 22:49:04 2010 +0000 @@ -1553,8 +1553,8 @@ int bytes, stringp; int do_free_icon_value = 0, do_free_text_value = 0; Lisp_Object coding_system; -#ifdef USE_GTK Lisp_Object encoded_name; + Lisp_Object encoded_icon_name; struct gcpro gcpro1; /* As ENCODE_UTF_8 may cause GC and relocation of string data, @@ -1562,7 +1562,6 @@ GCPRO1 (name); encoded_name = ENCODE_UTF_8 (name); UNGCPRO; -#endif coding_system = Qcompound_text; /* Note: Encoding strategy @@ -1578,7 +1577,12 @@ We may also be able to use "UTF8_STRING" in text.encoding in the future which can encode all Unicode characters. But, for the moment, there's no way to know that the - current window manager supports it or not. */ + current window manager supports it or not. + + Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME + properties. Per the EWMH specification, those two properties + are always UTF8_STRING. This matches what gtk_window_set_title() + does in the USE_GTK case. */ text.value = x_encode_text (name, coding_system, 0, &bytes, &stringp, &do_free_text_value); text.encoding = (stringp ? XA_STRING @@ -1589,6 +1593,7 @@ if (!STRINGP (f->icon_name)) { icon = text; + encoded_icon_name = encoded_name; } else { @@ -1599,6 +1604,8 @@ : FRAME_X_DISPLAY_INFO (f)->Xatom_COMPOUND_TEXT); icon.format = 8; icon.nitems = bytes; + + encoded_icon_name = ENCODE_UTF_8 (f->icon_name); } #ifdef USE_GTK @@ -1606,9 +1613,21 @@ (char *) SDATA (encoded_name)); #else /* not USE_GTK */ XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text); + XChangeProperty (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), + FRAME_X_DISPLAY_INFO (f)->Xatom_net_wm_name, + FRAME_X_DISPLAY_INFO (f)->Xatom_UTF8_STRING, + 8, PropModeReplace, + (char *) SDATA (encoded_name), + SBYTES (encoded_name)); #endif /* not USE_GTK */ XSetWMIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &icon); + XChangeProperty (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), + FRAME_X_DISPLAY_INFO (f)->Xatom_net_wm_icon_name, + FRAME_X_DISPLAY_INFO (f)->Xatom_UTF8_STRING, + 8, PropModeReplace, + (char *) SDATA (encoded_icon_name), + SBYTES (encoded_icon_name)); if (do_free_icon_value) xfree (icon.value);
--- a/src/xrdb.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xrdb.c Mon Jul 05 22:49:04 2010 +0000 @@ -68,7 +68,7 @@ extern struct passwd *getpwnam (const char *); #endif -extern char *get_system_name (); +extern char *get_system_name (void); /* Make sure not to #include anything after these definitions. Let's not step on anyone's prototypes. */
--- a/src/xsettings.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xsettings.c Mon Jul 05 22:49:04 2010 +0000 @@ -100,7 +100,10 @@ that is SYSTEM_MONO_FONT. */ static void -something_changedCB (GConfClient *client, guint cnxn_id, GConfEntry *entry, gpointer user_data) +something_changedCB (GConfClient *client, + guint cnxn_id, + GConfEntry *entry, + gpointer user_data) { GConfValue *v = gconf_entry_get_value (entry); @@ -108,7 +111,6 @@ if (v->type == GCONF_VALUE_STRING) { const char *value = gconf_value_get_string (v); - int i; if (current_mono_font != NULL && strcmp (value, current_mono_font) == 0) return; /* No change. */ @@ -222,7 +224,9 @@ */ static int -parse_settings (unsigned char *prop, long unsigned int bytes, struct xsettings *settings) +parse_settings (unsigned char *prop, + long unsigned int bytes, + struct xsettings *settings) { Lisp_Object byteorder = Fbyteorder (); int my_bo = XFASTINT (byteorder) == 'B' ? MSBFirst : LSBFirst; @@ -394,7 +398,6 @@ static int read_settings (struct x_display_info *dpyinfo, struct xsettings *settings) { - long long_len; Atom act_type; int act_form; unsigned long nitems, bytes_after; @@ -423,7 +426,9 @@ static void -apply_xft_settings (struct x_display_info *dpyinfo, int send_event_p, struct xsettings *settings) +apply_xft_settings (struct x_display_info *dpyinfo, + int send_event_p, + struct xsettings *settings) { #ifdef HAVE_XFT FcPattern *pat; @@ -620,7 +625,6 @@ init_gconf (void) { #if defined (HAVE_GCONF) && defined (HAVE_XFT) - int i; char *s; g_type_init ();
--- a/src/xsmfns.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xsmfns.c Mon Jul 05 22:49:04 2010 +0000 @@ -42,6 +42,9 @@ #include "termopts.h" #include "xterm.h" +/* Avoid "differ in sign" warnings */ +#define SSDATA(x) ((char *) SDATA (x)) + /* The user login name. */ extern Lisp_Object Vuser_login_name; @@ -184,18 +187,12 @@ we do so, because we don't know what the lisp code might do. */ static void -smc_save_yourself_CB (smcConn, - clientData, - saveType, - shutdown, - interactStyle, - fast) - SmcConn smcConn; - SmPointer clientData; - int saveType; - Bool shutdown; - int interactStyle; - Bool fast; +smc_save_yourself_CB (SmcConn smcConn, + SmPointer clientData, + int saveType, + Bool shutdown, + int interactStyle, + Bool fast) { #define NR_PROPS 5 @@ -225,7 +222,7 @@ props[props_idx]->type = SmARRAY8; props[props_idx]->num_vals = 1; props[props_idx]->vals = &values[val_idx++]; - props[props_idx]->vals[0].length = strlen (SDATA (Vinvocation_name)); + props[props_idx]->vals[0].length = strlen (SSDATA (Vinvocation_name)); props[props_idx]->vals[0].value = SDATA (Vinvocation_name); ++props_idx; @@ -269,7 +266,7 @@ props[props_idx]->type = SmARRAY8; props[props_idx]->num_vals = 1; props[props_idx]->vals = &values[val_idx++]; - props[props_idx]->vals[0].length = strlen (SDATA (Vuser_login_name)); + props[props_idx]->vals[0].length = strlen (SSDATA (Vuser_login_name)); props[props_idx]->vals[0].value = SDATA (Vuser_login_name); ++props_idx; @@ -336,39 +333,25 @@ because there is some error in the session management. */ static void -smc_error_handler (smcConn, - swap, - offendingMinorOpcode, - offendingSequence, - errorClass, - severity, - values) - SmcConn smcConn; - Bool swap; - int offendingMinorOpcode; - unsigned long offendingSequence; - int errorClass; - int severity; - SmPointer values; +smc_error_handler (SmcConn smcConn, + Bool swap, + int offendingMinorOpcode, + unsigned long offendingSequence, + int errorClass, + int severity, + SmPointer values) { /* Empty */ } static void -ice_error_handler (iceConn, - swap, - offendingMinorOpcode, - offendingSequence, - errorClass, - severity, - values) - IceConn iceConn; - Bool swap; - int offendingMinorOpcode; - unsigned long offendingSequence; - int errorClass; - int severity; - IcePointer values; +ice_error_handler (IceConn iceConn, + Bool swap, + int offendingMinorOpcode, + unsigned long offendingSequence, + int errorClass, + int severity, + IcePointer values) { /* Empty */ } @@ -408,6 +391,7 @@ /* Create the client leader window. */ +#ifndef USE_GTK static void create_client_leader_window (struct x_display_info *dpyinfo, char *client_id) { @@ -427,10 +411,12 @@ sm_id = XInternAtom (dpyinfo->display, "SM_CLIENT_ID", False); XChangeProperty (dpyinfo->display, w, sm_id, XA_STRING, 8, PropModeReplace, - client_id, strlen (client_id)); + (unsigned char *)client_id, strlen (client_id)); dpyinfo->client_leader_window = w; } +#endif /* ! USE_GTK */ + /* Try to open a connection to the session manager. */ @@ -449,12 +435,12 @@ /* Check if we where started by the session manager. If so, we will have a previous id. */ if (! EQ (Vx_session_previous_id, Qnil) && STRINGP (Vx_session_previous_id)) - previous_id = SDATA (Vx_session_previous_id); + previous_id = SSDATA (Vx_session_previous_id); /* Construct the path to the Emacs program. */ if (! EQ (Vinvocation_directory, Qnil)) - name_len += strlen (SDATA (Vinvocation_directory)); - name_len += strlen (SDATA (Vinvocation_name)); + name_len += strlen (SSDATA (Vinvocation_directory)); + name_len += strlen (SSDATA (Vinvocation_name)); /* This malloc will not be freed, but it is only done once, and hopefully not very large */ @@ -462,8 +448,8 @@ emacs_program[0] = '\0'; if (! EQ (Vinvocation_directory, Qnil)) - strcpy (emacs_program, SDATA (Vinvocation_directory)); - strcat (emacs_program, SDATA (Vinvocation_name)); + strcpy (emacs_program, SSDATA (Vinvocation_directory)); + strcat (emacs_program, SSDATA (Vinvocation_name)); /* The SM protocol says all callbacks are mandatory, so set up all here and in the mask passed to SmcOpenConnection. */
--- a/src/xterm.c Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xterm.c Mon Jul 05 22:49:04 2010 +0000 @@ -3103,10 +3103,8 @@ /* Make audible bell. */ void -XTring_bell (void) -{ - struct frame *f = SELECTED_FRAME (); - +XTring_bell (struct frame *f) +{ if (FRAME_X_DISPLAY (f)) { #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT) @@ -3130,7 +3128,7 @@ that is bounded by calls to x_update_begin and x_update_end. */ static void -XTset_terminal_window (register int n) +XTset_terminal_window (struct frame *f, int n) { /* This function intentionally left blank. */ } @@ -10209,6 +10207,10 @@ = XInternAtom (dpyinfo->display, "_NET_WM_WINDOW_TYPE", False); dpyinfo->Xatom_net_window_type_tooltip = XInternAtom (dpyinfo->display, "_NET_WM_WINDOW_TYPE_TOOLTIP", False); + dpyinfo->Xatom_net_wm_icon_name + = XInternAtom (dpyinfo->display, "_NET_WM_ICON_NAME", False); + dpyinfo->Xatom_net_wm_name + = XInternAtom (dpyinfo->display, "_NET_WM_NAME", False); dpyinfo->cut_buffers_initialized = 0;
--- a/src/xterm.h Sun Jul 04 23:34:54 2010 +0000 +++ b/src/xterm.h Mon Jul 05 22:49:04 2010 +0000 @@ -370,6 +370,9 @@ /* XSettings atoms and windows. */ Atom Xatom_xsettings_sel, Xatom_xsettings_prop, Xatom_xsettings_mgr; Window xsettings_window; + + /* Frame name and icon name */ + Atom Xatom_net_wm_name, Xatom_net_wm_icon_name; }; #ifdef HAVE_X_I18N