# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1192306463 0
# Node ID 6b97f076168826783704eb100b5b71d63779da31
# Parent  e37f4927020020479cbf47b1c34536ef013571fc
(dired-warn-writable): New face.
(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.

diff -r e37f49270200 -r 6b97f0761688 lisp/dired.el
--- a/lisp/dired.el	Sat Oct 13 20:08:01 2007 +0000
+++ b/lisp/dired.el	Sat Oct 13 20:14:23 2007 +0000
@@ -344,6 +344,15 @@
 (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 @@
    ;; 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