Mercurial > hg > xemacs-beta
changeset 1447:a939d086aa0f
[xemacs-hg @ 2003-05-02 22:51:04 by youngs]
2003-05-03 Steve Youngs <youngs@xemacs.org>
* package-admin.el (package-admin-find-top-directory): You can't
concat a string & a char, so convert 'directory-sep-char' to a string.
| author | youngs |
|---|---|
| date | Fri, 02 May 2003 22:51:04 +0000 |
| parents | ba33dbcfd77e |
| children | 5b0af12cd2f1 |
| files | lisp/ChangeLog lisp/package-admin.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 02 21:52:24 2003 +0000 +++ b/lisp/ChangeLog Fri May 02 22:51:04 2003 +0000 @@ -1,3 +1,8 @@ +2003-05-03 Steve Youngs <youngs@xemacs.org> + + * package-admin.el (package-admin-find-top-directory): You can't + concat a string & a char, so convert 'directory-sep-char' to a string. + 2003-05-02 Stephen J. Turnbull <stephen@xemacs.org> * cmdloop.el (command-error): Ensure exit msg is on separate line.
--- a/lisp/package-admin.el Fri May 02 21:52:24 2003 +0000 +++ b/lisp/package-admin.el Fri May 02 22:51:04 2003 +0000 @@ -174,13 +174,13 @@ (cond ((eq type 'std) (while path-list (if (equal (substring (car path-list) -16) - (concat "xemacs-packages" directory-sep-char)) + (concat "xemacs-packages" (char-to-string directory-sep-char))) (setq top-dir (car path-list))) (setq path-list (cdr path-list)))) ((eq type 'mule) (while path-list (if (equal (substring (car path-list) -14) - (concat "mule-packages" directory-sep-char)) + (concat "mule-packages" (char-to-string directory-sep-char))) (setq top-dir (car path-list))) (setq path-list (cdr path-list))))))) ;; Wasn't in the environment, try `user-init-directory' if @@ -201,13 +201,13 @@ (cond ((eq type 'std) (while path-list (if (equal (substring (car path-list) -16) - (concat "xemacs-packages" directory-sep-char)) + (concat "xemacs-packages" (char-to-string directory-sep-char))) (setq top-dir (car path-list))) (setq path-list (cdr path-list)))) ((eq type 'mule) (while path-list (if (equal (substring (car path-list) -14) - (concat "mule-packages" directory-sep-char)) + (concat "mule-packages" (char-to-string directory-sep-char))) (setq top-dir (car path-list))) (setq path-list (cdr path-list))))))) ;; Now return either the directory or nil.