Function: semantic-grammar-insert-define

semantic-grammar-insert-define is a byte-compiled function defined in grammar.el.gz.

Signature

(semantic-grammar-insert-define DEFINE)

Documentation

Insert the declaration specified by DEFINE expression.

Typically a DEFINE expression should look like this:

(define-thing name docstring expression1 ...)

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-insert-define (define)
  "Insert the declaration specified by DEFINE expression.
Typically a DEFINE expression should look like this:

\(define-thing name docstring expression1 ...)"
  ;;(require 'pp)
  (let ((start (point)))
    (insert (format "(%S %S" (car define) (nth 1 define)))
    (dolist (item (nthcdr 2 define))
      (insert "\n")
      (delete-blank-lines)
      (pp item (current-buffer)))
    (insert ")\n\n")
    (save-excursion
      (goto-char start)
      (indent-sexp))))