[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 65274ab: Mark block/char devices the same as socket
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 65274ab: Mark block/char devices the same as sockets in dired |
Date: |
Sun, 28 Jul 2019 06:00:41 -0400 (EDT) |
branch: master
commit 65274ab1c96fbd4bbd6303dc6c6567f1cd2470bc
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Mark block/char devices the same as sockets in dired
* lisp/dired.el (dired-re-socket): Also mark block and char
devices with the socket face (bug#24547).
---
etc/NEWS | 4 ++++
lisp/dired.el | 7 ++++---
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/etc/NEWS b/etc/NEWS
index d876c95..e79a6ec 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -651,6 +651,10 @@ remapped to these, respectively.
*** The marking commands now report how many files were marked by the
command itself, not how many files are marked in total.
+---
+*** A new face, `dired-socket', is used to highlight sockets, names
+pipes, block devices and character devices.
+
** Find-Dired
*** New customizable variable 'find-dired-refine-function'.
diff --git a/lisp/dired.el b/lisp/dired.el
index d67d92d..738d5fc 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -340,7 +340,8 @@ 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-socket (concat dired-re-maybe-mark dired-re-inode-size
+ "[bcsp][^:]"))
(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))
@@ -448,7 +449,7 @@ Subexpression 2 must end right before the \\n.")
(defface dired-socket
'((t (:inherit font-lock-variable-name-face)))
- "Face used for sockets and pipes."
+ "Face used for sockets, pipes, block devices and char devices."
:group 'dired-faces
:version "27.1")
@@ -507,7 +508,7 @@ Subexpression 2 must end right before the \\n.")
(list dired-re-sym
'(".+" (dired-move-to-filename) nil (0 dired-symlink-face)))
;;
- ;; Sockets and pipes
+ ;; Sockets, pipes, block devices, char devices.
(list dired-re-socket
'(".+" (dired-move-to-filename) nil (0 'dired-socket)))
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 65274ab: Mark block/char devices the same as sockets in dired,
Lars Ingebrigtsen <=