Переглянути джерело

update message

pull/1/head
10sr 11 роки тому
джерело
коміт
9a06b0d59a
1 змінених файлів з 3 додано та 2 видалено
  1. +3
    -2
      emacs.el

+ 3
- 2
emacs.el Переглянути файл

@@ -49,11 +49,12 @@ otherwise the path where the library installed."
(locate-p (locate-library lib)))
(if (or force-download-p (not locate-p))
(progn (condition-case nil
(progn (message "downloading %s..." url)
(progn (message "Downloading %s..." url)
(require 'url)
(url-copy-file url
lpath
t)
(message "Downloading %s...done")
(when (and byte-compile-p
(require 'bytecomp nil t))
(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)
(delete-file lpath))
(message "downloading %s...something wrong happened!"
(message "Downloading %s...failed"
url)
nil))
(locate-library lib))


Завантаження…
Відмінити
Зберегти