From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.bugs Subject: bug#2631: get-free-disk-space when default-directory doesn't exist Date: Wed, 11 Mar 2009 09:24:04 +1100 Message-ID: <87wsaxhv97.fsf@blah.blah> Reply-To: Kevin Ryde , 2631@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1236725040 17985 80.91.229.12 (10 Mar 2009 22:44:00 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 10 Mar 2009 22:44:00 +0000 (UTC) To: bug-gnu-emacs@gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Mar 10 23:45:16 2009 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1LhAhH-00019b-Dz for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Mar 2009 23:45:15 +0100 Original-Received: from localhost ([127.0.0.1]:49513 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LhAfv-0002Gb-Nr for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Mar 2009 18:43:51 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LhAfq-0002EL-LX for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:43:46 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LhAfo-0002Ab-B7 for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:43:45 -0400 Original-Received: from [199.232.76.173] (port=60106 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LhAfo-0002AP-7K for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:43:44 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:45312) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LhAfn-0006tb-MB for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:43:43 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id n2AMhfLV001177; Tue, 10 Mar 2009 15:43:41 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id n2AMU417030159; Tue, 10 Mar 2009 15:30:04 -0700 X-Loop: owner@emacsbugs.donarmstrong.com Resent-From: Kevin Ryde Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Tue, 10 Mar 2009 22:30:03 +0000 Resent-Message-ID: Resent-Sender: owner@emacsbugs.donarmstrong.com X-Emacs-PR-Message: report 2631 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.123672388628795 (code B ref -1); Tue, 10 Mar 2009 22:30:03 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 10 Mar 2009 22:24:46 +0000 X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. Original-Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id n2AMOfL0028789 for ; Tue, 10 Mar 2009 15:24:43 -0700 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LhANN-0007jw-Lp for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:24:41 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LhANN-0007j3-0I for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:24:41 -0400 Original-Received: from [199.232.76.173] (port=53023 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LhANM-0007is-OR for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:24:40 -0400 Original-Received: from mailout2-2.pacific.net.au ([61.8.2.225]:37345 helo=mailout2.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LhANL-0005Kb-Rb for bug-gnu-emacs@gnu.org; Tue, 10 Mar 2009 18:24:40 -0400 Original-Received: from mailproxy2.pacific.net.au (mailproxy2.pacific.net.au [61.8.2.163]) by mailout2.pacific.net.au (Postfix) with ESMTP id 020581B3FB0 for ; Wed, 11 Mar 2009 09:24:30 +1100 (EST) Original-Received: from blah.blah (ppp26D7.dyn.pacific.net.au [61.8.38.215]) by mailproxy2.pacific.net.au (Postfix) with ESMTP id 0D4C027431 for ; Wed, 11 Mar 2009 09:24:28 +1100 (EST) Original-Received: from gg by blah.blah with local (Exim 4.69) (envelope-from ) id 1LhAMn-0005hd-Kd for bug-gnu-emacs@gnu.org; Wed, 11 Mar 2009 09:24:05 +1100 User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.2 (gnu/linux) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Tue, 10 Mar 2009 18:43:45 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:26217 Archived-At: --=-=-= Evaluating (with-temp-buffer (setq default-directory "/no/such/dir") (get-free-disk-space "/tmp")) gets an error (file-error "Setting current directory" "no such file or directory" "/no/such/dir") where I hoped it wouldn't care about default-directory, only the given directory argument. Perhaps a let-bind per below. In GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11) of 2008-11-10 on raven, modified by Debian configured using `configure '--build=i486-linux-gnu' '--host=i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--localstatedir=/var/lib' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes' '--enable-locallisppath=/etc/emacs22:/etc/emacs:/usr/local/share/emacs/22.2/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/22.2/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/22.2/leim' '--with-x=yes' '--with-x-toolkit=gtk' '--with-toolkit-scroll-bars' 'build_alias=i486-linux-gnu' 'host_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -g -O2' 'LDFLAGS=-g' 'CPPFLAGS='' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: en_AU locale-coding-system: iso-8859-1 default-enable-multibyte-characters: t --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=files.el.free-space.diff *** files.el 11 Mar 2009 08:46:04 +1100 1.1038 --- files.el 11 Mar 2009 09:14:14 +1100 *************** *** 5336,5345 **** (save-match-data (with-temp-buffer (when (and directory-free-space-program ! (eq 0 (call-process directory-free-space-program ! nil t nil ! directory-free-space-args ! dir))) ;; Usual format is a header line followed by a line of ;; numbers. (goto-char (point-min)) --- 5336,5346 ---- (save-match-data (with-temp-buffer (when (and directory-free-space-program ! (let ((default-directory "/")) ! (eq 0 (call-process directory-free-space-program ! nil t nil ! directory-free-space-args ! dir)))) ;; Usual format is a header line followed by a line of ;; numbers. (goto-char (point-min)) --=-=-=--