Function: texinfo-parse-line-arg

texinfo-parse-line-arg is a byte-compiled function defined in texinfmt.el.gz.

Signature

(texinfo-parse-line-arg)

Documentation

Return argument of @-command as string.

Argument is separated from command either by a space or by a brace. If a space, return rest of line, with beginning and ending white space removed. If a brace, return string between braces. Leave point after argument.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/texinfmt.el.gz
;;; Parsing functions

(defun texinfo-parse-line-arg ()
  "Return argument of @-command as string.
Argument is separated from command either by a space or by a brace.
If a space, return rest of line, with beginning and ending white
space removed.  If a brace, return string between braces.
Leave point after argument."
  (goto-char texinfo-command-end)
  (let ((start (point)))
    (cond ((looking-at " ")
           (skip-chars-forward " ")
           (setq start (point))
           (end-of-line)
           (skip-chars-backward " ")
           (delete-region (point) (progn (end-of-line) (point)))
           (setq texinfo-command-end (1+ (point))))
          ((looking-at "{")
           (setq start (1+ (point)))
           (forward-list 1)
           (setq texinfo-command-end (point))
           (forward-char -1))
          (t
           (error "Invalid texinfo command arg format")))
    (prog1 (buffer-substring-no-properties start (point))
           (if (eolp) (forward-char 1)))))