# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 932593383 0
# Node ID aee690417f63b268f2d0a53cbbe4f3ff014b79be
# Parent  cf6d86af7374766d66f7bbb4adc10b78a3d24280
(easy-menu-do-add-item): Support for new seperator types.

diff -r cf6d86af7374 -r aee690417f63 lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Wed Jul 21 21:43:03 1999 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Wed Jul 21 21:43:03 1999 +0000
@@ -212,15 +212,9 @@
   ;; 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))