(lw_separator_p): Add alternative separator type names.

diff --git a/lwlib/lwlib.c b/lwlib/lwlib.c
index f17d231a677a09a4947a5a1b945eefe3f373956b..9e99847f8e3b2e805a13bb046b0c337efcb8a636 100644 (file)
--- a/lwlib/lwlib.c
+++ b/lwlib/lwlib.c
@@ -1445,6 +1445,50 @@ lw_separator_p (label, type, motif_p)
            separator_p = 1;
            *type = separator_names[i].type;
 
+           /* If separator type is not supported under Motif,
+              use a similar one.  */
+           if (motif_p && *type >= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN)
+             *type -= 4;
+           break;
+         }
+    }
+  else if (strlen (label) > 3
+          && bcmp (label, "--", 2) == 0)
+    {
+      /* Alternative, more Emacs-style names.  */
+      static struct separator_table
+      {
+       char *name;
+       enum menu_separator type;
+      }
+      separator_names[] =
+      {
+       "space",                        SEPARATOR_NO_LINE,
+       "no-line",                      SEPARATOR_NO_LINE,
+       "single-line",                  SEPARATOR_SINGLE_LINE,
+       "double-line",                  SEPARATOR_DOUBLE_LINE,
+       "single-dashed-line",           SEPARATOR_SINGLE_DASHED_LINE,
+       "double-dashed-line",           SEPARATOR_DOUBLE_DASHED_LINE,
+       "shadow-etched-in",             SEPARATOR_SHADOW_ETCHED_IN,
+       "shadow-etched-out",            SEPARATOR_SHADOW_ETCHED_OUT,
+       "shadow-etched-in-dash",        SEPARATOR_SHADOW_ETCHED_IN_DASH,
+       "shadow-etched-out-dash",       SEPARATOR_SHADOW_ETCHED_OUT_DASH,
+       "shadow-double-etched-in",      SEPARATOR_SHADOW_DOUBLE_ETCHED_IN,
+       "shadow-double-etched-out",     SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT,
+       "shadow-double-etched-in-dash", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH,
+       "shadow-double-etched-out-dash",SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH,
+       0
+      };
+
+      int i;
+
+      label += 2;
+      for (i = 0; separator_names[i].name; ++i)
+       if (strcmp (label, separator_names[i].name) == 0)
+         {
+           separator_p = 1;
+           *type = separator_names[i].type;
+
            /* If separator type is not supported under Motif,
               use a similar one.  */
            if (motif_p && *type >= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN)