From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 21 Jul 1999 21:43:03 +0000 (+0000)
Subject: (easy-menu-do-add-item): Support for new seperator types.
X-Git-Tag: emacs-pretest-21.0.90~7454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c5c9cb936c29556f241509c998ed72eb4c2db53;p=emacs.git

(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 0b02508c2c9..361834a47b1 100644
--- 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))