[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 471d198 2/2: Make dired fontify pipes and sockets
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 471d198 2/2: Make dired fontify pipes and sockets |
Date: |
Sat, 27 Jul 2019 10:25:51 -0400 (EDT) |
branch: master
commit 471d198c92c68b8d20545f14644d2c8e9e807a5c
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make dired fontify pipes and sockets
* lisp/dired.el (dired-socket): New face for pipes and sockets
(bug#24547).
(dired-re-socket): New regexp to match them.
(dired-font-lock-keywords): Use them.
---
lisp/dired.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/lisp/dired.el b/lisp/dired.el
index 1cd9ae5..d67d92d 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -340,6 +340,7 @@ The directory name must be absolute, but need not be fully
expanded.")
;; DOS/Windows-style drive letters in directory names, like in "d:/foo".
(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[^:]"))
(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[^:]"))
+(defvar dired-re-socket (concat dired-re-maybe-mark dired-re-inode-size
"[sp][^:]"))
(defvar dired-re-exe;; match ls permission string of an executable file
(mapconcat (lambda (x)
(concat dired-re-maybe-mark dired-re-inode-size x))
@@ -445,6 +446,12 @@ Subexpression 2 must end right before the \\n.")
(defvar dired-symlink-face 'dired-symlink
"Face name used for symbolic links.")
+(defface dired-socket
+ '((t (:inherit font-lock-variable-name-face)))
+ "Face used for sockets and pipes."
+ :group 'dired-faces
+ :version "27.1")
+
(defface dired-ignored
'((t (:inherit shadow)))
"Face used for files suffixed with `completion-ignored-extensions'."
@@ -500,6 +507,10 @@ Subexpression 2 must end right before the \\n.")
(list dired-re-sym
'(".+" (dired-move-to-filename) nil (0 dired-symlink-face)))
;;
+ ;; Sockets and pipes
+ (list dired-re-socket
+ '(".+" (dired-move-to-filename) nil (0 'dired-socket)))
+ ;;
;; Files suffixed with `completion-ignored-extensions'.
'(eval .
;; It is quicker to first find just an extension, then go back to the