Mercurial > emacs
comparison lisp/dired.el @ 80336:3c2f95ff2ff3
(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 | Sun, 16 Mar 2008 16:10:01 +0000 |
parents | 8de8dd7c8cb4 |
children | 837d54fb9fc9 4e76a03232e5 |
comparison
equal
deleted
inserted
replaced
80335:0095e7ebf658 | 80336:3c2f95ff2ff3 |
---|---|
342 :group 'dired-faces | 342 :group 'dired-faces |
343 :version "22.1") | 343 :version "22.1") |
344 (defvar dired-warning-face 'dired-warning | 344 (defvar dired-warning-face 'dired-warning |
345 "Face name used for a part of a buffer that needs user attention.") | 345 "Face name used for a part of a buffer that needs user attention.") |
346 | 346 |
347 (defface dired-warn-writable | 347 (defface dired-perm-write |
348 '((((type w32 pc)) :inherit default) ;; These default to rw-rw-rw. | 348 '((((type w32 pc)) :inherit default) ;; These default to rw-rw-rw. |
349 (t (:inherit font-lock-warning-face))) | 349 ;; Inherit from font-lock-comment-delimiter-face since with min-colors 8 |
350 ;; font-lock-comment-face is not colored any more. | |
351 (t (:inherit font-lock-comment-delimiter-face))) | |
350 "Face used to highlight permissions of group- and world-writable files." | 352 "Face used to highlight permissions of group- and world-writable files." |
351 :group 'dired-faces | 353 :group 'dired-faces |
352 :version "22.2") | 354 :version "22.2") |
353 (defvar dired-warn-writable-face 'dired-warn-writable | 355 (defvar dired-perm-write-face 'dired-perm-write |
354 "Face name used for permissions of group- and world-writable files.") | 356 "Face name used for permissions of group- and world-writable files.") |
355 | 357 |
356 (defface dired-directory | 358 (defface dired-directory |
357 '((t (:inherit font-lock-function-name-face))) | 359 '((t (:inherit font-lock-function-name-face))) |
358 "Face used for subdirectories." | 360 "Face used for subdirectories." |
412 ;; permissions, to win generally. -- fx. | 414 ;; permissions, to win generally. -- fx. |
413 ;; Fixme: we could also put text properties on the permission | 415 ;; Fixme: we could also put text properties on the permission |
414 ;; fields with keymaps to frob the permissions, somewhat a la XEmacs. | 416 ;; fields with keymaps to frob the permissions, somewhat a la XEmacs. |
415 (list (concat dired-re-maybe-mark dired-re-inode-size | 417 (list (concat dired-re-maybe-mark dired-re-inode-size |
416 "[-d]....\\(w\\)....") ; group writable | 418 "[-d]....\\(w\\)....") ; group writable |
417 '(1 dired-warn-writable-face)) | 419 '(1 dired-perm-write-face)) |
418 (list (concat dired-re-maybe-mark dired-re-inode-size | 420 (list (concat dired-re-maybe-mark dired-re-inode-size |
419 "[-d].......\\(w\\).") ; world writable | 421 "[-d].......\\(w\\).") ; world writable |
420 '(1 dired-warn-writable-face)) | 422 '(1 dired-perm-write-face)) |
421 ;; | 423 ;; |
422 ;; Subdirectories. | 424 ;; Subdirectories. |
423 (list dired-re-dir | 425 (list dired-re-dir |
424 '(".+" (dired-move-to-filename) nil (0 dired-directory-face))) | 426 '(".+" (dired-move-to-filename) nil (0 dired-directory-face))) |
425 ;; | 427 ;; |