[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f0f2a53: Font-lock suid/guid files in Dired
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master f0f2a53: Font-lock suid/guid files in Dired |
Date: |
Sun, 13 Oct 2019 21:31:41 -0400 (EDT) |
branch: master
commit f0f2a53b27187903c86189bd03f072ac6ddaba9c
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Font-lock suid/guid files in Dired
* lisp/dired.el (dired-font-lock-keywords): Font-lock suid/guid
permissions (bug#8186).
(dired-sguid): New face.
---
etc/NEWS | 4 ++++
lisp/dired.el | 13 +++++++++++++
2 files changed, 17 insertions(+)
diff --git a/etc/NEWS b/etc/NEWS
index d9d895a..4e62627 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -752,6 +752,10 @@ remapped to these, respectively.
** Dired
+---
+*** On systems that support it, Dired now font-locks the permissions
+of suid/guid files specially with the 'dired-set-id' face.
+
+++
*** New command 'dired-create-empty-file'.
diff --git a/lisp/dired.el b/lisp/dired.el
index 6e48d28..57c5040 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -431,6 +431,13 @@ Subexpression 2 must end right before the \\n.")
(defvar dired-perm-write-face 'dired-perm-write
"Face name used for permissions of group- and world-writable files.")
+(defface dired-set-idguid'
+ '((((type w32 pc)) :inherit default) ;; These default to rw-rw-rw.
+ (t (:inherit font-lock-warning-face)))
+ "Face used to highlight permissions of suid and guid files."
+ :group 'dired-faces
+ :version "27.1")
+
(defface dired-directory
'((t (:inherit font-lock-function-name-face)))
"Face used for subdirectories."
@@ -499,6 +506,12 @@ Subexpression 2 must end right before the \\n.")
(list (concat dired-re-maybe-mark dired-re-inode-size
"[-d].......\\(w\\).") ; world writable
'(1 dired-perm-write-face))
+ (list (concat dired-re-maybe-mark dired-re-inode-size
+ "[-d]..\\(s\\)......") ; suid
+ '(1 'dired-set-id))
+ (list (concat dired-re-maybe-mark dired-re-inode-size
+ "[-d].....\\(S\\)...") ; guid
+ '(1 'dired-set-id))
;;
;; Subdirectories.
(list dired-re-dir
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f0f2a53: Font-lock suid/guid files in Dired,
Lars Ingebrigtsen <=