Function: semantic-grammar-epilogue

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

Signature

(semantic-grammar-epilogue)

Documentation

Return grammar epilogue code as a string value.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-epilogue ()
  "Return grammar epilogue code as a string value."
  (let ((tag (semantic-find-first-tag-by-name
              "epilogue"
              (semantic-find-tags-by-class 'code (current-buffer)))))
    (if tag
        (save-excursion
          (concat
           (buffer-substring
            (progn
              (goto-char (semantic-tag-start tag))
              (skip-chars-forward "%\r\n\t ")
              (point))
            (progn
              (goto-char (semantic-tag-end tag))
              (skip-chars-backward "\r\n\t")
              ;; If a grammar footer is found, skip it.
              (re-search-backward "^;;;\\s-+\\S-+\\s-+ends here"
                                  (point-at-bol) t)
              (skip-chars-backward "\r\n\t")
              (point)))
           "\n"))
      "")))