- 'string<)
- :activate-callback nil
- :help-string "Packages selected for removal:\n"
- :completion-string t
- ))
- (setq tmpbuf (get-buffer-create tmpbuf))
- (display-buffer tmpbuf)
- (setq do-delete (yes-or-no-p "Remove these packages? "))
- (kill-buffer tmpbuf))
+ 'string<)
+ :activate-callback nil
+ :help-string "Packages selected for removal:\n"
+ :completion-string t
+ ))
+ (setq tmpbuf (get-buffer-create tmpbuf))
+ (display-buffer tmpbuf)
+ (setq do-delete (yes-or-no-p "Remove these packages? "))
+ (kill-buffer tmpbuf))
- (when (catch 'done
- (mapcar (lambda (pkg)
- (if (not
- (package-admin-delete-binary-package
- pkg (package-admin-get-install-dir pkg nil)))
- (throw 'done nil)))
- pui-deleted-packages)
- t)
- (message "Packages deleted")
- ))))
+ (mapcar (lambda (pkg)
+ (package-admin-delete-binary-package
+ pkg (package-admin-get-install-dir pkg nil)))
+ pui-deleted-packages)
+ (message "Packages deleted"))))