First attempt at package-update-all for package.el

[Donald Curtis <dcurtis@gmail.com>]

I know there is a feature freeze but one of the most requested features (myself included) seems to be an "update" for packages in package.el.  

https://gist.github.com/1211655

(defun package-update-all ()
  "Update all packages"
  (interactive)
  (dolist (elt package-alist)
    (let* ((name (car elt))
           (file-name (symbol-name name))
           (available-pkg (assq name package-archive-contents))
           (available-version (and available-pkg
                                   (package-desc-vers (cdr available-pkg))))
           (current-version (package-desc-vers (cdr elt)))
           )
      (when (and available-version
                 (version-list-< current-version available-version))
        (message "Updating to: %s - %s" file-name
                 (package-version-join available-version))
        (package-install name)
        (package-delete file-name (package-version-join current-version))))))


At least this is available if anyone wants to just put it in their own init file.  It's probably not completely right as I am very new to programming this lisp stuff.

Thanks,
Donald