Silence byte-compiler warning.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6743a537744135e5831475d91d30eb8f746365d5..d7d9b23f570b4b044a851b27553e73549d560dc3 100644 (file)
--- 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 6f5b6295d1e14c46616c4f73d7e1d7b6c2138dd3..7ff1c7f7cd37ec94ffa6c09e53292299f13a2539 100644 (file)
--- 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: ")