瀏覽代碼

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

pull/1/head
10sr 10 年之前
父節點
當前提交
c9fb27b615
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. +5
    -1
      emacs.el

+ 5
- 1
emacs.el 查看文件

@@ -67,7 +67,11 @@ If FORCE-DOWNLOAD-P it t ignore exisiting library and always download."
(require 'bytecomp nil t))
(and (file-exists-p (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)
(delete-file lpath))
(message "Downloading %s...failed"


Loading…
取消
儲存