Mercurial > emacs

changeset 24987:aee690417f63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-menu-do-add-item): Support for new seperator types.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 21 Jul 1999 21:43:03 +0000
parents cf6d86af7374
children 3bfd67af61d0
files lisp/emacs-lisp/easymenu.el
diffstat 1 files changed, 3 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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))