From 2c5c9cb936c29556f241509c998ed72eb4c2db53 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 21 Jul 1999 21:43:03 +0000 Subject: [PATCH] (easy-menu-do-add-item): Support for new seperator types. --- lisp/emacs-lisp/easymenu.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) 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)) -- 2.39.5