make remove message go do stderr

This commit is contained in:
Donald Curtis 2013-04-01 12:42:31 -05:00
parent 11acc03b62
commit 8d535c49ca

View file

@ -599,7 +599,7 @@ If PKG-INFO is nil, an empty one is created."
Note that the working directory (if present) is not deleted by Note that the working directory (if present) is not deleted by
this function, since the archive list may contain another version this function, since the archive list may contain another version
of the same-named package which is to be kept." of the same-named package which is to be kept."
(print (format "Removing archive: %s" archive-entry)) (message "Removing archive: %s" archive-entry)
(let ((archive-file (pb/archive-file-name archive-entry)) (let ((archive-file (pb/archive-file-name archive-entry))
(readme-file (pb/readme-file-name (symbol-name (car archive-entry))))) (readme-file (pb/readme-file-name (symbol-name (car archive-entry)))))
(when (file-exists-p archive-file) (when (file-exists-p archive-file)