Function: texinfo-if-clear

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

Signature

(texinfo-if-clear)

Documentation

If clear, continue formatting; if set, do not format up to @end ifset.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/texinfmt.el.gz
(defun texinfo-if-clear ()
  "If clear, continue formatting; if set, do not format up to @end ifset."
  (let ((arg (texinfo-parse-arg-discard)))
    (cond
     ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
          'flag-set)
      ;; Clear region (i.e., cause the text to be ignored).
      (delete-region texinfo-command-start
		     (re-search-forward "@end ifclear[ \t]*\n")))
     ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
          'flag-cleared)
      ;; Format the text (i.e., do not remove it); do nothing here.
      ())
     ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
          nil)
      ;; In this case flag is neither set nor cleared.
      ;; Act as if clear, i.e. do nothing.
      ()))))