mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

tar-grind-file-mode fix.

Browse Source 
* lisp/tar-mode.el (tar-grind-file-mode):
Fix handling of setuid/setgid, handle sticky bit.

Fixes: debbugs:9817
This commit is contained in:
Ulrich Mueller 2011-10-20 23:44:20 -07:00 committed by Glenn Morris
parent 30fcaf3a28
commit 7e1361d995
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-21 Ulrich Mueller <ulm@gentoo.org>
* tar-mode.el (tar-grind-file-mode):
Fix handling of setuid/setgid, handle sticky bit. (Bug#9817)
2011-10-21 Chong Yidong <cyd@gnu.org>
* progmodes/idlwave.el (idlwave-mode):

12
lisp/tar-mode.el
View File

@ -404,13 +404,19 @@ MODE should be an integer which is a file mode value."
(string
(if (zerop (logand 256 mode)) ?- ?r)
(if (zerop (logand 128 mode)) ?- ?w)
(if (zerop (logand 1024 mode)) (if (zerop (logand 64 mode)) ?- ?x) ?s)
(if (zerop (logand 2048 mode))
(if (zerop (logand 64 mode)) ?- ?x)
(if (zerop (logand 64 mode)) ?S ?s))
(if (zerop (logand 32 mode)) ?- ?r)
(if (zerop (logand 16 mode)) ?- ?w)
(if (zerop (logand 2048 mode)) (if (zerop (logand 8 mode)) ?- ?x) ?s)
(if (zerop (logand 1024 mode))
(if (zerop (logand 8 mode)) ?- ?x)
(if (zerop (logand 8 mode)) ?S ?s))
(if (zerop (logand 4 mode)) ?- ?r)
(if (zerop (logand 2 mode)) ?- ?w)
(if (zerop (logand 1 mode)) ?- ?x)))
(if (zerop (logand 512 mode))
(if (zerop (logand 1 mode)) ?- ?x)
(if (zerop (logand 1 mode)) ?T ?t))))
(defun tar-header-block-summarize (tar-hblock &optional mod-p)
"Return a line similar to the output of `tar -vtf'."