Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents a300bb07d72d
children 064ab7fed2e0
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
430 (forward-line 1)) 430 (forward-line 1))
431 431
432 ;; Delete empty directories. 432 ;; Delete empty directories.
433 (if dirs 433 (if dirs
434 (let ( (orig-default-directory default-directory) 434 (let ( (orig-default-directory default-directory)
435 directory files file ) 435 ; directory files file
436 )
436 ;; Make sure we preserve the existing `default-directory'. 437 ;; Make sure we preserve the existing `default-directory'.
437 ;; JV, why does this change the default directory? Does it indeed? 438 ;; JV, why does this change the default directory? Does it indeed?
438 (unwind-protect 439 (unwind-protect
439 (progn 440 (progn
440 ;; Warning: destructive sort! 441 ;; Warning: destructive sort!