diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2014-01-24 05:13:35 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2014-01-24 05:13:35 +0100 |
| commit | 76c3fa958f4ab6d36d559d69169cc66856958bce (patch) | |
| tree | 528bdf4bd2f4a3a954c954df98585821a4ff0efa /lisp/emacs-lisp/bytecomp.el | |
| parent | 1e548e4056d46414fa30bb6cab1c660fa30ac905 (diff) | |
| download | emacs-76c3fa958f4ab6d36d559d69169cc66856958bce.tar.gz | |
Silence byte-compiler warning.
* emacs-lisp/bytecomp.el (byte-compile-file):
Remove unused local variable `file-name'.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 1 insertions, 3 deletions
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: ") |