From 4fdf389ae258437c13378e73ad224fd2485e3c23 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 Aug 1997 17:21:24 +0000 Subject: [PATCH] (dired-font-lock-keywords): Don't specially highlight files that are writable by others. --- lisp/dired.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index c767b1c6b3e..30348d62ffc 100644 --- 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 -- 2.39.5