Mercurial > hg > xemacs-beta

diff src/dired.c @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
line wrap: on
line diff
--- a/src/dired.c	Mon Aug 13 09:23:08 2007 +0200
+++ b/src/dired.c	Mon Aug 13 09:24:17 2007 +0200
@@ -256,10 +256,14 @@
 {
   /* This function can GC */
   Lisp_Object handler;
+  struct gcpro gcpro1;
 
+  GCPRO1 (dirname);
+  dirname = Fexpand_file_name (dirname, Qnil);
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
   handler = Ffind_file_name_handler (dirname, Qfile_name_all_completions);
+  UNGCPRO;
   if (!NILP (handler))
     return call3 (handler, Qfile_name_all_completions, file,
 		  dirname);