Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 384:bbff43aa5eb7 r21-2-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-7
author cvs
date Mon, 13 Aug 2007 11:08:24 +0200
parents 064ab7fed2e0
children aabb7f5b1c81
comparison
equal deleted inserted replaced
383:6a50c6a581a5 384:bbff43aa5eb7
322 (let ((buf (get-buffer-create package-admin-temp-buffer)) 322 (let ((buf (get-buffer-create package-admin-temp-buffer))
323 (status 1) 323 (status 1)
324 start err-list 324 start err-list
325 ) 325 )
326 (setq pkg-dir (package-admin-get-install-dir 'unknown pkg-dir)) 326 (setq pkg-dir (package-admin-get-install-dir 'unknown pkg-dir))
327 ;; Insure that the current directory doesn't change 327 ;; Ensure that the current directory doesn't change
328 (save-excursion 328 (save-excursion
329 (set-buffer buf) 329 (set-buffer buf)
330 ;; This is not really needed 330 ;; This is not really needed
331 (setq default-directory (file-name-as-directory pkg-dir)) 331 (setq default-directory (file-name-as-directory pkg-dir))
332 (setq case-fold-search t) 332 (setq case-fold-search t)
435 (forward-line 1)) 435 (forward-line 1))
436 436
437 ;; Delete empty directories. 437 ;; Delete empty directories.
438 (if dirs 438 (if dirs
439 (let ( (orig-default-directory default-directory) 439 (let ( (orig-default-directory default-directory)
440 ; directory files file 440 directory files file )
441 )
442 ;; Make sure we preserve the existing `default-directory'. 441 ;; Make sure we preserve the existing `default-directory'.
443 ;; JV, why does this change the default directory? Does it indeed? 442 ;; JV, why does this change the default directory? Does it indeed?
444 (unwind-protect 443 (unwind-protect
445 (progn 444 (progn
446 ;; Warning: destructive sort! 445 ;; Warning: destructive sort!