diff src/fileio.c @ 94885:a69e407ec0dd

(double_dollars): Remove dead code.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 May 2008 18:31:26 +0000
parents 4d2fe01917d3
children 8971ddf55736
line wrap: on
line diff
--- a/src/fileio.c	Mon May 12 18:21:24 2008 +0000
+++ b/src/fileio.c	Mon May 12 18:31:26 2008 +0000
@@ -6088,43 +6088,6 @@
 }
 
 /* Reading and completing file names */
-extern Lisp_Object Ffile_name_completion (), Ffile_name_all_completions ();
-extern Lisp_Object Qcompletion_ignore_case;
-
-/* In the string VAL, change each $ to $$ and return the result.  */
-
-static Lisp_Object
-double_dollars (val)
-     Lisp_Object val;
-{
-  register const unsigned char *old;
-  register unsigned char *new;
-  register int n;
-  int osize, count;
-
-  osize = SBYTES (val);
-
-  /* Count the number of $ characters.  */
-  for (n = osize, count = 0, old = SDATA (val); n > 0; n--)
-    if (*old++ == '$') count++;
-  if (count > 0)
-    {
-      old = SDATA (val);
-      val = make_uninit_multibyte_string (SCHARS (val) + count,
-					  osize + count);
-      new = SDATA (val);
-      for (n = osize; n > 0; n--)
-	if (*old != '$')
-	  *new++ = *old++;
-	else
-	  {
-	    *new++ = '$';
-	    *new++ = '$';
-	    old++;
-	  }
-    }
-  return val;
-}
 
 DEFUN ("next-read-file-uses-dialog-p", Fnext_read_file_uses_dialog_p,
        Snext_read_file_uses_dialog_p, 0, 0, 0,