Function: texinfo-if-set

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

Signature

(texinfo-if-set)

Documentation

If set, continue formatting; else do not format region up to @end ifset.

Source Code

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