diff options
author | Juri Linkov <juri@linkov.net> | 2019-08-05 23:56:36 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2019-08-05 23:56:36 +0300 |
commit | f986269fe8e56210c0d1ca69fb5f4320e66e2736 (patch) | |
tree | e4a395e59e9c1278d0544b3932b1f31cc33428e8 /lisp/dired.el | |
parent | 883438ef67cb483f5d986651110bbc0578683a82 (diff) | |
download | emacs-f986269fe8e56210c0d1ca69fb5f4320e66e2736.tar.gz |
* lisp/dired.el (dired-special): Rename face from dired-socket (bug#24547).
(dired-re-special): Rename from dired-re-socket.
Diffstat (limited to 'lisp/dired.el')
-rw-r--r-- | lisp/dired.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index c31176972fc..854bc9f7d7e 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -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 . |