From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 15 Mar 2011 02:48:24 +0000 (-0700)
Subject: * fileio.c (Fmake_directory_internal, Fread_file_name): Remove unused vars.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~554^2~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd4ead52062abcb8d8356595708229d83021f042;p=emacs.git

* fileio.c (Fmake_directory_internal, Fread_file_name): Remove unused vars.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 9393cec02a9..567fe22a941 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -6,6 +6,7 @@
 	(file_name_as_directory): Use const pointers when appropriate.
 	(Fexpand_file_name): Likewise.  In particular, newdir might
 	point at constant storage, so make it a const pointer.
+	(Fmake_directory_internal, Fread_file_name): Remove unused vars.
 
 	* minibuf.c (choose_minibuf_frame_1): Now static.
 	(Ftry_completion, Fall_completions): Rename or remove locals
diff --git a/src/fileio.c b/src/fileio.c
index 4b25d08f20d..b99311445b3 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2045,7 +2045,6 @@ DEFUN ("delete-directory-internal", Fdelete_directory_internal,
   (Lisp_Object directory)
 {
   const char *dir;
-  Lisp_Object handler;
   Lisp_Object encoded_dir;
 
   CHECK_STRING (directory);
@@ -5430,7 +5429,7 @@ before any other event (mouse or keypress) is handled.  */)
 Lisp_Object
 Fread_file_name (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object initial, Lisp_Object predicate)
 {
-  struct gcpro gcpro1, gcpro2;
+  struct gcpro gcpro1;
   Lisp_Object args[7];
 
   GCPRO1 (default_filename);