Mercurial > emacs
changeset 92881:d6c8f902278a
(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'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 14 Mar 2008 01:01:36 +0000 |
| parents | e82973d88bca |
| children | 05fd686fa0f7 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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