mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

* lisp/dired.el (dired-special): Rename face from dired-socket (bug#24547).

Browse Source 
(dired-re-special): Rename from dired-re-socket.
This commit is contained in:
Juri Linkov 2019-08-05 23:56:36 +03:00
parent 883438ef67
commit f986269fe8
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/NEWS
View File

@ -658,7 +658,7 @@ remapped to these, respectively.
command itself, not how many files are marked in total.
---
*** A new face, 'dired-socket', is used to highlight sockets, named
*** A new face, 'dired-special', is used to highlight sockets, named
pipes, block devices and character devices.
** Find-Dired

10
lisp/dired.el
View File

@ -340,8 +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
"[bcsp][^:]"))
(defvar dired-re-special (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))
@ -447,7 +447,7 @@ Subexpression 2 must end right before the \\n.")
(defvar dired-symlink-face 'dired-symlink
"Face name used for symbolic links.")
(defface dired-socket
(defface dired-special
'((t (:inherit font-lock-variable-name-face)))
"Face used for sockets, pipes, block devices and char devices."
:group 'dired-faces
@ -509,8 +509,8 @@ Subexpression 2 must end right before the \\n.")
'(".+" (dired-move-to-filename) nil (0 dired-symlink-face)))
;;
;; Sockets, pipes, block devices, char devices.
(list dired-re-socket
'(".+" (dired-move-to-filename) nil (0 'dired-socket)))
(list dired-re-special
'(".+" (dired-move-to-filename) nil (0 'dired-special)))
;;
;; Files suffixed with `completion-ignored-extensions'.
'(eval .