Function: tags-loop-eval

tags-loop-eval is a byte-compiled function defined in etags.el.gz.

Signature

(tags-loop-eval FORM)

Documentation

Evaluate FORM and return its result.

Bind case-fold-search during the evaluation, depending on the value of tags-case-fold-search.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/etags.el.gz
(defun tags-loop-eval (form)
  "Evaluate FORM and return its result.
Bind `case-fold-search' during the evaluation, depending on the value of
`tags-case-fold-search'."
  (let ((case-fold-search (if (memq tags-case-fold-search '(t nil))
			      tags-case-fold-search
			    case-fold-search)))
    (eval form)))