Mercurial > hg > xemacs-beta

comparison src/console.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 71477bc21fe8
children 91a83e231f92
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
147 147
148 return Qnil; 148 return Qnil;
149 } 149 }
150 150
151 static void 151 static void
152 print_console (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 152 print_console (Lisp_Object obj, Lisp_Object printcharfun,
153 int UNUSED (escapeflag))
153 { 154 {
154 struct console *con = XCONSOLE (obj); 155 struct console *con = XCONSOLE (obj);
155 156
156 if (print_readably) 157 if (print_readably)
157 printing_unreadable_object ("#<console %s 0x%x>", 158 printing_unreadable_object ("#<console %s 0x%x>",
972 973
973 /* If STUFFSTRING is a string, stuff its contents as pending terminal input. 974 /* If STUFFSTRING is a string, stuff its contents as pending terminal input.
974 Then in any case stuff anything Emacs has read ahead and not used. */ 975 Then in any case stuff anything Emacs has read ahead and not used. */
975 976
976 void 977 void
977 stuff_buffered_input (Lisp_Object stuffstring) 978 stuff_buffered_input (
979 #ifdef BSD
980 Lisp_Object stuffstring
981 #else
982 Lisp_Object UNUSED (stuffstring)
983 #endif
984 )
978 { 985 {
979 /* stuff_char works only in BSD, versions 4.2 and up. */ 986 /* stuff_char works only in BSD, versions 4.2 and up. */
980 #if defined (BSD) 987 #if defined (BSD)
981 if (!CONSOLEP (Vcontrolling_terminal) || 988 if (!CONSOLEP (Vcontrolling_terminal) ||
982 !CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal))) 989 !CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
1100 Optional fourth arg QUIT if non-nil specifies character to use for quitting. 1107 Optional fourth arg QUIT if non-nil specifies character to use for quitting.
1101 Optional fifth arg CONSOLE specifies console to make changes to; nil means 1108 Optional fifth arg CONSOLE specifies console to make changes to; nil means
1102 the selected console. 1109 the selected console.
1103 See also `current-input-mode'. 1110 See also `current-input-mode'.
1104 */ 1111 */
1105 (ignored, flow, meta, quit, console)) 1112 (UNUSED (ignored), flow, meta, quit, console))
1106 { 1113 {
1107 struct console *con = decode_console (console); 1114 struct console *con = decode_console (console);
1108 int meta_key = (!CONSOLE_TTY_P (con) ? 1 : 1115 int meta_key = (!CONSOLE_TTY_P (con) ? 1 :
1109 EQ (meta, Qnil) ? 0 : 1116 EQ (meta, Qnil) ? 0 :
1110 EQ (meta, Qt) ? 1 : 1117 EQ (meta, Qt) ? 1 :