Fix byte-compile warnings about defgroup
- Specify parent group - Use default group instead of explict specifying
This commit is contained in:
parent
b571187d68
commit
e17fa7c25a
15
origami.el
15
origami.el
@ -39,16 +39,18 @@
|
||||
|
||||
;;; fold display mode and faces
|
||||
|
||||
(defgroup origami nil
|
||||
"Origami: A text folding minor mode for Emacs."
|
||||
:group 'editing)
|
||||
|
||||
(defcustom origami-fold-replacement "..."
|
||||
;; TODO: this should also be specifiable as a function: folded text -> string
|
||||
"Show this string instead of the folded text."
|
||||
:type 'string
|
||||
:group 'origami)
|
||||
:type 'string)
|
||||
|
||||
(defcustom origami-show-fold-header nil
|
||||
"Highlight the line the fold start on."
|
||||
:type 'boolean
|
||||
:group 'origami)
|
||||
:type 'boolean)
|
||||
|
||||
(defface origami-fold-header-face
|
||||
`((t (:box (:line-width 1 :color ,(face-attribute 'highlight :background))
|
||||
@ -63,11 +65,6 @@
|
||||
'((t :inherit 'font-lock-comment-face))
|
||||
"Face used to display the fold replacement text.")
|
||||
|
||||
(defgroup origami '((origami-fold-header-face custom-face)
|
||||
(origami-fold-fringe-face custom-face)
|
||||
(origami-fold-replacement-face custom-face))
|
||||
"Origami: A text folding minor mode for Emacs.")
|
||||
|
||||
;;; overlay manipulation
|
||||
|
||||
(defun origami-header-overlay-range (fold-overlay)
|
||||
|
Loading…
Reference in New Issue
Block a user