diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -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 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)) |