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

(trash-directory): Run thru `convert-standard-filename'.

Browse source 
(file-modes-char-to-who, file-modes-char-to-right)
(file-modes-rights-to-number, file-modes-symbolic-to-number)
(read-file-modes): Doc fixes.
This commit is contained in:
Eli Zaretskii 2008-10-18 18:41:32 +00:00
parent 7e51d89b73
commit e240aaa99e
2 changed files with 31 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2008-10-18 Eli Zaretskii <eliz@gnu.org>
* files.el (trash-directory): Run thru `convert-standard-filename'.
(file-modes-char-to-who, file-modes-char-to-right)
(file-modes-rights-to-number, file-modes-symbolic-to-number)
(read-file-modes): Doc fixes.
2008-10-17 Chong Yidong <cyd@stupidchicken.com>
* abbrev.el (define-abbrev): Doc fix.

38
lisp/files.el
View file

@ -5694,8 +5694,11 @@ only these files will be asked to be saved."
;; Symbolic modes and read-file-modes.
(defun file-modes-char-to-who (char)
"Convert CHAR to a who-mask from a symbolic mode notation.
CHAR is in [ugoa] and represents the users on which rights are applied."
"Convert CHAR to a numeric bit-mask for extracting mode bits.
CHAR is in [ugoa] and represents the category of users (Owner, Group,
Others, or All) for whom to produce the mask.
The bit-mask that is returned extracts from mode bits the access rights
for the specified category of users."
(cond ((= char ?u) #o4700)
((= char ?g) #o2070)
((= char ?o) #o1007)
@ -5703,9 +5706,9 @@ CHAR is in [ugoa] and represents the users on which rights are applied."
(t (error "%c: bad `who' character" char))))
(defun file-modes-char-to-right (char &optional from)
"Convert CHAR to a right-mask from a symbolic mode notation.
CHAR is in [rwxXstugo] and represents a right.
If CHAR is in [Xugo], the value is extracted from FROM (or 0 if nil)."
"Convert CHAR to a numeric value of mode bits.
CHAR is in [rwxXstugo] and represents symbolic access permissions.
If CHAR is in [Xugo], the value is taken from FROM (or 0 if omitted)."
(or from (setq from 0))
(cond ((= char ?r) #o0444)
((= char ?w) #o0222)
@ -5723,10 +5726,13 @@ If CHAR is in [Xugo], the value is extracted from FROM (or 0 if nil)."
(t (error "%c: bad right character" char))))
(defun file-modes-rights-to-number (rights who-mask &optional from)
"Convert a right string to a right-mask from a symbolic modes notation.
RIGHTS is the right string, it should match \"([+=-][rwxXstugo]+)+\".
WHO-MASK is the mask number of the users on which the rights are to be applied.
FROM (or 0 if nil) is the orginal modes of the file to be chmod'ed."
"Convert a symbolic mode string specification to an equivalent number.
RIGHTS is the symbolic mode spec, it should match \"([+=-][rwxXstugo]+)+\".
WHO-MASK is the bit-mask specifying the category of users to which to
apply the access permissions. See `file-modes-char-to-who'.
FROM (or 0 if nil) gives the mode bits on which to base permissions if
RIGHTS request to add, remove, or set permissions based on existing ones,
as in \"og+rX-w\"."
(let* ((num-rights (or from 0))
(list-rights (string-to-list rights))
(op (pop list-rights)))
@ -5752,7 +5758,9 @@ MODES is the string to convert, it should match
\"[ugoa]*([+-=][rwxXstugo]+)+,...\".
See (info \"(coreutils)File permissions\") for more information on this
notation.
FROM (or 0 if nil) is the orginal modes of the file to be chmod'ed."
FROM (or 0 if nil) gives the mode bits on which to base permissions if
MODES request to add, remove, or set permissions based on existing ones,
as in \"og+rX-w\"."
(save-match-data
(let ((case-fold-search nil)
(num-modes (or from 0)))
@ -5771,9 +5779,11 @@ FROM (or 0 if nil) is the orginal modes of the file to be chmod'ed."
num-modes)))
(defun read-file-modes (&optional prompt orig-file)
"Read file modes in octal or symbolic notation.
"Read file modes in octal or symbolic notation and return its numeric value.
PROMPT is used as the prompt, default to `File modes (octal or symbolic): '.
ORIG-FILE is the original file of which modes will be changed."
ORIG-FILE is the name of a file on whose mode bits to base returned
permissions if what user types requests to add, remove, or set permissions
based on existing mode bits, as in \"og+rX-w\"."
(let* ((modes (or (if orig-file (file-modes orig-file) 0)
(error "File not found")))
(modestr (and (stringp orig-file)
@ -5795,8 +5805,8 @@ ORIG-FILE is the original file of which modes will be changed."
(file-modes-symbolic-to-number value modes)))))
;; Trash can handling.
(defcustom trash-directory "~/.Trash"
;; Trashcan handling.
(defcustom trash-directory (convert-standard-filename "~/.Trash")
"Directory for `move-file-to-trash' to move files and directories to.
This directory is only used when the function `system-move-file-to-trash' is
not defined. Relative paths are interpreted relative to `default-directory'.