Skip to content

Commit

Permalink
Fix the scratch installer to consider the :compile restriction, in or…
Browse files Browse the repository at this point in the history
…der to avoid useless warnings.
  • Loading branch information
dimitri committed Oct 8, 2010
1 parent 0ca1daa commit ce18d60
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
2 changes: 1 addition & 1 deletion README.asciidoc
Expand Up @@ -28,7 +28,7 @@ instead.
(pdir (concat (file-name-as-directory el-get-dir) package))
(git (executable-find "git"))
(url "git://github.com/dimitri/el-get.git")
(el-get-sources `((:name ,package :type "git" :url ,url :features el-get)))
(el-get-sources `((:name ,package :type "git" :url ,url :features el-get :compile "el-get.el")))
(default-directory el-get-dir)
(process-connection-type nil) ; pipe, no pty (--no-progress)
(clone (start-process bname bname git "--no-pager" "clone" "-v" url package)))
Expand Down
6 changes: 3 additions & 3 deletions el-get-install.el
Expand Up @@ -13,7 +13,7 @@
;;
;; bootstrap your el-get installation, the goal is then to use el-get to
;; update el-get.
;;
;;
;; So the idea is that you copy/paste this code into your *scratch* buffer,
;; hit C-j, and you have a working el-get.

Expand All @@ -25,12 +25,12 @@
(pdir (concat (file-name-as-directory el-get-dir) package))
(git (executable-find "git"))
(url "git://github.com/dimitri/el-get.git")
(el-get-sources `((:name ,package :type "git" :url ,url :features el-get)))
(el-get-sources `((:name ,package :type "git" :url ,url :features el-get :compile "el-get.el")))
(default-directory el-get-dir)
(process-connection-type nil) ; pipe, no pty (--no-progress)
(clone (start-process bname bname git "--no-pager" "clone" "-v" url package)))
(set-window-buffer (selected-window) (process-buffer clone))
(set-process-sentinel
(set-process-sentinel
clone
`(lambda (proc change)
(when (eq (process-status proc) 'exit)
Expand Down

0 comments on commit ce18d60

Please sign in to comment.