Mercurial > emacs

--- a/src/ChangeLog	Fri Aug 13 11:32:13 2010 +0300
+++ b/src/ChangeLog	Fri Aug 13 12:21:31 2010 +0300
@@ -1,5 +1,33 @@
 2010-08-13  Eli Zaretskii  <eliz@gnu.org>

+	* msdos.c (IT_set_face): Fix format string to match argument
+	types.
+	(IT_write_glyphs, IT_note_mode_line_highlight)
+	(IT_set_frame_parameters): Remove unused variables.
+	(x_set_menu_bar_lines): Declare set_menu_bar_lines.
+	(IT_set_terminal_modes): Disambiguate expression in if clause.
+	(Fmsdos_remember_default_colors): Return Qnil.
+	(IT_set_frame_parameters): Add parens to disambiguate boolean
+	expression for logging the cursor type to termscript.
+	(keyboard_layout_list, keypad_translate_map)
+	(grey_key_translate_map): Add braces in inner initializers.
+	(dos_rawgetc): Add parens in condition for mouse-3 button-press.
+	(dos_rawgetc): Remove unused label.
+	(XMenuActivate): Add braces to remove ambiguous `else'.
+	(dos_ttraw): Always return a value.
+	(spawnve): Declare.
+	(run_msdos_command): Cast 3rd arg of spawnve to "char **".
+
+	* dosfns.h (x_set_title): Declare.
+
+	* w16select.c (Fw16_set_clipboard_data, Fw16_get_clipboard_data):
+	Remove unused variables.
+
+	* dosfns.c (Fint86, Fdos_memget, Fdos_memput): Remove unused
+	variables.
+	(init_dosfns): Declare get_lim_data.
+	(system_process_attributes): Declare Fget_internal_run_time.
+
 	* xmenu.c (xmenu_show) [!USE_X_TOOLKIT && !USE_GTK]: Fix argument
 	list to be consistent with menu.h.
--- a/src/dosfns.c	Fri Aug 13 11:32:13 2010 +0300
+++ b/src/dosfns.c	Fri Aug 13 12:21:31 2010 +0300
@@ -60,7 +60,6 @@
   register int i;
   int no;
   union REGS inregs, outregs;
-  Lisp_Object val;

   CHECK_NUMBER (interrupt);
   no = (unsigned long) XINT (interrupt);
@@ -101,7 +100,6 @@
   register int i;
   int offs, len;
   char *buf;
-  Lisp_Object val;

   CHECK_NUMBER (address);
   offs = (unsigned long) XINT (address);
@@ -125,7 +123,6 @@
   register int i;
   int offs, len;
   char *buf;
-  Lisp_Object val;

   CHECK_NUMBER (address);
   offs = (unsigned long) XINT (address);
@@ -286,6 +283,8 @@
   unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;

 #ifndef SYSTEM_MALLOC
+  extern void get_lim_data (void);
+
   get_lim_data (); /* why the hell isn't this called elsewhere? */
 #endif

@@ -558,6 +557,7 @@
       int i;
       Lisp_Object cmd_str, decoded_cmd, tem;
       double pmem;
+      EXFUN (Fget_internal_run_time, 0);
 #ifndef SYSTEM_MALLOC
       extern unsigned long ret_lim_data ();
 #endif
--- a/src/dosfns.h	Fri Aug 13 11:32:13 2010 +0300
+++ b/src/dosfns.h	Fri Aug 13 12:21:31 2010 +0300
@@ -40,6 +40,7 @@

 extern int         msdos_stdcolor_idx  (const char *);
 extern Lisp_Object msdos_stdcolor_name (int);
+extern void        x_set_title (struct frame *, Lisp_Object);
 #endif

 /* arch-tag: a83b8c4c-63c8-451e-9e94-bc72e3e2f8bc
--- a/src/msdos.c	Fri Aug 13 11:32:13 2010 +0300
+++ b/src/msdos.c	Fri Aug 13 12:21:31 2010 +0300
@@ -68,8 +68,10 @@
 #include <pc.h>
 #include <ctype.h>
 /* #include <process.h> */
-/* Damn that local process.h!  Instead we can define P_WAIT ourselves.  */
+/* Damn that local process.h!  Instead we can define P_WAIT and
+   spawnve ourselves.  */
 #define P_WAIT 1
+extern int spawnve (int, const char *, char *const [], char *const []);

 #ifndef _USE_LFN
 #define _USE_LFN 0
@@ -827,7 +829,7 @@
       bg = tem2;
     }
   if (tty->termscript)
-    fprintf (tty->termscript, "<FACE %d: %d/%d[FG:%d/BG:%d]>", face,
+    fprintf (tty->termscript, "<FACE %d: %lu/%lu[FG:%lu/BG:%lu]>", face,
 	     fp->foreground, fp->background, fg, bg);
   if (fg >= 0 && fg < 16)
     {
@@ -859,12 +861,6 @@
   struct frame *sf;
   unsigned char *conversion_buffer;

-  /* Do we need to consider conversion of unibyte characters to
-     multibyte?  */
-  int convert_unibyte_characters
-    = (NILP (current_buffer->enable_multibyte_characters)
-       && unibyte_display_via_language_environment);
-
   /* If terminal_coding does any conversion, use it, otherwise use
      safe_terminal_coding.  We can't use CODING_REQUIRE_ENCODING here
      because it always returns 1 if terminal_coding.src_multibyte is 1.  */
@@ -1180,8 +1176,6 @@
 static void
 IT_note_mode_line_highlight (struct window *w, int x, int mode_line_p)
 {
-  struct frame *f = XFRAME (w->frame);
-  struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
   struct glyph_row *row;

   if (mode_line_p)
@@ -1192,7 +1186,7 @@
   if (row->enabled_p)
     {
       struct glyph *glyph, *end;
-      Lisp_Object help, map;
+      Lisp_Object help;

       /* Find the glyph under X.  */
       glyph = (row->glyphs[TEXT_AREA]
@@ -1873,6 +1867,8 @@
 void
 x_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
 {
+  extern void set_menu_bar_lines (struct frame *, Lisp_Object, Lisp_Object);
+
   set_menu_bar_lines (f, value, oldval);
 }

@@ -1939,7 +1935,7 @@
 	   already point to the relocated buffer address returned by
 	   the Int 10h/AX=FEh call above.  DJGPP v2.02 and later sets
 	   ScreenPrimary to that address at startup under DOS/V.  */
-	if (regs.x.es != (ScreenPrimary >> 4) & 0xffff)
+	if (regs.x.es != ((ScreenPrimary >> 4) & 0xffff))
 	  screen_old_address = ScreenPrimary;
 	screen_virtual_segment = regs.x.es;
 	screen_virtual_offset  = regs.x.di;
@@ -2056,6 +2052,8 @@
      frame colors are reversed.  */
   initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f);
   initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f);
+
+  return Qnil;
 }

 void
@@ -2071,7 +2069,6 @@
   int reverse = EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt);
   int redraw = 0, fg_set = 0, bg_set = 0;
   unsigned long orig_fg, orig_bg;
-  Lisp_Object frame_bg, frame_fg;
   struct tty_display_info *tty = FRAME_TTY (f);

   /* If we are creating a new frame, begin with the original screen colors
@@ -2195,9 +2192,10 @@
 	  IT_set_cursor_type (f, val);
 	  if (tty->termscript)
 	    fprintf (tty->termscript, "<CTYPE: %s>\n",
-		     EQ (val, Qbar) || EQ (val, Qhbar)
-		     || CONSP (val) && (EQ (XCAR (val), Qbar)
-					|| EQ (XCAR (val), Qhbar))
+		     EQ (val, Qbar)
+		     || EQ (val, Qhbar)
+		     || (CONSP (val) && (EQ (XCAR (val), Qbar)
+					 || EQ (XCAR (val), Qhbar)))
 		     ? "bar" : "box");
 	}
       else if (EQ (prop, Qtty_type))
@@ -2214,8 +2212,6 @@
      the current frame colors.  */
   if (reverse)
     {
-      Lisp_Object frame;
-
       if (!fg_set)
 	{
 	  FRAME_FOREGROUND_PIXEL (f) = orig_bg;
@@ -2532,11 +2528,11 @@
   struct dos_keyboard_map *keyboard_map;
 } keyboard_layout_list[] =
 {
-  1, &us_keyboard,
-  33, &fr_keyboard,
-  39, &it_keyboard,
-  45, &dk_keyboard,
-  81, &jp_keyboard
+  { 1, &us_keyboard },
+  { 33, &fr_keyboard },
+  { 39, &it_keyboard },
+  { 45, &dk_keyboard },
+  { 81, &jp_keyboard }
 };

 static struct dos_keyboard_map *keyboard;
@@ -2581,17 +2577,17 @@
   unsigned char keypad_code;	/* keypad code	*/
   unsigned char editkey_code;	/* edit key	*/
 } keypad_translate_map[] = {
-  '0',  '0',  0xb0, /* kp-0 */		0x63, /* insert */
-  '1',  '1',  0xb1, /* kp-1 */		0x57, /* end */
-  '2',  '2',  0xb2, /* kp-2 */		0x54, /* down */
-  '3',  '3',  0xb3, /* kp-3 */		0x56, /* next */
-  '4',  '4',  0xb4, /* kp-4 */		0x51, /* left */
-  '5',  '5',  0xb5, /* kp-5 */		0xb5, /* kp-5 */
-  '6',  '6',  0xb6, /* kp-6 */		0x53, /* right */
-  '7',  '7',  0xb7, /* kp-7 */		0x50, /* home */
-  '8',  '8',  0xb8, /* kp-8 */		0x52, /* up */
-  '9',  '9',  0xb9, /* kp-9 */		0x55, /* prior */
-  '.',  '-',  0xae, /* kp-decimal */	0xff  /* delete */
+  { '0',  '0',  0xb0, /* kp-0 */		0x63 /* insert */ },
+  { '1',  '1',  0xb1, /* kp-1 */		0x57 /* end */    },
+  { '2',  '2',  0xb2, /* kp-2 */		0x54 /* down */   },
+  { '3',  '3',  0xb3, /* kp-3 */		0x56 /* next */   },
+  { '4',  '4',  0xb4, /* kp-4 */		0x51 /* left */   },
+  { '5',  '5',  0xb5, /* kp-5 */		0xb5 /* kp-5 */   },
+  { '6',  '6',  0xb6, /* kp-6 */		0x53 /* right */  },
+  { '7',  '7',  0xb7, /* kp-7 */		0x50 /* home */   },
+  { '8',  '8',  0xb8, /* kp-8 */		0x52 /* up */     },
+  { '9',  '9',  0xb9, /* kp-9 */		0x55 /* prior */  },
+  { '.',  '-',  0xae, /* kp-decimal */		0xff  /* delete */}
 };

 static struct
@@ -2599,11 +2595,11 @@
   unsigned char char_code;	/* normal code	*/
   unsigned char keypad_code;	/* keypad code	*/
 } grey_key_translate_map[] = {
-  '/',  0xaf, /* kp-decimal */
-  '*',  0xaa, /* kp-multiply */
-  '-',  0xad, /* kp-subtract */
-  '+',  0xab, /* kp-add */
-  '\r', 0x8d  /* kp-enter */
+  { '/',  0xaf /* kp-decimal */  },
+  { '*',  0xaa /* kp-multiply */ },
+  { '-',  0xad /* kp-subtract */ },
+  { '+',  0xab /* kp-add */      },
+  { '\r', 0x8d  /* kp-enter */   }
 };

 static unsigned short
@@ -3129,7 +3125,6 @@
 	  break;
 	}

-    make_event:
       if (code == 0)
 	continue;

@@ -3237,14 +3232,14 @@
 		    /* If only one button is pressed, wait 100 msec and
 		       check again.  This way, Speedy Gonzales isn't
 		       punished, while the slow get their chance.  */
-		    if (press && mouse_pressed (1-but, &x2, &y2)
-			|| !press && mouse_released (1-but, &x2, &y2))
+		    if ((press && mouse_pressed (1-but, &x2, &y2))
+			|| (!press && mouse_released (1-but, &x2, &y2)))
 		      button_num = 2;
 		    else
 		      {
 			delay (100);
-			if (press && mouse_pressed (1-but, &x2, &y2)
-			    || !press && mouse_released (1-but, &x2, &y2))
+			if ((press && mouse_pressed (1-but, &x2, &y2))
+			    || (!press && mouse_released (1-but, &x2, &y2)))
 			  button_num = 2;
 		      }
 		  }
@@ -3680,10 +3675,12 @@
 		if (0 <= dy && dy < state[i].menu->count)
 		  {
 		    if (!state[i].menu->submenu[dy])
-		      if (state[i].menu->panenumber[dy])
-			result = XM_SUCCESS;
-		      else
-			result = XM_IA_SELECT;
+		      {
+			if (state[i].menu->panenumber[dy])
+			  result = XM_SUCCESS;
+			else
+			  result = XM_IA_SELECT;
+		      }
 		    *pane = state[i].pane - 1;
 		    *selidx = dy;
 		    /* We hit some part of a menu, so drop extra menus that
@@ -4181,7 +4178,7 @@
   /* If we are called for the initial terminal, it's too early to do
      anything, and termscript isn't set up.  */
   if (tty->terminal->type == output_initial)
-    return;
+    return 2;

   break_stat = getcbrk ();
   setcbrk (0);
@@ -4367,7 +4364,7 @@
 	result = 0;	/* emulate Unixy shell behavior with empty cmd line */
     }
   else
-    result = spawnve (P_WAIT, argv[0], argv, envv);
+    result = spawnve (P_WAIT, argv[0], (char **)argv, envv);

   dup2 (inbak, 0);
   dup2 (outbak, 1);
--- a/src/w16select.c	Fri Aug 13 11:32:13 2010 +0300
+++ b/src/w16select.c	Fri Aug 13 12:21:31 2010 +0300
@@ -456,7 +456,7 @@
   (Lisp_Object string, Lisp_Object frame)
 {
   unsigned ok = 1, put_status = 0;
-  int nbytes, charset_info, no_crlf_conversion;
+  int nbytes, no_crlf_conversion;
   unsigned char *src, *dst = NULL;

   CHECK_STRING (string);
@@ -494,9 +494,7 @@
     {
       /* We must encode contents of STRING according to what
 	 clipboard-coding-system specifies.  */
-      int bufsize;
       struct coding_system coding;
-      unsigned char *htext2;
       Lisp_Object coding_system =
 	NILP (Vnext_selection_coding_system) ?
 	Vselection_coding_system : Vnext_selection_coding_system;
@@ -567,7 +565,7 @@
   unsigned data_size, truelen;
   unsigned char *htext = NULL;
   Lisp_Object ret = Qnil;
-  int no_crlf_conversion, require_decoding = 0;
+  int require_decoding = 0;

   if (NILP (frame))
     frame = Fselected_frame ();
@@ -608,8 +606,6 @@
   }
   if (require_decoding)
     {
-      int bufsize;
-      unsigned char *buf;
       struct coding_system coding;
       Lisp_Object coding_system = Vnext_selection_coding_system;