Function: semantic-grammar-copyright-line

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

Signature

(semantic-grammar-copyright-line)

Documentation

Return the grammar copyright line, or nil if not found.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-copyright-line ()
  "Return the grammar copyright line, or nil if not found."
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward "^;;+[ \t]+Copyright (C) .*$"
                             ;; Search only in the four top lines
                             (save-excursion (forward-line 4) (point))
                             t)
      (match-string 0))))