Function: texinfo-copying

texinfo-copying is a byte-compiled function defined in texinfmt.el.gz.

Signature

(texinfo-copying)

Documentation

Copy the copyright notice and copying permissions from Texinfo file.

This is indicated by the "@copying ... @end copying" command; insert the text with the "@insertcopying" command.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/texinfmt.el.gz
(defun texinfo-copying ()
  "Copy the copyright notice and copying permissions from Texinfo file.
This is indicated by the \"@copying ... @end copying\" command;
insert the text with the \"@insertcopying\" command."
  (let ((beg (progn (beginning-of-line) (point)))
        (end  (progn (re-search-forward "^@end copying[ \t]*\n") (point))))
    (setq texinfo-copying-text
          (buffer-substring-no-properties
           (save-excursion (goto-char beg) (line-beginning-position 2))
           (save-excursion (goto-char end) (line-beginning-position 0))))
    (delete-region beg end)))