Mercurial > hg > xemacs-beta

comparison src/frame-msw.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents a8d8f419b459
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
117 return FRAME_MSWINDOWS_HANDLE (XFRAME (frame)); 117 return FRAME_MSWINDOWS_HANDLE (XFRAME (frame));
118 } 118 }
119 119
120 static void 120 static void
121 mswindows_init_frame_1 (struct frame *f, Lisp_Object props, 121 mswindows_init_frame_1 (struct frame *f, Lisp_Object props,
122 int frame_name_is_defaulted) 122 int UNUSED (frame_name_is_defaulted))
123 { 123 {
124 Lisp_Object initially_unmapped; 124 Lisp_Object initially_unmapped;
125 Lisp_Object name, height, width, popup, top, left; 125 Lisp_Object name, height, width, popup, top, left;
126 Lisp_Object frame_obj = Qnil; 126 Lisp_Object frame_obj = Qnil;
127 RECT rect; 127 RECT rect;
259 mswindows_register_popup_frame (frame_obj); 259 mswindows_register_popup_frame (frame_obj);
260 #endif /* HAVE_DIALOGS */ 260 #endif /* HAVE_DIALOGS */
261 } 261 }
262 262
263 static void 263 static void
264 mswindows_init_frame_2 (struct frame *f, Lisp_Object props) 264 mswindows_init_frame_2 (struct frame *f, Lisp_Object UNUSED (props))
265 { 265 {
266 if (NILP (Vmswindows_use_system_frame_size_defaults)) 266 if (NILP (Vmswindows_use_system_frame_size_defaults))
267 { 267 {
268 /* I don't think anything can set the frame size before this 268 /* I don't think anything can set the frame size before this
269 since we don't have X resources. This may change if we look 269 since we don't have X resources. This may change if we look
284 SetForegroundWindow (FRAME_MSWINDOWS_HANDLE (f)); 284 SetForegroundWindow (FRAME_MSWINDOWS_HANDLE (f));
285 DragAcceptFiles (FRAME_MSWINDOWS_HANDLE (f), TRUE); 285 DragAcceptFiles (FRAME_MSWINDOWS_HANDLE (f), TRUE);
286 } 286 }
287 287
288 static void 288 static void
289 mswindows_after_init_frame (struct frame *f, int first_on_device, 289 mswindows_after_init_frame (struct frame *UNUSED (f),
290 int first_on_console) 290 int UNUSED (first_on_device), int first_on_console)
291 { 291 {
292 /* Windows, unlike X, is very synchronous. After the initial 292 /* Windows, unlike X, is very synchronous. After the initial
293 frame is created, it will never be displayed, except for 293 frame is created, it will never be displayed, except for
294 hollow border, unless we start pumping messages. Load progress 294 hollow border, unless we start pumping messages. Load progress
295 messages show in the bottom of the hollow frame, which is ugly. 295 messages show in the bottom of the hollow frame, which is ugly.
486 ClientToScreen (FRAME_MSWINDOWS_HANDLE (f), &pt); 486 ClientToScreen (FRAME_MSWINDOWS_HANDLE (f), &pt);
487 SetCursorPos (pt.x, pt.y); 487 SetCursorPos (pt.x, pt.y);
488 } 488 }
489 489
490 static int 490 static int
491 mswindows_get_mouse_position (struct device *d, Lisp_Object *frame, int *x, int *y) 491 mswindows_get_mouse_position (struct device *UNUSED (d), Lisp_Object *frame,
492 int *x, int *y)
492 { 493 {
493 POINT pt; 494 POINT pt;
494 HWND hwnd; 495 HWND hwnd;
495 496
496 GetCursorPos (&pt); 497 GetCursorPos (&pt);
573 } 574 }
574 return Qunbound; 575 return Qunbound;
575 } 576 }
576 577
577 static int 578 static int
578 mswindows_internal_frame_property_p (struct frame *f, Lisp_Object property) 579 mswindows_internal_frame_property_p (struct frame *UNUSED (f),
580 Lisp_Object property)
579 { 581 {
580 return EQ (property, Qleft) 582 return EQ (property, Qleft)
581 || EQ (property, Qtop); 583 || EQ (property, Qtop);
582 /* #### frame-x.c has also this. Why? 584 /* #### frame-x.c has also this. Why?
583 || STRINGP (property); 585 || STRINGP (property);
776 else 778 else
777 return Qnil; 779 return Qnil;
778 } 780 }
779 781
780 static void 782 static void
781 mswindows_update_frame_external_traits (struct frame *frm, Lisp_Object name) 783 mswindows_update_frame_external_traits (struct frame *UNUSED (frm),
784 Lisp_Object UNUSED (name))
782 { 785 {
783 } 786 }
784 787
785 static int 788 static int
786 mswindows_frame_size_fixed_p (struct frame *f) 789 mswindows_frame_size_fixed_p (struct frame *f)
833 if (FRAME_MSPRINTER_JOB_STARTED (f)) 836 if (FRAME_MSPRINTER_JOB_STARTED (f))
834 error_frame_unsizable (f); 837 error_frame_unsizable (f);
835 } 838 }
836 839
837 static void 840 static void
838 msprinter_init_frame_1 (struct frame *f, Lisp_Object props, 841 msprinter_init_frame_1 (struct frame *f, Lisp_Object UNUSED (props),
839 int frame_name_is_defaulted) 842 int UNUSED (frame_name_is_defaulted))
840 { 843 {
841 /* Make sure this is the only frame on device. Windows printer can 844 /* Make sure this is the only frame on device. Windows printer can
842 handle only one job at a time. */ 845 handle only one job at a time. */
843 if (!NILP (DEVICE_FRAME_LIST (XDEVICE (FRAME_DEVICE (f))))) 846 if (!NILP (DEVICE_FRAME_LIST (XDEVICE (FRAME_DEVICE (f)))))
844 invalid_operation ("Only one frame (print job) at a time is allowed on " 847 invalid_operation ("Only one frame (print job) at a time is allowed on "
962 FRAME_MSPRINTER_JOB_STARTED (f) = 1; 965 FRAME_MSPRINTER_JOB_STARTED (f) = 1;
963 FRAME_VISIBLE_P (f) = 0; 966 FRAME_VISIBLE_P (f) = 0;
964 } 967 }
965 968
966 static void 969 static void
967 msprinter_mark_frame (struct frame *f) 970 msprinter_mark_frame (struct frame *UNUSED (f))
968 { 971 {
969 } 972 }
970 973
971 static void 974 static void
972 msprinter_delete_frame (struct frame *f) 975 msprinter_delete_frame (struct frame *f)
998 else 1001 else
999 return Qunbound; 1002 return Qunbound;
1000 } 1003 }
1001 1004
1002 static int 1005 static int
1003 msprinter_internal_frame_property_p (struct frame *f, Lisp_Object property) 1006 msprinter_internal_frame_property_p (struct frame *UNUSED (f),
1007 Lisp_Object property)
1004 { 1008 {
1005 return (EQ (Qleft_margin, property) || EQ (Qtop_margin, property) || 1009 return (EQ (Qleft_margin, property) || EQ (Qtop_margin, property) ||
1006 EQ (Qright_margin, property) || EQ (Qbottom_margin, property)); 1010 EQ (Qright_margin, property) || EQ (Qbottom_margin, property));
1007 } 1011 }
1008 1012
1079 } 1083 }
1080 } 1084 }
1081 } 1085 }
1082 1086
1083 static void 1087 static void
1084 msprinter_set_frame_size (struct frame *f, int width, int height) 1088 msprinter_set_frame_size (struct frame *f, int UNUSED (width),
1089 int UNUSED (height))
1085 { 1090 {
1086 /* We're absolutely unsizeable */ 1091 /* We're absolutely unsizeable */
1087 error_frame_unsizable (f); 1092 error_frame_unsizable (f);
1088 } 1093 }
1089 1094