forked from mirrors/org-mode
ob-tangle: allow ls -l style suid/sgid tangle mode
* lisp/ob-tangle.el (org-babel-interpret-file-mode): Modify the regexp for the ls -l style tangle file mode to allow for the suid/sgid bits to be set. While I was at it I noticed that the a= parameter should have been o=, and so that has been fixed too. The sticky bit is ignored, but that is not a concern as it is only relevant to directories.
This commit is contained in:
parent
5e35de34a6
commit
9ce7802b79
|
@ -329,10 +329,10 @@ Did you give the decimal value %1$d by mistake?" mode)))
|
||||||
((string-match-p "^[ugoa]*\\(?:[+-=][rwxXstugo]*\\)+\\(,[ugoa]*\\(?:[+-=][rwxXstugo]*\\)+\\)*$" mode)
|
((string-match-p "^[ugoa]*\\(?:[+-=][rwxXstugo]*\\)+\\(,[ugoa]*\\(?:[+-=][rwxXstugo]*\\)+\\)*$" mode)
|
||||||
;; Match regexp taken from `file-modes-symbolic-to-number'.
|
;; Match regexp taken from `file-modes-symbolic-to-number'.
|
||||||
(file-modes-symbolic-to-number mode org-babel-tangle-default-file-mode))
|
(file-modes-symbolic-to-number mode org-babel-tangle-default-file-mode))
|
||||||
((string-match-p "^\\(?:[r-][w-][x-]\\)\\{3\\}$" mode)
|
((string-match-p "^[r-][w-][xs-][r-][w-][xs-][r-][w-][x-]$" mode)
|
||||||
(file-modes-symbolic-to-number (concat "u=" (substring mode 0 3)
|
(file-modes-symbolic-to-number (concat "u=" (substring mode 0 3)
|
||||||
",g=" (substring mode 3 6)
|
",g=" (substring mode 3 6)
|
||||||
",a=" (substring mode 6 9))
|
",o=" (substring mode 6 9))
|
||||||
0))
|
0))
|
||||||
(t (error "File mode %S not recognised as a valid format. See `org-babel-interpret-file-mode'." mode))))
|
(t (error "File mode %S not recognised as a valid format. See `org-babel-interpret-file-mode'." mode))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue