Declare defgroup more conventionally
- Add missing parent group - No need to enumerate members - "for Emacs" is redundant
This commit is contained in:
parent
b571187d68
commit
c4bf2ea7a0
10
origami.el
10
origami.el
@ -39,6 +39,11 @@
|
|||||||
|
|
||||||
;;; fold display mode and faces
|
;;; fold display mode and faces
|
||||||
|
|
||||||
|
(defgroup origami nil
|
||||||
|
"Flexible text folding"
|
||||||
|
:prefix "origami-"
|
||||||
|
:group 'convenience)
|
||||||
|
|
||||||
(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."
|
||||||
@ -63,11 +68,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)
|
||||||
|
Loading…
Reference in New Issue
Block a user