From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 24 Jan 2014 04:13:35 +0000 (+0100)
Subject: Silence byte-compiler warning.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76c3fa958f4ab6d36d559d69169cc66856958bce;p=emacs.git

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 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: ")