mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(dired-warn-writable): New face.

Browse source 
(dired-warn-writable-face): New variable.
(dired-font-lock-keywords): Use dired-warn-writable-face, instead of
dired-warning-face, for group- and world-writable files.
This commit is contained in:
Eli Zaretskii 2007-10-13 20:14:23 +00:00
parent 19530b36bf
commit 38838c80f6
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/dired.el
View file

@ -344,6 +344,15 @@ Subexpression 2 must end right before the \\n or \\r.")
(defvar dired-warning-face 'dired-warning
"Face name used for a part of a buffer that needs user attention.")
(defface dired-warn-writable
'((((type w32 pc)) :inherit default) ;; These default to rw-rw-rw.
(t (:inherit font-lock-warning-face)))
"Face used to highlight permissions of group- and world-writable files."
:group 'dired-faces
:version "22.2")
(defvar dired-warn-writable-face 'dired-warn-writable
"Face name used for permissions of group- and world-writable files.")
(defface dired-directory
'((t (:inherit font-lock-function-name-face)))
"Face used for subdirectories."
@ -405,10 +414,10 @@ Subexpression 2 must end right before the \\n or \\r.")
;; fields with keymaps to frob the permissions, somewhat a la XEmacs.
(list (concat dired-re-maybe-mark dired-re-inode-size
"[-d]....\\(w\\)....") ; group writable
'(1 dired-warning-face))
'(1 dired-warn-writable-face))
(list (concat dired-re-maybe-mark dired-re-inode-size
"[-d].......\\(w\\).") ; world writable
'(1 dired-warning-face))
'(1 dired-warn-writable-face))
;;
;; Subdirectories.
(list dired-re-dir