Function: comint-within-quotes

comint-within-quotes is a byte-compiled function defined in comint.el.gz.

Signature

(comint-within-quotes BEG END)

Documentation

Return t if the number of quotes between BEG and END is odd.

Quotes are single and double.

Source Code

;; Defined in /usr/src/emacs/lisp/comint.el.gz
(defun comint-within-quotes (beg end)
  "Return t if the number of quotes between BEG and END is odd.
Quotes are single and double."
  (let ((countsq (comint-how-many-region "\\(^\\|[^\\]\\)'" beg end))
	(countdq (comint-how-many-region "\\(^\\|[^\\]\\)\"" beg end)))
    (or (oddp countsq) (oddp countdq))))