Mercurial > emacs
comparison lisp/tar-mode.el @ 10922:0c3d44805949
(tar-grind-file-mode): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 06 Mar 1995 04:37:18 +0000 |
| parents | 2f2e5033b3bb |
| children | d629a0af50ca |
comparison
equal
deleted
inserted
replaced
| 10921:bf33c9179a6b | 10922:0c3d44805949 |
|---|---|
| 333 (defun tar-clip-time-string (time) | 333 (defun tar-clip-time-string (time) |
| 334 (let ((str (current-time-string time))) | 334 (let ((str (current-time-string time))) |
| 335 (concat (substring str 4 16) (substring str 19 24)))) | 335 (concat (substring str 4 16) (substring str 19 24)))) |
| 336 | 336 |
| 337 (defun tar-grind-file-mode (mode string start) | 337 (defun tar-grind-file-mode (mode string start) |
| 338 "Write a \"-rw--r--r-\" representing MODE into STRING beginning at START." | 338 "Store `-rw--r--r--' indicating MODE into STRING beginning at START. |
| 339 MODE should be an integer which is a file mode value." | |
| 339 (aset string start (if (zerop (logand 256 mode)) ?- ?r)) | 340 (aset string start (if (zerop (logand 256 mode)) ?- ?r)) |
| 340 (aset string (+ start 1) (if (zerop (logand 128 mode)) ?- ?w)) | 341 (aset string (+ start 1) (if (zerop (logand 128 mode)) ?- ?w)) |
| 341 (aset string (+ start 2) (if (zerop (logand 64 mode)) ?- ?x)) | 342 (aset string (+ start 2) (if (zerop (logand 64 mode)) ?- ?x)) |
| 342 (aset string (+ start 3) (if (zerop (logand 32 mode)) ?- ?r)) | 343 (aset string (+ start 3) (if (zerop (logand 32 mode)) ?- ?r)) |
| 343 (aset string (+ start 4) (if (zerop (logand 16 mode)) ?- ?w)) | 344 (aset string (+ start 4) (if (zerop (logand 16 mode)) ?- ?w)) |