Browse Source

emacs.el: Print msg when byte-compiling file by fetch-library

pull/1/head
10sr 10 years ago
parent
commit
c9fb27b615
1 changed files with 5 additions and 1 deletions
  1. +5
    -1
      emacs.el

+ 5
- 1
emacs.el View File

@@ -67,7 +67,11 @@ If FORCE-DOWNLOAD-P it t ignore exisiting library and always download."
(require 'bytecomp nil t)) (require 'bytecomp nil t))
(and (file-exists-p (byte-compile-dest-file lpath)) (and (file-exists-p (byte-compile-dest-file lpath))
(delete-file (byte-compile-dest-file lpath))) (delete-file (byte-compile-dest-file lpath)))
(byte-compile-file lpath)))
(message "Byte-compiling %s..."
lpath)
(byte-compile-file lpath)
(message "Byte-compiling %s...done"
lpath)))
(progn (and (file-writable-p lpath) (progn (and (file-writable-p lpath)
(delete-file lpath)) (delete-file lpath))
(message "Downloading %s...failed" (message "Downloading %s...failed"


Loading…
Cancel
Save