Silence byte-compiler warning.

* emacs-lisp/bytecomp.el (byte-compile-file):
Remove unused local variable `file-name'.
This commit is contained in:
Juanma Barranquero 2014-01-24 05:13:35 +01:00
parent 1e548e4056
commit 76c3fa958f
2 changed files with 6 additions and 3 deletions

View file

@ -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.

View file

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