Lines Matching +defs:time +defs:list
239 If N or M is nil, it means the end of the list."
283 (defmacro eshell-for (for-var for-list &rest forms)
284 "Iterate through a list"
285 `(let ((list-iter ,for-list))
286 (while list-iter
287 (let ((,for-var (car list-iter)))
289 (setq list-iter (cdr list-iter)))))
293 (defun eshell-flatten-list (args)
295 (let ((new-list (list t)))
299 (nconc new-list (eshell-flatten-list a))
300 (nconc new-list (list a))))
301 (cdr new-list)))
303 (defun eshell-uniqify-list (l)
329 (defsubst eshell-stringify-list (args)
335 (mapconcat 'eshell-stringify (eshell-flatten-list args) " "))
339 (defsubst eshell-time-less-p (t1 t2)
340 "Say whether time T1 is less than time T2."
345 (defsubst eshell-time-to-seconds (time)
347 (+ (* (car time) 65536.0)
348 (cadr time)
349 (/ (or (car (cdr (cdr time))) 0) 1000000.0)))
352 "Return a list of files in the given DIRECTORY matching REGEXP."
357 "Return list of regexp and prefix arg using PROMPT."
362 (list (if (string-equal regexp "")
406 (defun eshell-winnow-list (entries exclude &optional predicates)
407 "Pare down the ENTRIES list using the EXCLUDE regexp, and PREDICATES.
408 The original list is not affected. If the result is only one element
410 list."
411 (let ((flist (list t))
414 (setq entries (list entries)
425 (nconc flist (list entry)))))
462 (eshell-time-less-p
467 (set timestamp-var (current-time))))
505 (add-to-list 'hosts (match-string 1)))
507 (add-to-list 'hosts (match-string 2)))
509 (add-to-list 'hosts (match-string 4)))))
516 (eshell-time-less-p
521 (set timestamp-var (current-time))))
540 "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
557 (subg (list t)))
560 (nconc subg (list (caar subgroups))))
590 "Return a list of names of files and their attributes in DIRECTORY.
595 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
633 ;; Add an autoload for parse-time-string
634 (if (and (not (fboundp 'parse-time-string))
635 (locate-library "parse-time"))
636 (autoload 'parse-time-string "parse-time"))
662 (if (fboundp 'parse-time-string)
663 (let ((moment (parse-time-string
667 (nth 5 (decode-time (current-time))))
671 (apply 'encode-time moment))
681 (list (if (eq (aref perms 0) ?d)
748 ; "Return a list of attributes of file FILENAME.
764 ; (list