(dired-font-lock-keywords): Don't specially highlight

files that are writable by others.

diff --git a/lisp/dired.el b/lisp/dired.el
index c767b1c6b3eccafc29697125ea555cb8c6b378d0..30348d62ffcfe0565e0a24e4d956b9c49f64eee6 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -261,12 +261,16 @@ Subexpression 2 must end right before the \\n or \\r.")
    (list dired-re-mark
         '(0 font-lock-reference-face)
         '(".+" (dired-move-to-filename) nil (0 font-lock-warning-face)))
-   ;;
-   ;; Files that are group or world writable.
-   (list (concat dired-re-maybe-mark dired-re-inode-size
-                "\\([-d]\\(....w....\\|.......w.\\)\\)")
-        '(1 font-lock-comment-face)
-        '(".+" (dired-move-to-filename) nil (0 font-lock-comment-face)))
+   ;; People who are paranoid about security would consider this more
+   ;; important than other things such as whether it is a directory.
+   ;; But we don't want to encourage paranoia, so our default
+   ;; should be what's most useful for non-paranoids. -- rms.
+;;;   ;;
+;;;   ;; Files that are group or world writable.
+;;;   (list (concat dired-re-maybe-mark dired-re-inode-size
+;;;             "\\([-d]\\(....w....\\|.......w.\\)\\)")
+;;;     '(1 font-lock-comment-face)
+;;;     '(".+" (dired-move-to-filename) nil (0 font-lock-comment-face)))
    ;;
    ;; Subdirectories.
    (list dired-re-dir