From 38838c80f635d0736dab9613fcfcdf35c173200e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 13 Oct 2007 20:14:23 +0000 Subject: [PATCH] (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. --- lisp/dired.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 5d0e41fee7..af700ac80a 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -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 -- 2.20.1