Mercurial > emacs

changeset 10922:0c3d44805949

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tar-grind-file-mode): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 Mar 1995 04:37:18 +0000
parents bf33c9179a6b
children fe008aef4cf1
files lisp/tar-mode.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tar-mode.el	Mon Mar 06 04:35:33 1995 +0000
+++ b/lisp/tar-mode.el	Mon Mar 06 04:37:18 1995 +0000
@@ -335,7 +335,8 @@
     (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))