Function: m4--quoted-p

m4--quoted-p is a byte-compiled function defined in m4-mode.el.gz.

Signature

(m4--quoted-p POS)

Documentation

Return non-nil if POS is inside a quoted string.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/m4-mode.el.gz
(defun m4--quoted-p (pos)
  "Return non-nil if POS is inside a quoted string."
  (let ((quoted nil))
    (dolist (o (nth 9 (save-excursion (syntax-ppss pos))))
      (if (eq (char-after o) ?\`) (setq quoted t)))
    quoted))