10sr
12 years ago
1 changed files with 3 additions and 2 deletions
Unified View
Diff Options
-
+3 -2emacs.el
+ 3
- 2
emacs.el
View File
| @@ -49,11 +49,12 @@ otherwise the path where the library installed." | |||||
| (locate-p (locate-library lib))) | (locate-p (locate-library lib))) | ||||
| (if (or force-download-p (not locate-p)) | (if (or force-download-p (not locate-p)) | ||||
| (progn (condition-case nil | (progn (condition-case nil | ||||
| (progn (message "downloading %s..." url) | |||||
| (progn (message "Downloading %s..." url) | |||||
| (require 'url) | (require 'url) | ||||
| (url-copy-file url | (url-copy-file url | ||||
| lpath | lpath | ||||
| t) | t) | ||||
| (message "Downloading %s...done") | |||||
| (when (and byte-compile-p | (when (and byte-compile-p | ||||
| (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)) | ||||
| @@ -62,7 +63,7 @@ otherwise the path where the library installed." | |||||
| ) | ) | ||||
| (error (and (file-writable-p lpath) | (error (and (file-writable-p lpath) | ||||
| (delete-file lpath)) | (delete-file lpath)) | ||||
| (message "downloading %s...something wrong happened!" | |||||
| (message "Downloading %s...failed" | |||||
| url) | url) | ||||
| nil)) | nil)) | ||||
| (locate-library lib)) | (locate-library lib)) | ||||