[Emacs-diffs] trunk r116137: Silence byte-compiler warning.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116137
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2014-01-24 05:13:35 +0100
message:
  Silence byte-compiler warning.
  
  * emacs-lisp/bytecomp.el (byte-compile-file):
  Remove unused local variable `file-name'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/bytecomp.el    bytecomp.el-20091113204419-o5vbwnq5f7feedwu-492

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-24 04:11:48 +0000
+++ b/lisp/ChangeLog    2014-01-24 04:13:35 +0000
@@ -1,3 +1,8 @@
+2014-01-24  Juanma Barranquero  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-file):
+       Remove unused local variable `file-name'.
+
 2014-01-24  Glenn Morris  <address@hidden>
 
        * subr.el (with-demoted-errors): Doc fix.

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2014-01-15 23:49:40 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2014-01-24 04:13:35 +0000
@@ -1705,12 +1705,10 @@
 ;;  (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: ")