14930 |
;; check whether filename is that of a directory |
;; check whether filename is that of a directory |
14931 |
((eq t (car (cdr (car current-directory-list)))) |
((eq t (car (cdr (car current-directory-list)))) |
14932 |
;; decide whether to skip or recurse |
;; decide whether to skip or recurse |
14933 |
(if |
(if |
14934 |
(equal (or "." "..") |
(equal "." |
14935 |
(substring (car (car current-directory-list)) -1)) |
(substring (car (car current-directory-list)) -1)) |
14936 |
;; then do nothing if filename is that of |
;; then do nothing since filename is that of |
14937 |
;; current directory or parent |
;; current directory or parent, "." or ".." |
14938 |
() |
() |
14939 |
@end group |
@end group |
14940 |
@group |
@group |