Parent Directory | Revision Log | Patch
revision 1.18.2.4 by miles, Mon Oct 25 04:22:30 2004 UTC | revision 1.18.2.5 by miles, Fri Oct 29 02:05:13 2004 UTC | |
---|---|---|
# | Line 799 external command." | Line 799 external command." |
799 | (size 0.0)) | (size 0.0)) |
800 | (while entries | (while entries |
801 | (unless (string-match "\\`\\.\\.?\\'" (caar entries)) | (unless (string-match "\\`\\.\\.?\\'" (caar entries)) |
802 | (let* ((entry (concat path (char-to-string directory-sep-char) | (let* ((entry (concat path "/" |
803 | (caar entries))) | (caar entries))) |
804 | (symlink (and (stringp (cadr (car entries))) | (symlink (and (stringp (cadr (car entries))) |
805 | (cadr (car entries))))) | (cadr (car entries))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |