Mercurial > hg > xemacs-beta
diff lisp/package-admin.el @ 384:bbff43aa5eb7 r21-2-7
Import from CVS: tag r21-2-7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:08:24 +0200 |
parents | 064ab7fed2e0 |
children | aabb7f5b1c81 |
line wrap: on
line diff
--- a/lisp/package-admin.el Mon Aug 13 11:07:40 2007 +0200 +++ b/lisp/package-admin.el Mon Aug 13 11:08:24 2007 +0200 @@ -324,7 +324,7 @@ start err-list ) (setq pkg-dir (package-admin-get-install-dir 'unknown pkg-dir)) - ;; Insure that the current directory doesn't change + ;; Ensure that the current directory doesn't change (save-excursion (set-buffer buf) ;; This is not really needed @@ -437,8 +437,7 @@ ;; Delete empty directories. (if dirs (let ( (orig-default-directory default-directory) -; directory files file - ) + directory files file ) ;; Make sure we preserve the existing `default-directory'. ;; JV, why does this change the default directory? Does it indeed? (unwind-protect