1 files changed, 10 insertions, 10 deletions
diff --git a/arabluatex.el b/arabluatex.el
index 8977b32..063fa61 100644
--- a/arabluatex.el
+++ b/arabluatex.el
@@ -38,10 +38,10 @@
  (TeX-read-key-val t LaTeX-arabluatex-preamble-options))
 (defvar LaTeX-arabluatex-mode-options
-  '("voc"
+  '(("voc")
-    "fullvoc"
+    ("fullvoc")
-    "novoc"
+    ("novoc")
-    "trans")
+    ("trans"))
  "List of local options for arabluatex macros.")
 (defvar LaTeX-arabluatex-key-val-options
@@ -101,23 +101,23 @@
    "prname"
    "txarb"
    '("arb" [ TeX-arg-eval completing-read
-                           (TeX-argument-prompt optional nil "Mode")
+                           (TeX-argument-prompt nil nil "Mode")
                           LaTeX-arabluatex-mode-options ]
      t)
    '("arbcolor" [ TeX-arg-eval completing-read
-                                (TeX-argument-prompt optional nil "Color")
+                                (TeX-argument-prompt nil nil "Color")
                                (LaTeX-xcolor-definecolor-list) ]
      t)
    '("arbmark" [ TeX-arg-eval completing-read
-                               (TeX-argument-prompt optional nil "Option")
+                               (TeX-argument-prompt nil nil "Option")
                               LaTeX-arabluatex-arbmark-options ]
      t)
    '("ArbOutFile" [ TeX-arg-eval completing-read
-                                  (TeX-argument-prompt optional nil "Option")
+                                  (TeX-argument-prompt nil nil "Option")
                                  LaTeX-arabluatex-outfile-options ]
      t)
    '("ArbOutFile*" [ TeX-arg-eval completing-read
-                                   (TeX-argument-prompt optional nil "Option")
+                                   (TeX-argument-prompt nil nil "Option")
                                   LaTeX-arabluatex-outfile-options ]
      t)
    '("arind" [ TeX-arg-key-val LaTeX-arabluatex-arind-options ]
@@ -145,7 +145,7 @@
   (LaTeX-add-environments
    '("arab" LaTeX-env-args
      [ TeX-arg-eval completing-read
-                     (TeX-argument-prompt optional nil "Mode")
+                     (TeX-argument-prompt nil nil "Mode")
                     LaTeX-arabluatex-mode-options ]
      )
    "txarab"

diff --git a/arabluatex.el b/arabluatex.el index 8977b32..063fa61 100644 --- a/arabluatex.el +++ b/arabluatex.el
@@ -38,10 +38,10 @@
38	(TeX-read-key-val t LaTeX-arabluatex-preamble-options))	38	(TeX-read-key-val t LaTeX-arabluatex-preamble-options))
39		39
40	(defvar LaTeX-arabluatex-mode-options	40	(defvar LaTeX-arabluatex-mode-options
41	'("voc"	41	'(("voc")
42	"fullvoc"	42	("fullvoc")
43	"novoc"	43	("novoc")
44	"trans")	44	("trans"))
45	"List of local options for arabluatex macros.")	45	"List of local options for arabluatex macros.")
46		46
47	(defvar LaTeX-arabluatex-key-val-options	47	(defvar LaTeX-arabluatex-key-val-options
@@ -101,23 +101,23 @@
101	"prname"	101	"prname"
102	"txarb"	102	"txarb"
103	'("arb" [ TeX-arg-eval completing-read	103	'("arb" [ TeX-arg-eval completing-read
104	(TeX-argument-prompt optional nil "Mode")	104	(TeX-argument-prompt nil nil "Mode")
105	LaTeX-arabluatex-mode-options ]	105	LaTeX-arabluatex-mode-options ]
106	t)	106	t)
107	'("arbcolor" [ TeX-arg-eval completing-read	107	'("arbcolor" [ TeX-arg-eval completing-read
108	(TeX-argument-prompt optional nil "Color")	108	(TeX-argument-prompt nil nil "Color")
109	(LaTeX-xcolor-definecolor-list) ]	109	(LaTeX-xcolor-definecolor-list) ]
110	t)	110	t)
111	'("arbmark" [ TeX-arg-eval completing-read	111	'("arbmark" [ TeX-arg-eval completing-read
112	(TeX-argument-prompt optional nil "Option")	112	(TeX-argument-prompt nil nil "Option")
113	LaTeX-arabluatex-arbmark-options ]	113	LaTeX-arabluatex-arbmark-options ]
114	t)	114	t)
115	'("ArbOutFile" [ TeX-arg-eval completing-read	115	'("ArbOutFile" [ TeX-arg-eval completing-read
116	(TeX-argument-prompt optional nil "Option")	116	(TeX-argument-prompt nil nil "Option")
117	LaTeX-arabluatex-outfile-options ]	117	LaTeX-arabluatex-outfile-options ]
118	t)	118	t)
119	'("ArbOutFile*" [ TeX-arg-eval completing-read	119	'("ArbOutFile*" [ TeX-arg-eval completing-read
120	(TeX-argument-prompt optional nil "Option")	120	(TeX-argument-prompt nil nil "Option")
121	LaTeX-arabluatex-outfile-options ]	121	LaTeX-arabluatex-outfile-options ]
122	t)	122	t)
123	'("arind" [ TeX-arg-key-val LaTeX-arabluatex-arind-options ]	123	'("arind" [ TeX-arg-key-val LaTeX-arabluatex-arind-options ]
@@ -145,7 +145,7 @@
145	(LaTeX-add-environments	145	(LaTeX-add-environments
146	'("arab" LaTeX-env-args	146	'("arab" LaTeX-env-args
147	[ TeX-arg-eval completing-read	147	[ TeX-arg-eval completing-read
148	(TeX-argument-prompt optional nil "Mode")	148	(TeX-argument-prompt nil nil "Mode")
149	LaTeX-arabluatex-mode-options ]	149	LaTeX-arabluatex-mode-options ]
150	)	150	)
151	"txarab"	151	"txarab"