diff options
| author | Richard M. Stallman | 1995-03-06 04:37:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-03-06 04:37:18 +0000 |
| commit | 6a06ace60b75e80891e6ce033dc65b08dadfb888 (patch) | |
| tree | e8fdb605a2324a12eecfe2f88c0b516bf3afca4b | |
| parent | f48f33caa6e2e9458a404b382f10663622ae9e66 (diff) | |
| download | emacs-6a06ace60b75e80891e6ce033dc65b08dadfb888.tar.gz emacs-6a06ace60b75e80891e6ce033dc65b08dadfb888.zip | |
(tar-grind-file-mode): Doc fix.
| -rw-r--r-- | lisp/tar-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 1be7041562d..7375e5411e3 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -335,7 +335,8 @@ write-date, checksum, link-type, and link-name." | |||
| 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)) |