[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/fileio.c,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/fileio.c,v |
Date: |
Mon, 12 May 2008 18:31:29 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 08/05/12 18:31:27
Index: fileio.c
===================================================================
RCS file: /sources/emacs/emacs/src/fileio.c,v
retrieving revision 1.618
retrieving revision 1.619
diff -u -b -r1.618 -r1.619
--- fileio.c 9 May 2008 22:55:03 -0000 1.618
+++ fileio.c 12 May 2008 18:31:26 -0000 1.619
@@ -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,
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Glenn Morris, 2008/05/09
- [Emacs-diffs] Changes to emacs/src/fileio.c,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Glenn Morris, 2008/05/14
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Jason Rumney, 2008/05/22
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Stefan Monnier, 2008/05/28