[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog files.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog files.el |
Date: |
Sat, 29 Aug 2009 14:58:20 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 09/08/29 14:58:19
Modified files:
lisp : ChangeLog files.el
Log message:
(get-free-disk-space): Use / for default-directory.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16048&r2=1.16049
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1073&r2=1.1074
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16048
retrieving revision 1.16049
diff -u -b -r1.16048 -r1.16049
--- ChangeLog 29 Aug 2009 14:48:10 -0000 1.16048
+++ ChangeLog 29 Aug 2009 14:58:15 -0000 1.16049
@@ -1,5 +1,7 @@
2009-08-29 Stefan Monnier <address@hidden>
+ * files.el (get-free-disk-space): Use / for default-directory.
+
* textmodes/ispell.el (ispell-accept-output, ispell-command-loop):
Use with-current-buffer.
Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1073
retrieving revision 1.1074
diff -u -b -r1.1073 -r1.1074
--- files.el 28 Aug 2009 23:48:46 -0000 1.1073
+++ files.el 29 Aug 2009 14:58:18 -0000 1.1074
@@ -5377,17 +5377,13 @@
(let ((fsinfo (file-system-info dir)))
(if fsinfo
(format "%.0f" (/ (nth 2 fsinfo) 1024))))
+ (setq dir (expand-file-name dir))
(save-match-data
(with-temp-buffer
(when (and directory-free-space-program
;; Avoid failure if the default directory does
;; not exist (Bug#2631, Bug#3911).
- (let ((default-directory default-directory))
- (setq dir (expand-file-name dir))
- (unless (and (not (file-remote-p default-directory))
- (file-directory-p default-directory)
- (file-readable-p default-directory))
- (setq default-directory "/"))
+ (let ((default-directory "/")
(eq (call-process directory-free-space-program
nil t nil
directory-free-space-args
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/14
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/15
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/15
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/17
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Glenn Morris, 2009/08/22
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Glenn Morris, 2009/08/25
- [Emacs-diffs] emacs/lisp ChangeLog files.el,
Stefan Monnier <=