procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tar-grind-file-mode): Doc fix.

Browse source
This commit is contained in:
Richard M. Stallman 1995-03-06 04:37:18 +00:00
parent f48f33caa6
commit 6a06ace60b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/tar-mode.el
View file

@ -335,7 +335,8 @@ write-date, checksum, link-type, and link-name."
(concat (substring str 4 16) (substring str 19 24))))
(defun tar-grind-file-mode (mode string start)
"Write a \"-rw--r--r-\" representing MODE into STRING beginning at START."
"Store `-rw--r--r--' indicating MODE into STRING beginning at START.
MODE should be an integer which is a file mode value."
(aset string start (if (zerop (logand 256 mode)) ?- ?r))
(aset string (+ start 1) (if (zerop (logand 128 mode)) ?- ?w))
(aset string (+ start 2) (if (zerop (logand 64 mode)) ?- ?x))