(easy-menu-do-add-item): Support for new seperator types.

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 0b02508c2c971a631354cad23510aad24a4f4c08..361834a47b163a9747c66436dce4ce785c8c9a2a 100644 (file)
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -212,15 +212,9 @@ possibly preceded by keyword pairs as described in `easy-menu-define'."
   ;; MENU, just change it, otherwise put it last in MENU.
   (let (name command label prop remove)
     (cond
-     ((stringp item)                   ; An unselectable string.
-      (setq label
-           (if (string-match   ; If an XEmacs separator
-                "^\\(-+\\|\
---:\\(\\(no\\|\\(sing\\|doub\\)le\\(Dashed\\)?\\)Line\\|\
-shadow\\(Double\\)?Etched\\(In\\|Out\\)\\(Dash\\)?\\)\\)$"
-                item) ""               ; use a single line separator.
-             item)))
-     ((consp item)                     ; A sub-menu.
+     ((stringp item)                   ; An item or separator.
+      (setq label item))
+     ((consp item)                     ; A sub-menu
       (setq label (setq name (car item)))
       (setq command (cdr item))
       (if (not (keymapp command))