From 76c3fa958f4ab6d36d559d69169cc66856958bce Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 24 Jan 2014 05:13:35 +0100 Subject: [PATCH] Silence byte-compiler warning. * emacs-lisp/bytecomp.el (byte-compile-file): Remove unused local variable `file-name'. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/bytecomp.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) 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 + + * emacs-lisp/bytecomp.el (byte-compile-file): + Remove unused local variable `file-name'. + 2014-01-24 Glenn Morris * 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: ") -- 2.39.2