branch: elpa/adoc-mode
commit 8e9f41e46d0831c9abb416e440bd933380ae5e6d
Author: Bozhidar Batsov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
Add missing tempo templates for role-based text decorations
Define the six templates (underline, overline, line-through, nobreak,
nowrap, pre-wrap) that the menu referenced but were never created.
Also fix adoc-attributed using the wrong help variable.
---
adoc-mode-tempo.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/adoc-mode-tempo.el b/adoc-mode-tempo.el
index 52aa515d8b..72ed21b99b 100644
--- a/adoc-mode-tempo.el
+++ b/adoc-mode-tempo.el
@@ -37,6 +37,12 @@
(defvar adoc-help-single-quote)
(defvar adoc-help-double-quote)
(defvar adoc-help-attributed)
+(defvar adoc-help-underline)
+(defvar adoc-help-overline)
+(defvar adoc-help-line-through)
+(defvar adoc-help-nobreak)
+(defvar adoc-help-nowrap)
+(defvar adoc-help-pre-wrap)
(defvar adoc-help-line-break)
(defvar adoc-help-page-break)
(defvar adoc-help-ruler-line)
@@ -112,7 +118,13 @@ which can be truthy even without an active region."
(adoc-tempo-define "adoc-monospace-literal" '("`" (r "text" text) "`"))
(adoc-tempo-define "adoc-single-quote" '("`" (r "text" text) "'") nil
(bound-and-true-p adoc-help-single-quote))
(adoc-tempo-define "adoc-double-quote" '("``" (r "text" text) "''") nil
(bound-and-true-p adoc-help-double-quote))
-(adoc-tempo-define "adoc-attributed" '("[" p "]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-double-quote))
+(adoc-tempo-define "adoc-attributed" '("[" p "]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-attributed))
+(adoc-tempo-define "adoc-underline" '("[.underline]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-underline))
+(adoc-tempo-define "adoc-overline" '("[.overline]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-overline))
+(adoc-tempo-define "adoc-line-through" '("[.line-through]#" (r "text" text)
"#") nil (bound-and-true-p adoc-help-line-through))
+(adoc-tempo-define "adoc-nobreak" '("[.nobreak]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-nobreak))
+(adoc-tempo-define "adoc-nowrap" '("[.nowrap]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-nowrap))
+(adoc-tempo-define "adoc-pre-wrap" '("[.pre-wrap]#" (r "text" text) "#") nil
(bound-and-true-p adoc-help-pre-wrap))
;; Text formatting - unconstrained quotes
(adoc-tempo-define "adoc-emphasis-uc" '("__" (r "text" text) "__") nil
(bound-and-true-p adoc-help-emphasis))
