Function: semantic-grammar-setup-menu-xemacs

semantic-grammar-setup-menu-xemacs is a byte-compiled function defined in grammar.el.gz.

This function is obsolete since 28.1.

Signature

(semantic-grammar-setup-menu-xemacs SYMBOL MODE-MENU)

Documentation

Setup an XEmacs grammar menu in variable SYMBOL.

MODE-MENU is an optional specific menu whose items are appended to the common grammar menu.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-setup-menu-xemacs (symbol mode-menu)
  "Setup an XEmacs grammar menu in variable SYMBOL.
MODE-MENU is an optional specific menu whose items are appended to the
common grammar menu."
  (declare (obsolete nil "28.1"))
  (let ((items (make-symbol "items"))
        (path (make-symbol "path")))
    `(progn
       (unless (boundp ',symbol)
         (easy-menu-define ,symbol nil
           "Grammar Menu" (copy-sequence semantic-grammar-menu)))
       (when (featurep 'xemacs)
         (easy-menu-add ,symbol))
       (let ((,items (cdr ,mode-menu))
             (,path (list (car ,symbol))))
         (when ,items
           (easy-menu-add-item nil ,path "--")
           (while ,items
             (easy-menu-add-item nil ,path (car ,items))
             (setq ,items (cdr ,items))))))
    ))