diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2011-03-08 13:58:40 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2011-03-08 13:58:40 +0100 |
| commit | b511b994ae5fc66d36a64f54eb71b87612463918 (patch) | |
| tree | 8180e7329d4a19cfe6f69a572503ce44b1ccb1f1 /lisp/emacs-lisp/package-x.el | |
| parent | 6446548e027a18582e1f6661d553902b25d15157 (diff) | |
| download | emacs-b511b994ae5fc66d36a64f54eb71b87612463918.tar.gz | |
* simple.el (shell-command-to-string): Use `process-file'.
* emacs-lisp/package.el (package-tar-file-info): Handle also
remote files.
* emacs-lisp/package-x.el (package-upload-buffer-internal): Use
`equal' for upload base check.
Diffstat (limited to 'lisp/emacs-lisp/package-x.el')
| -rw-r--r-- | lisp/emacs-lisp/package-x.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/package-x.el b/lisp/emacs-lisp/package-x.el index 4de95f65702..cd4b5ee231c 100644 --- a/lisp/emacs-lisp/package-x.el +++ b/lisp/emacs-lisp/package-x.el @@ -185,9 +185,9 @@ if it exists." (let ((package-archive-upload-base package-archive-upload-base)) ;; Check if `package-archive-upload-base' is valid. (when (or (not (stringp package-archive-upload-base)) - (eq package-archive-upload-base - (car-safe - (get 'package-archive-upload-base 'standard-value)))) + (equal package-archive-upload-base + (car-safe + (get 'package-archive-upload-base 'standard-value)))) (setq package-archive-upload-base (read-directory-name "Base directory for package archive: "))) @@ -306,4 +306,4 @@ This should be invoked from the gnus *Summary* buffer." (provide 'package-x) -;;; package.el ends here +;;; package-x.el ends here |