From 2278ed1d916d6e07be5365a8191538878166169c Mon Sep 17 00:00:00 2001
From: Daniel Sanchez <40190339+daneelsan@users.noreply.github.com>
Date: Mon, 12 Oct 2020 14:49:43 -0500
Subject: [PATCH] Adding "OptionNames" in SyntaxInformation of
 WolframModelPlot. (#454)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

## Changes
* Closes #218.
* Adding "OptionNames" in `SyntaxInformation` of `WolframModelPlot`.

## Examples
```wl
In[] := WolframModelPlot[{{1, 2, 3}}, "InvalidOption" -> 4]
```
![image](https://user-images.githubusercontent.com/40190339/95776857-c0869e00-0c8a-11eb-93e7-74b8df0853b0.png)

<!-- Reviewable:start -->
---
This change is [<img src="https://reviewable.io/review_button.svg" height="34" align="absmiddle" alt="Reviewable"/>](https://reviewable.io/reviews/maxitg/setreplace/454)
<!-- Reviewable:end -->
---
 Kernel/WolframModelPlot.m | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Kernel/WolframModelPlot.m b/Kernel/WolframModelPlot.m
index 6bf261fbf..7e6485c3e 100644
--- a/Kernel/WolframModelPlot.m
+++ b/Kernel/WolframModelPlot.m
@@ -12,8 +12,6 @@
 WolframModelPlot::usage = usageString[
   "WolframModelPlot[`s`, `opts`] plots a list of vertex lists `s` as a hypergraph."];
 
-SyntaxInformation[WolframModelPlot] = {"ArgumentsPattern" -> {_, _., OptionsPattern[]}};
-
 $plotStyleAutomatic = <|
   $vertexPoint -> style[$lightTheme][$vertexStyle],
   $edgeLine -> style[$lightTheme][$edgeLineStyle],
@@ -41,6 +39,10 @@
 
 Options[WolframModelPlot] = Join[$newOptions, $defaultGraphicsOptions];
 
+SyntaxInformation[WolframModelPlot] = {
+  "ArgumentsPattern" -> {_, _., OptionsPattern[]},
+  "OptionNames" -> Options[WolframModelPlot][[All, 1]]};
+
 $edgeTypes = {"Ordered", "Cyclic"};
 $defaultEdgeType = "Ordered";
 $graphLayout = "SpringElectricalEmbedding";