Mercurial > hg > xemacs-beta

comparison src/device-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
134 /************************************************************************/ 134 /************************************************************************/
135 /* display methods */ 135 /* display methods */
136 /************************************************************************/ 136 /************************************************************************/
137 137
138 static void 138 static void
139 mswindows_init_device (struct device *d, Lisp_Object props) 139 mswindows_init_device (struct device *d, Lisp_Object UNUSED (props))
140 { 140 {
141 HDC hdc; 141 HDC hdc;
142 WNDCLASSEXW wc; 142 WNDCLASSEXW wc;
143 143
144 DEVICE_CLASS (d) = Qcolor; 144 DEVICE_CLASS (d) = Qcolor;
250 mswindows_init_dde (); 250 mswindows_init_dde ();
251 #endif 251 #endif
252 } 252 }
253 253
254 static void 254 static void
255 mswindows_finish_init_device (struct device *d, Lisp_Object props) 255 mswindows_finish_init_device (struct device *UNUSED (d),
256 Lisp_Object UNUSED (props))
256 { 257 {
257 #ifdef HAVE_DRAGNDROP 258 #ifdef HAVE_DRAGNDROP
258 /* Tell pending clients we are ready. */ 259 /* Tell pending clients we are ready. */
259 mswindows_dde_enable = 1; 260 mswindows_dde_enable = 1;
260 #endif 261 #endif
486 /************************************************************************/ 487 /************************************************************************/
487 /* printer methods */ 488 /* printer methods */
488 /************************************************************************/ 489 /************************************************************************/
489 490
490 static void 491 static void
491 msprinter_init_device (struct device *d, Lisp_Object props) 492 msprinter_init_device (struct device *d, Lisp_Object UNUSED (props))
492 { 493 {
493 DEVMODEW *pdm; 494 DEVMODEW *pdm;
494 LONG dm_size; 495 LONG dm_size;
495 Extbyte *printer_name; 496 Extbyte *printer_name;
496 497
788 return result; 789 return result;
789 } 790 }
790 } 791 }
791 792
792 Lisp_Object 793 Lisp_Object
793 mswindows_handle_print_dialog_box (struct frame *f, Lisp_Object keys) 794 mswindows_handle_print_dialog_box (struct frame *UNUSED (f), Lisp_Object keys)
794 { 795 {
795 Lisp_Object device = Qunbound, settings = Qunbound; 796 Lisp_Object device = Qunbound, settings = Qunbound;
796 DWORD flags = PD_NOSELECTION; 797 DWORD flags = PD_NOSELECTION;
797 798
798 { 799 {
868 Lisp_Object val = make_int (MulDiv (margin, 144, mm_p ? 254 : 100)); 869 Lisp_Object val = make_int (MulDiv (margin, 144, mm_p ? 254 : 100));
869 return Fcons (prop, Fcons (val, plist)); 870 return Fcons (prop, Fcons (val, plist));
870 } 871 }
871 872
872 Lisp_Object 873 Lisp_Object
873 mswindows_handle_page_setup_dialog_box (struct frame *f, Lisp_Object keys) 874 mswindows_handle_page_setup_dialog_box (struct frame *UNUSED (f),
875 Lisp_Object keys)
874 { 876 {
875 Lisp_Object device = Qunbound, settings = Qunbound; 877 Lisp_Object device = Qunbound, settings = Qunbound;
876 Lisp_Object plist = Qnil; 878 Lisp_Object plist = Qnil;
877 879
878 { 880 {
1112 return data->device; 1114 return data->device;
1113 } 1115 }
1114 1116
1115 static void 1117 static void
1116 print_devmode (Lisp_Object obj, Lisp_Object printcharfun, 1118 print_devmode (Lisp_Object obj, Lisp_Object printcharfun,
1117 int escapeflag) 1119 int UNUSED (escapeflag))
1118 { 1120 {
1119 Lisp_Devmode *dm = XDEVMODE (obj); 1121 Lisp_Devmode *dm = XDEVMODE (obj);
1120 if (print_readably) 1122 if (print_readably)
1121 printing_unreadable_object ("#<msprinter-settings 0x%x>", 1123 printing_unreadable_object ("#<msprinter-settings 0x%x>",
1122 dm->header.uid); 1124 dm->header.uid);
1144 1146
1145 assert (NILP (dm->device)); 1147 assert (NILP (dm->device));
1146 } 1148 }
1147 1149
1148 static int 1150 static int
1149 equal_devmode (Lisp_Object obj1, Lisp_Object obj2, int depth) 1151 equal_devmode (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
1150 { 1152 {
1151 Lisp_Devmode *dm1 = XDEVMODE (obj1); 1153 Lisp_Devmode *dm1 = XDEVMODE (obj1);
1152 Lisp_Devmode *dm2 = XDEVMODE (obj2); 1154 Lisp_Devmode *dm2 = XDEVMODE (obj2);
1153 1155
1154 if ((dm1->devmode != NULL) != (dm1->devmode != NULL)) 1156 if ((dm1->devmode != NULL) != (dm1->devmode != NULL))