branch: elpa/hl-block-mode
commit 1df0751b41d665c7b8037dbd9031c061db9f9e43
Author: Campbell Barton <[email protected]>
Commit: Campbell Barton <[email protected]>
Style: improve defcustom type specifications
- Use 'const' instead of 'symbol' for hl-block-style choices
(more appropriate for predefined values)
- Simplify tag strings (backtick-quoted variable names looked awkward)
- Fix hl-block-bracket-face type to accept both face and plist
(default value is a plist, not a face symbol)
---
hl-block-mode.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hl-block-mode.el b/hl-block-mode.el
index 40096e4f86d..237cbdf9738 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -70,8 +70,8 @@ Useful for languages that use S-expressions to avoid overly
nested highlighting.
(defcustom hl-block-style 'color-tint
"Only highlight a single level."
:type
- '(choice (symbol :tag "Tint the background at each level
`hl-block-color-tint'." color-tint)
- (symbol :tag "Highlight surrounding brackets using
`hl-block-bracket-face'." bracket)))
+ '(choice (const :tag "Tint the background at each level." color-tint)
+ (const :tag "Highlight surrounding brackets." bracket)))
;; For `color-tint' draw style.
(defcustom hl-block-color-tint "#040404"
@@ -81,7 +81,7 @@ Useful for languages that use S-expressions to avoid overly
nested highlighting.
;; For `bracket' draw style.
(defcustom hl-block-bracket-face '(:inverse-video t)
"Face used when `hl-block-style' is set to `bracket'."
- :type 'face)
+ :type '(choice face plist))
(defcustom hl-block-mode-lighter ""
"Lighter for option `hl-block-mode'."
