# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1205456496 0
# Node ID d6c8f902278a5a154c9f38edf8b501b52961f726
# Parent  e82973d88bca01c5b30f0fb977aa7783c43b570d
(dired-warn-writable): Rename to `dired-perm-write'.
(dired-perm-write): Renamed from `dired-warn-writable'.
Change parent face from `font-lock-warning-face' to
`font-lock-comment-delimiter-face'.
(dired-warn-writable-face): Rename to `dired-perm-write-face'.
(dired-perm-write-face): Renamed from `dired-warn-writable-face'.
(dired-font-lock-keywords): Replace `dired-warn-writable-face'
with `dired-perm-write-face'.

diff -r e82973d88bca -r d6c8f902278a lisp/dired.el
--- a/lisp/dired.el	Thu Mar 13 18:12:28 2008 +0000
+++ b/lisp/dired.el	Fri Mar 14 01:01:36 2008 +0000
@@ -344,13 +344,13 @@
 (defvar dired-warning-face 'dired-warning
   "Face name used for a part of a buffer that needs user attention.")
 
-(defface dired-warn-writable
+(defface dired-perm-write
   '((((type w32 pc)) :inherit default)  ;; These default to rw-rw-rw.
-    (t (:inherit font-lock-warning-face)))
+    (t (:inherit font-lock-comment-delimiter-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
+(defvar dired-perm-write-face 'dired-perm-write
   "Face name used for permissions of group- and world-writable files.")
 
 (defface dired-directory
@@ -414,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-warn-writable-face))
+	 '(1 dired-perm-write-face))
    (list (concat dired-re-maybe-mark dired-re-inode-size
 		 "[-d].......\\(w\\).")	; world writable
-	 '(1 dired-warn-writable-face))
+	 '(1 dired-perm-write-face))
    ;;
    ;; Subdirectories.
    (list dired-re-dir