Permalink
Browse files

Correct check for changed standard packages list

  • Loading branch information...
1 parent 2639154 commit d109295d8111062bbd0ba1c651db19c8e1f260fd @dabrahams dabrahams committed Jun 5, 2011
Showing with 7 additions and 8 deletions.
  1. +7 −8 el-get.el
View
@@ -510,14 +510,13 @@ initialized automatically at startup, as required."
(defun el-get-can-exit-p ()
(or (not (get 'el-get-standard-packages 'customized-value))
(let (char)
- (while
- (progn
- (message "Remember packages installed with el-get? (y)es (n)o (c)ustomize")
- (setq char (read-event))
- (and (numberp char)
- (memq (downcase char) '(?y ?n ?c)))))
-
- (if (= char ?c)
+ (loop
+ do (message "Remember packages installed with el-get? (y)es (n)o (c)ustomize")
+ (setq char (read-event))
+ until (and (numberp char)
+ (memq (downcase char) '(?y ?n ?c))))
+
+ (if (= char ?c)
(progn (customize-variable 'el-get-standard-packages) nil) ; customize, don't exit
(if (= char ?y)
(customize-save-variable 'el-get-standard-packages el-get-standard-packages)) ; save

0 comments on commit d109295

Please sign in to comment.