Silence byte-compiler warning.

* emacs-lisp/bytecomp.el (byte-compile-file):
Remove unused local variable `file-name'.

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6743a537744..d7d9b23f570 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-24  Juanma Barranquero  <lekktu@gmail.com>
+
+        * emacs-lisp/bytecomp.el (byte-compile-file):
+        Remove unused local variable `file-name'.
+
 2014-01-24  Glenn Morris  <rgm@gnu.org>
 
         * subr.el (with-demoted-errors): Doc fix.
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 6f5b6295d1e..7ff1c7f7cd3 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1705,12 +1705,10 @@ The value is non-nil if there were no errors, nil if errors."
 ;;  (interactive "fByte compile file: \nP")
   (interactive
    (let ((file buffer-file-name)
-         (file-name nil)
          (file-dir nil))
      (and file
           (derived-mode-p 'emacs-lisp-mode)
-          (setq file-name (file-name-nondirectory file)
-                file-dir (file-name-directory file)))
+          (setq file-dir (file-name-directory file)))
      (list (read-file-name (if current-prefix-arg
                                "Byte compile and load file: "
                              "Byte compile file: ")