[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/eshell esh-util.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/eshell esh-util.el |
Date: |
Tue, 24 Feb 2009 03:30:47 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/24 03:30:46
Modified files:
lisp/eshell : esh-util.el
Log message:
(eshell-parse-ange-ls): Define `name' before potential use.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/eshell/esh-util.el?cvsroot=emacs&r1=1.36&r2=1.37
Patches:
Index: esh-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-util.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- esh-util.el 5 Jan 2009 03:21:48 -0000 1.36
+++ esh-util.el 24 Feb 2009 03:30:46 -0000 1.37
@@ -270,6 +270,7 @@
(setq text (replace-match " " t t text)))
text))
+;; FIXME this is just dolist.
(defmacro eshell-for (for-var for-list &rest forms)
"Iterate through a list"
`(let ((list-iter ,for-list))
@@ -649,6 +650,7 @@
(user (match-string 3))
(group (match-string 4))
(size (string-to-number (match-string 5)))
+ (name (ange-ftp-parse-filename))
(mtime
(if (fboundp 'parse-time-string)
(let ((moment (parse-time-string
@@ -661,7 +663,6 @@
(setcar (nthcdr 2 moment) 0))
(apply 'encode-time moment))
(ange-ftp-file-modtime (expand-file-name name dir))))
- (name (ange-ftp-parse-filename))
symlink)
(if (string-match "\\(.+\\) -> \\(.+\\)" name)
(setq symlink (match-string 2 name)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/eshell esh-util.el,
Glenn Morris <=