[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 66a9810 32/40: Merge pull request #3 from syohex/group

From: Alexey Veretennikov
Subject: [elpa] master 66a9810 32/40: Merge pull request #3 from syohex/group
Date: Fri, 29 Jan 2016 23:29:49 +0000

branch: master
commit 66a981064903a4fd9d220fcec27bdabee3f8cdcc
Merge: 194dd68 e5d1061
Author: Alexey Veretennikov <address@hidden>
Commit: Alexey Veretennikov <address@hidden>

    Merge pull request #3 from syohex/group
    Define group for customize and fixing byte-compile warnings
 loccur.el |   10 ++++++++--
 1 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/loccur.el b/loccur.el
index a076a5d..6b29022 100644
--- a/loccur.el
+++ b/loccur.el
@@ -70,6 +70,10 @@
 (require 'cl-lib)
+(defgroup loccur nil
+  "Perform an occur-like folding in current buffer."
+  :group 'tools)
 ;; should be defined before define-minor-mode
 (defvar loccur-mode-map
   (let ((map (make-sparse-keymap)))
@@ -95,7 +99,8 @@ a new window."
 (defface loccur-face
   '((t (:inherit isearch)))
-  "Loccur face")
+  "Loccur face"
+  :group 'loccur)
 (defconst loccur-overlay-invisible-property-name 'loccur-invisible-overlay
@@ -110,7 +115,8 @@ Default: nil")
 (defcustom loccur-highlight-matching-regexp t
   "If set to nil, do not highlight matching words.
-Default: t")
+Default: t"
+  :group 'loccur)
 (defvar loccur-history nil
   "History of previously searched expressions for the prompt.")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]