;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
;; Keywords: unix
-;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de>
+;; Copyright (C) 1992, 1994 by Sebastian Kremer <sk@thp.uni-koeln.de>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
regular expressions to match file names.
The switches that work are: A a c i r S s t u"
- (let ((handler (find-file-name-handler file)))
+ (let ((handler (find-file-name-handler file 'insert-directory)))
(if handler
(funcall handler 'insert-directory file switches
wildcard full-directory-p)
(ls-lisp-handle-switches file-alist switches))
(while file-alist
(setq elt (car file-alist)
- short (car elt)
- attr (cdr elt)
file-alist (cdr file-alist)
- fil (concat dir short)
- sum (+ sum (nth 7 attr)))
- (insert (ls-lisp-format short attr switches)))
+ short (car elt)
+ attr (cdr elt))
+ (and attr
+ (setq sum (+ sum (nth 7 attr)))
+ (insert (ls-lisp-format short attr switches))))
;; Fill in total size of all files:
(save-excursion
(search-backward "total \007")
;; Emacs should be able to make strings of them.
;; user-login-name and user-full-name could take an
;; optional arg.
- (format " %3d %-8d %-8d %8d "
+ (format " %3d %8s %8s %8d "
(nth 1 file-attr) ; no. of links
(if (= (user-uid) (nth 2 file-attr))
(user-login-name)
- (nth 2 file-attr)) ; uid
+ (int-to-string (nth 2 file-attr))) ; uid
(if (eq system-type 'ms-dos)
"root" ; everything is root on MSDOS.
- (nth 3 file-attr)) ; gid
+ (int-to-string (nth 3 file-attr))) ; gid
(nth 7 file-attr) ; size in bytes
)
(ls-lisp-format-time file-attr switches)