Mercurial > hg > xemacs-beta
comparison lisp/package-get.el @ 825:eb3bc15a6e0f
[xemacs-hg @ 2002-05-02 14:35:28 by youngs]
2002-05-02 Steve Youngs <youngs@xemacs.org>
* package-get.el (package-get): Use 'warn' instead of 'lwarn'.
| author | youngs |
|---|---|
| date | Thu, 02 May 2002 14:35:32 +0000 |
| parents | 0cce4fee510b |
| children | e40f8d860d5f |
comparison
equal
deleted
inserted
replaced
| 824:0cce4fee510b | 825:eb3bc15a6e0f |
|---|---|
| 761 installed) | 761 installed) |
| 762 (if (stringp latest) | 762 (if (stringp latest) |
| 763 (string-to-number latest) | 763 (string-to-number latest) |
| 764 latest)) | 764 latest)) |
| 765 (if (not (null version)) | 765 (if (not (null version)) |
| 766 (lwarn 'packages | 766 (warn "Installing %s package version %s, you had a newer version %s" |
| 767 "Installing %s package version %s, you had a newer version %s" | |
| 768 package latest installed) | 767 package latest installed) |
| 769 (lwarn 'packages | 768 (warn "Skipping %s package, you have a newer version %s" |
| 770 "Skipping %s package, you have a newer version %s" | |
| 771 package installed) | 769 package installed) |
| 772 (throw 'skip-update t)))) | 770 (throw 'skip-update t)))) |
| 773 | 771 |
| 774 ;; Contrive a list of possible package filenames. | 772 ;; Contrive a list of possible package filenames. |
| 775 ;; Ugly. Is there a better way to do this? | 773 ;; Ugly. Is there a better way to do this? |