branch: master
commit 1bb48ae0ef2642748c113c2d607a942d4cb0bdf1
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
swiper.el: Add :group for faces
Re #2135
---
counsel.el | 4 ++--
swiper.el | 27 ++++++++++++++++++---------
2 files changed, 20 insertions(+), 11 deletions(-)
diff --git a/counsel.el b/counsel.el
index 826462a..9d49719 100644
--- a/counsel.el
+++ b/counsel.el
@@ -647,7 +647,6 @@ X is an item of a radio- or choice-type defcustom."
(declare-function lv-delete-window "ext:lv")
(declare-function custom-variable-documentation "cus-edit")
-;;;###autoload
(defface counsel-variable-documentation
'((t :inherit font-lock-comment-face))
"Face for displaying Lisp documentation."
@@ -3591,7 +3590,8 @@ This variable has no effect unless
;;** `counsel-mark-ring'
(defface counsel--mark-ring-highlight
'((t (:inherit highlight)))
- "Face for current `counsel-mark-ring' line.")
+ "Face for current `counsel-mark-ring' line."
+ :group 'ivy-faces)
(defvar counsel--mark-ring-overray nil
"Intarnal overray to highlight line by candidate of `counsel-mark-ring'.")
diff --git a/swiper.el b/swiper.el
index f13ea28..d3d19f9 100644
--- a/swiper.el
+++ b/swiper.el
@@ -43,39 +43,48 @@
(defface swiper-match-face-1
'((t (:inherit lazy-highlight)))
- "The background face for `swiper' matches.")
+ "The background face for `swiper' matches."
+ :group 'ivy-faces)
(defface swiper-match-face-2
'((t (:inherit isearch)))
- "Face for `swiper' matches modulo 1.")
+ "Face for `swiper' matches modulo 1."
+ :group 'ivy-faces)
(defface swiper-match-face-3
'((t (:inherit match)))
- "Face for `swiper' matches modulo 2.")
+ "Face for `swiper' matches modulo 2."
+ :group 'ivy-faces)
(defface swiper-match-face-4
'((t (:inherit isearch-fail)))
- "Face for `swiper' matches modulo 3.")
+ "Face for `swiper' matches modulo 3."
+ :group 'ivy-faces)
(defface swiper-background-match-face-1
'((t (:inherit swiper-match-face-1)))
- "The background face for non-current `swiper' matches.")
+ "The background face for non-current `swiper' matches."
+ :group 'ivy-faces)
(defface swiper-background-match-face-2
'((t (:inherit swiper-match-face-2)))
- "Face for non-current `swiper' matches modulo 1.")
+ "Face for non-current `swiper' matches modulo 1."
+ :group 'ivy-faces)
(defface swiper-background-match-face-3
'((t (:inherit swiper-match-face-3)))
- "Face for non-current `swiper' matches modulo 2.")
+ "Face for non-current `swiper' matches modulo 2."
+ :group 'ivy-faces)
(defface swiper-background-match-face-4
'((t (:inherit swiper-match-face-4)))
- "Face for non-current `swiper' matches modulo 3.")
+ "Face for non-current `swiper' matches modulo 3."
+ :group 'ivy-faces)
(defface swiper-line-face
'((t (:inherit highlight)))
- "Face for current `swiper' line.")
+ "Face for current `swiper' line."
+ :group 'ivy-faces)
(defcustom swiper-faces '(swiper-match-face-1
swiper-match-face-2
