github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2025-03-07 04:45:08 -10:00
Code Issues Projects Releases Packages Wiki Activity

Advice is no longer needed as a fix has been pushed to HEAD

Browse source
This commit is contained in:
Donald Ephraim Curtis 2012-01-30 21:17:33 -06:00
parent ebccd930c6
commit b526f12dec
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
melpa.el
View file

@ -4,7 +4,7 @@
;; ;;
;; Author: Donald Ephraim Curtis <dcurtis@milkbox.net> ;; Author: Donald Ephraim Curtis <dcurtis@milkbox.net>
;; URL: https://github.com/milkypostman/melpa ;; URL: https://github.com/milkypostman/melpa
;; Version: 0.2 ;; Version: 0.3
;; ;;
;; ;;
;; Credits: ;; Credits:
@ -74,31 +74,31 @@ ARCHIVE is the string name of the package archive."
(print requirements)) (print requirements))
;;;###autoload ;; ;;;###autoload
(defadvice package-download-tar ;; (defadvice package-download-tar
(after package-download-tar-initialize activate compile) ;; (after package-download-tar-initialize activate compile)
"initialize the package after compilation" ;; "initialize the package after compilation"
(package-initialize)) ;; (package-initialize))
;;;###autoload ;; ;;;###autoload
(defadvice package-download-single ;; (defadvice package-download-single
(after package-download-single-initialize activate compile) ;; (after package-download-single-initialize activate compile)
"initialize the package after compilation" ;; "initialize the package after compilation"
(package-initialize)) ;; (package-initialize))
;;;###autoload ;;;###autoload
(defadvice package--add-to-archive-contents (defadvice package--add-to-archive-contents
(around package-filter-add-to-archive-contents (package archive) (around package-filter-add-to-archive-contents (package archive)
activate compile) activate compile)
"Add filtering of available packages using `package-filter-function', "Add filtering of available packages using `package-filter-function',
if non-nil." if non-nil."
(when (and package-filter-function (when (and package-filter-function
(funcall package-filter-function (funcall package-filter-function
(car package) (car package)
(package-desc-vers (cdr package)) (package-desc-vers (cdr package))
archive)) archive))
ad-do-it)) ad-do-it))