Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
439 (forward-line 1)) 439 (forward-line 1))
440 440
441 ;; Delete empty directories. 441 ;; Delete empty directories.
442 (if dirs 442 (if dirs
443 (let ( (orig-default-directory default-directory) 443 (let ( (orig-default-directory default-directory)
444 directory files file ) 444 ;; directory files file
445 )
445 ;; Make sure we preserve the existing `default-directory'. 446 ;; Make sure we preserve the existing `default-directory'.
446 ;; JV, why does this change the default directory? Does it indeed? 447 ;; JV, why does this change the default directory? Does it indeed?
447 (unwind-protect 448 (unwind-protect
448 (progn 449 (progn
449 ;; Warning: destructive sort! 450 ;; Warning: destructive sort!