Mercurial > hg > xemacs-beta

comparison src/console-gtk.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 79c6ff3eef26
children a25c824ed558
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
35 #include "console-gtk-impl.h" 35 #include "console-gtk-impl.h"
36 36
37 DEFINE_CONSOLE_TYPE (gtk); 37 DEFINE_CONSOLE_TYPE (gtk);
38 38
39 static int 39 static int
40 gtk_initially_selected_for_input (struct console *con) 40 gtk_initially_selected_for_input (struct console *UNUSED (con))
41 { 41 {
42 return 1; 42 return 1;
43 } 43 }
44 44
45 /* Remember, in all of the following functions, we have to verify 45 /* Remember, in all of the following functions, we have to verify
46 the integrity of our input, because the generic functions don't. */ 46 the integrity of our input, because the generic functions don't. */
47 47
48 static Lisp_Object 48 static Lisp_Object
49 gtk_device_to_console_connection (Lisp_Object connection, Error_Behavior errb) 49 gtk_device_to_console_connection (Lisp_Object connection,
50 Error_Behavior UNUSED (errb))
50 { 51 {
51 /* Strip the trailing .# off of the connection, if it's there. */ 52 /* Strip the trailing .# off of the connection, if it's there. */
52 53
53 if (NILP (connection)) 54 if (NILP (connection))
54 return Qnil; 55 return Qnil;
59 return connection; 60 return connection;
60 } 61 }
61 62
62 static Lisp_Object 63 static Lisp_Object
63 gtk_semi_canonicalize_console_connection (Lisp_Object connection, 64 gtk_semi_canonicalize_console_connection (Lisp_Object connection,
64 Error_Behavior errb) 65 Error_Behavior UNUSED (errb))
65 { 66 {
66 struct gcpro gcpro1; 67 struct gcpro gcpro1;
67 68
68 GCPRO1 (connection); 69 GCPRO1 (connection);
69 70
71 72
72 RETURN_UNGCPRO (connection); 73 RETURN_UNGCPRO (connection);
73 } 74 }
74 75
75 static Lisp_Object 76 static Lisp_Object
76 gtk_canonicalize_console_connection (Lisp_Object connection, Error_Behavior errb) 77 gtk_canonicalize_console_connection (Lisp_Object connection,
78 Error_Behavior UNUSED (errb))
77 { 79 {
78 Lisp_Object hostname = Qnil; 80 Lisp_Object hostname = Qnil;
79 struct gcpro gcpro1, gcpro2; 81 struct gcpro gcpro1, gcpro2;
80 82
81 GCPRO2 (connection, hostname); 83 GCPRO2 (connection, hostname);
85 RETURN_UNGCPRO (connection); 87 RETURN_UNGCPRO (connection);
86 } 88 }
87 89
88 static Lisp_Object 90 static Lisp_Object
89 gtk_semi_canonicalize_device_connection (Lisp_Object connection, 91 gtk_semi_canonicalize_device_connection (Lisp_Object connection,
90 Error_Behavior errb) 92 Error_Behavior UNUSED (errb))
91 { 93 {
92 struct gcpro gcpro1; 94 struct gcpro gcpro1;
93 95
94 GCPRO1 (connection); 96 GCPRO1 (connection);
95 97
97 99
98 RETURN_UNGCPRO (connection); 100 RETURN_UNGCPRO (connection);
99 } 101 }
100 102
101 static Lisp_Object 103 static Lisp_Object
102 gtk_canonicalize_device_connection (Lisp_Object connection, Error_Behavior errb) 104 gtk_canonicalize_device_connection (Lisp_Object connection,
105 Error_Behavior UNUSED (errb))
103 { 106 {
104 struct gcpro gcpro1; 107 struct gcpro gcpro1;
105 108
106 GCPRO1 (connection); 109 GCPRO1 (connection);
107 connection = build_string("gtk"); 110 connection = build_string("gtk");