Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mark block/char devices the same as sockets in dired

Browse source 
* lisp/dired.el (dired-re-socket): Also mark block and char
devices with the socket face (bug#24547).
This commit is contained in:
Lars Ingebrigtsen 2019-07-28 12:00:24 +02:00
parent 348a6de118
commit 65274ab1c9
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -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'.

7
lisp/dired.el
View file

@ -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)))
;;