diff options
| author | Gerd Moellmann <[email protected]> | 1999-07-21 21:43:03 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 1999-07-21 21:43:03 +0000 |
| commit | 2c5c9cb936c29556f241509c998ed72eb4c2db53 (patch) | |
| tree | 656dcd72d972dc4dee3d504781550d23bc988d39 | |
| parent | 9e5962d0e2977d410909518bfb4b04675c684b0e (diff) | |
(easy-menu-do-add-item): Support for new seperator types.
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 0b02508c2c..361834a47b 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)) |