Mercurial > emacs
comparison src/xterm.c @ 69595:f57904524ef9
(x_term_init): Remove unnecessary GCPRO.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 20 Mar 2006 06:23:55 +0000 |
parents | 1ea752831737 |
children | 761eaec1aae4 |
comparison
equal
deleted
inserted
replaced
69594:ae6acd1629af | 69595:f57904524ef9 |
---|---|
10202 /* NULL window -> events for all windows go to our function */ | 10202 /* NULL window -> events for all windows go to our function */ |
10203 gdk_window_add_filter (NULL, event_handler_gdk, NULL); | 10203 gdk_window_add_filter (NULL, event_handler_gdk, NULL); |
10204 | 10204 |
10205 /* Load our own gtkrc if it exists. */ | 10205 /* Load our own gtkrc if it exists. */ |
10206 { | 10206 { |
10207 struct gcpro gcpro1, gcpro2; | |
10208 char *file = "~/.emacs.d/gtkrc"; | 10207 char *file = "~/.emacs.d/gtkrc"; |
10209 Lisp_Object s, abs_file; | 10208 Lisp_Object s, abs_file; |
10210 | 10209 |
10211 GCPRO2 (s, abs_file); | |
10212 s = make_string (file, strlen (file)); | 10210 s = make_string (file, strlen (file)); |
10213 abs_file = Fexpand_file_name (s, Qnil); | 10211 abs_file = Fexpand_file_name (s, Qnil); |
10214 | 10212 |
10215 if (! NILP (abs_file) && !NILP (Ffile_readable_p (abs_file))) | 10213 if (! NILP (abs_file) && !NILP (Ffile_readable_p (abs_file))) |
10216 gtk_rc_parse (SDATA (abs_file)); | 10214 gtk_rc_parse (SDATA (abs_file)); |