[Emacs-diffs] Changes to emacs/src/gtkutil.c

[Jan Djärv]

Index: emacs/src/gtkutil.c
diff -c emacs/src/gtkutil.c:1.47 emacs/src/gtkutil.c:1.48
*** emacs/src/gtkutil.c:1.47    Tue Nov  2 15:41:38 2004
--- emacs/src/gtkutil.c Thu Nov  4 14:18:22 2004
***************
*** 1178,1185 ****
  
  
    if (default_filename)
!     gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin),
!                                    default_filename);
  
    gtk_widget_show (filewin);
  
--- 1178,1201 ----
  
  
    if (default_filename)
!     {
!       Lisp_Object file;
!       struct gcpro gcpro1;
!       GCPRO1 (file);
! 
!       /* File chooser does not understand ~/... in the file name.  It must be
!          an absolute name starting with /.  */
!       if (default_filename[0] != '/')
!         {
!           file = Fexpand_file_name (build_string (default_filename), Qnil);
!           default_filename = SDATA (file);
!         }
! 
!       gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin),
!                                      default_filename);
! 
!       UNGCPRO;
!     }
  
    gtk_widget_show (filewin);