emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]