Explorar el Código

update message

pull/1/head
10sr hace 11 años
padre
commit
9a06b0d59a
Se han modificado 1 ficheros con 3 adiciones y 2 borrados
  1. +3
    -2
      emacs.el

+ 3
- 2
emacs.el Ver fichero

@@ -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))


Cargando…
Cancelar
Guardar