Silence byte-compiler warning.
* emacs-lisp/bytecomp.el (byte-compile-file): Remove unused local variable `file-name'.
This commit is contained in:
parent
1e548e4056
commit
76c3fa958f
2 changed files with 6 additions and 3 deletions
|
@ -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.
|
||||
|
|
|
@ -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: ")
|
||||
|
|
Loading…
Add table
Reference in a new issue