aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorYAMAMOTO Mitsuharu2006-04-12 08:07:32 +0000
committerYAMAMOTO Mitsuharu2006-04-12 08:07:32 +0000
commit28a11ed69d786148a28808b208e520bbde51387b (patch)
treee8194fb84bbcf640f2e6c265888ba5a7ea1fdcd6 /src
parent1fcd1370e2c893b3cf233cea502d285a04cf48ee (diff)
downloademacs-28a11ed69d786148a28808b208e520bbde51387b.tar.gz
emacs-28a11ed69d786148a28808b208e520bbde51387b.zip
(x_to_mac_color): Remove unused variable `tail'.
(x_set_mouse_color): Remove unused variable `dpy'. (Fx_create_frame): Remove unused variable `x_frame_count'. (Fx_server_version): Add explicit braces to avoid ambiguous `else'. (x_sync): Move from macterm.c. (Fx_file_dialog): Remove unused variable `default_filter_index'.
Diffstat (limited to 'src')
-rw-r--r--src/macfns.c49
1 files changed, 28 insertions, 21 deletions
diff --git a/src/macfns.c b/src/macfns.c
index 8e241205cd4..f9a5f051eb4 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -1024,7 +1024,7 @@ Lisp_Object
1024x_to_mac_color (colorname) 1024x_to_mac_color (colorname)
1025 char * colorname; 1025 char * colorname;
1026{ 1026{
1027 register Lisp_Object tail, ret = Qnil; 1027 register Lisp_Object ret = Qnil;
1028 1028
1029 BLOCK_INPUT; 1029 BLOCK_INPUT;
1030 1030
@@ -1359,7 +1359,6 @@ x_set_mouse_color (f, arg, oldval)
1359 Lisp_Object arg, oldval; 1359 Lisp_Object arg, oldval;
1360{ 1360{
1361 struct x_output *x = f->output_data.x; 1361 struct x_output *x = f->output_data.x;
1362 Display *dpy = FRAME_MAC_DISPLAY (f);
1363 Cursor cursor, nontext_cursor, mode_cursor, hand_cursor; 1362 Cursor cursor, nontext_cursor, mode_cursor, hand_cursor;
1364 Cursor hourglass_cursor, horizontal_drag_cursor; 1363 Cursor hourglass_cursor, horizontal_drag_cursor;
1365 unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f)); 1364 unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
@@ -2387,7 +2386,6 @@ This function is an internal primitive--use `make-frame' instead. */)
2387 struct mac_display_info *dpyinfo = NULL; 2386 struct mac_display_info *dpyinfo = NULL;
2388 Lisp_Object parent; 2387 Lisp_Object parent;
2389 struct kboard *kb; 2388 struct kboard *kb;
2390 static int x_frame_count = 2; /* begins at 2 because terminal frame is F1 */
2391 2389
2392 check_mac (); 2390 check_mac ();
2393 2391
@@ -2910,23 +2908,25 @@ If omitted or nil, that stands for the selected frame's display. */)
2910 BLOCK_INPUT; 2908 BLOCK_INPUT;
2911 err = Gestalt (gestaltSystemVersion, &response); 2909 err = Gestalt (gestaltSystemVersion, &response);
2912 if (err == noErr) 2910 if (err == noErr)
2913 if (response >= 0x00001040) 2911 {
2914 { 2912 if (response >= 0x00001040)
2915 err = Gestalt ('sys1', &major); /* gestaltSystemVersionMajor */ 2913 {
2916 if (err == noErr) 2914 err = Gestalt ('sys1', &major); /* gestaltSystemVersionMajor */
2917 err = Gestalt ('sys2', &minor); /* gestaltSystemVersionMinor */ 2915 if (err == noErr)
2918 if (err == noErr) 2916 err = Gestalt ('sys2', &minor); /* gestaltSystemVersionMinor */
2919 err = Gestalt ('sys3', &bugfix); /* gestaltSystemVersionBugFix */ 2917 if (err == noErr)
2920 } 2918 err = Gestalt ('sys3', &bugfix); /* gestaltSystemVersionBugFix */
2921 else 2919 }
2922 { 2920 else
2923 bugfix = response & 0xf; 2921 {
2924 response >>= 4; 2922 bugfix = response & 0xf;
2925 minor = response & 0xf; 2923 response >>= 4;
2926 response >>= 4; 2924 minor = response & 0xf;
2927 /* convert BCD to int */ 2925 response >>= 4;
2928 major = response - (response >> 4) * 6; 2926 /* convert BCD to int */
2929 } 2927 major = response - (response >> 4) * 6;
2928 }
2929 }
2930 UNBLOCK_INPUT; 2930 UNBLOCK_INPUT;
2931 2931
2932 if (err != noErr) 2932 if (err != noErr)
@@ -3210,6 +3210,14 @@ DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
3210 return Qnil; 3210 return Qnil;
3211} 3211}
3212 3212
3213/* x_sync is a no-op on Mac. */
3214
3215void
3216x_sync (f)
3217 FRAME_PTR f;
3218{
3219}
3220
3213 3221
3214/*********************************************************************** 3222/***********************************************************************
3215 Window properties 3223 Window properties
@@ -4187,7 +4195,6 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4187 int count = SPECPDL_INDEX (); 4195 int count = SPECPDL_INDEX ();
4188 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; 4196 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
4189 char filename[MAXPATHLEN]; 4197 char filename[MAXPATHLEN];
4190 int default_filter_index = 1; /* 1: All Files, 2: Directories only */
4191 static NavEventUPP mac_nav_event_callbackUPP = NULL; 4198 static NavEventUPP mac_nav_event_callbackUPP = NULL;
4192 4199
4193 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p); 4200 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);