From 6a06ace60b75e80891e6ce033dc65b08dadfb888 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 Mar 1995 04:37:18 +0000 Subject: (tar-grind-file-mode): Doc fix. --- lisp/tar-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/tar-mode.el') 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." (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)) -- cgit v1.2.1