Mercurial > emacs

comparison src/gtkutil.c @ 57940:a3fa0e63dd67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gtkutil.c (xg_get_file_with_chooser): Expand DEFAULT_FILENAME if it doesn't start with /.
author Jan Djärv <jan.h.d@swipnet.se>
date Thu, 04 Nov 2004 14:18:22 +0000
parents a76858072e78
children 68ea73fe257b
comparison
equal deleted inserted replaced
57939:35cb9a370d9e 57940:a3fa0e63dd67
1176 gtk_window_set_transient_for (GTK_WINDOW (filewin), gwin); 1176 gtk_window_set_transient_for (GTK_WINDOW (filewin), gwin);
1177 gtk_window_set_destroy_with_parent (GTK_WINDOW (filewin), TRUE); 1177 gtk_window_set_destroy_with_parent (GTK_WINDOW (filewin), TRUE);
1178 1178
1179 1179
1180 if (default_filename) 1180 if (default_filename)
1181 gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin), 1181 {
1182 default_filename); 1182 Lisp_Object file;
1183 struct gcpro gcpro1;
1184 GCPRO1 (file);
1185
1186 /* File chooser does not understand ~/... in the file name. It must be
1187 an absolute name starting with /. */
1188 if (default_filename[0] != '/')
1189 {
1190 file = Fexpand_file_name (build_string (default_filename), Qnil);
1191 default_filename = SDATA (file);
1192 }
1193
1194 gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin),
1195 default_filename);
1196
1197 UNGCPRO;
1198 }
1183 1199
1184 gtk_widget_show (filewin); 1200 gtk_widget_show (filewin);
1185 1201
1186 if (gtk_dialog_run (GTK_DIALOG (filewin)) == GTK_RESPONSE_OK) 1202 if (gtk_dialog_run (GTK_DIALOG (filewin)) == GTK_RESPONSE_OK)
1187 fn = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (filewin)); 1203 fn = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (filewin));