xeals/origami.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix byte-compile warnings about defgroup

Browse Source 
- Specify parent group
- Use default group instead of explict specifying
This commit is contained in:
Syohei YOSHIDA 2016-07-11 07:50:47 +09:00
parent b571187d68
commit e17fa7c25a
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
origami.el
View File

@ -39,16 +39,18 @@
;;; fold display mode and faces ;;; fold display mode and faces
(defgroup origami nil
"Origami: A text folding minor mode for Emacs."
:group 'editing)
(defcustom origami-fold-replacement "..." (defcustom origami-fold-replacement "..."
;; TODO: this should also be specifiable as a function: folded text -> string ;; TODO: this should also be specifiable as a function: folded text -> string
"Show this string instead of the folded text." "Show this string instead of the folded text."
:type 'string :type 'string)
:group 'origami)
(defcustom origami-show-fold-header nil (defcustom origami-show-fold-header nil
"Highlight the line the fold start on." "Highlight the line the fold start on."
:type 'boolean :type 'boolean)
:group 'origami)
(defface origami-fold-header-face (defface origami-fold-header-face
`((t (:box (:line-width 1 :color ,(face-attribute 'highlight :background)) `((t (:box (:line-width 1 :color ,(face-attribute 'highlight :background))
@ -63,11 +65,6 @@
'((t :inherit 'font-lock-comment-face)) '((t :inherit 'font-lock-comment-face))
"Face used to display the fold replacement text.") "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 ;;; overlay manipulation
(defun origami-header-overlay-range (fold-overlay) (defun origami-header-overlay-range (fold-overlay)